diff options
Diffstat (limited to 'Optimiser.hs')
| -rw-r--r-- | Optimiser.hs | 2 |
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 = |