From 446871a1ae5b7adb48e108052e2a2e5afa8dfe30 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Sun, 15 Apr 2018 00:12:17 +0200
Subject: (gcd v 2 == 1) == odd v

---
 Optimiser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Optimiser.hs')

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 =
-- 
cgit v1.2.3-54-g00ecf