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(-)
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-70-g09d2