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 a381bac..a71fd2b 100644 --- a/Optimiser.hs +++ b/Optimiser.hs @@ -126,7 +126,7 @@ specialLoops (ILoop [IAdd v off2] off1 : 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 = + sum (map (\(IAdd v _) -> v) $ filter ((== off) . offsetOf) inss) == negate 1 = let others = map (\(IAdd v o) -> (v, o)) $ filter ((/= off) . offsetOf) inss dests = nub $ map snd others copies = [ICopy off d (sum $ map fst $ filter ((== d) . snd) others) | d <- dests] |