diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 10:20:03 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 10:20:03 +0200 |
| commit | 001804756eefd24bedb2ac55170e9df4827f2964 (patch) | |
| tree | 61cf5cc6b2b88251636ebe6b89e08014ba4d3d5b /Optimiser.hs | |
| parent | 2f7aa3f0ae524305b7c3e8ba06a5ed0d2ba70891 (diff) | |
Quieter
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] |