summaryrefslogtreecommitdiff
path: root/Optimiser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Optimiser.hs')
-rw-r--r--Optimiser.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Optimiser.hs b/Optimiser.hs
index 3163c33..a381bac 100644
--- a/Optimiser.hs
+++ b/Optimiser.hs
@@ -123,7 +123,7 @@ specialLoops :: Optimisation
specialLoops [] = []
specialLoops (ILoop [IAdd v off2] off1 : rest)
| off1 /= off2 = ILoop [] off1 : specialLoops rest
- | gcd v 2 == 1 = ISet 0 off1 : specialLoops rest
+ | odd v = ISet 0 off1 : specialLoops rest
specialLoops (ILoop inss off : rest)
| all isIAdd inss,
sum (map (\(IAdd v _) -> v) $ filter ((== off) . offsetOf) inss) == -1 =