projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow Digraph changes in RegAllocLinear.hs
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
RegSpill.hs
diff --git
a/compiler/nativeGen/RegSpill.hs
b/compiler/nativeGen/RegSpill.hs
index
873e779
..
0fdb8ce
100644
(file)
--- a/
compiler/nativeGen/RegSpill.hs
+++ b/
compiler/nativeGen/RegSpill.hs
@@
-1,4
+1,6
@@
+{-# OPTIONS -fno-warn-missing-signatures #-}
+
module RegSpill (
regSpill,
SpillStats(..),
module RegSpill (
regSpill,
SpillStats(..),
@@
-7,8
+9,6
@@
module RegSpill (
where
where
-#include "HsVersions.h"
-
import RegLiveness
import RegAllocInfo
import MachRegs
import RegLiveness
import RegAllocInfo
import MachRegs
@@
-79,7
+79,7
@@
regSpill_instr _ li@(Instr _ Nothing)
= do return [li]
regSpill_instr regSlotMap
= do return [li]
regSpill_instr regSlotMap
- (Instr instr (Just live))
+ (Instr instr (Just _))
= do
-- work out which regs are read and written in this instr
let RU rlRead rlWritten = regUsage instr
= do
-- work out which regs are read and written in this instr
let RU rlRead rlWritten = regUsage instr
@@
-207,7
+207,7
@@
newUnique
modify $ \s -> s { stateUS = us2 }
return uniq
modify $ \s -> s { stateUS = us2 }
return uniq
-accSpillSL (r1, s1, l1) (r2, s2, l2)
+accSpillSL (r1, s1, l1) (_, s2, l2)
= (r1, s1 + s2, l1 + l2)
= (r1, s1 + s2, l1 + l2)