diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2011-07-06 16:18:09 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2011-07-06 16:41:20 +0100 |
| commit | 41ca0b8dcb91cf02f389b3d099c33fbdf009312c (patch) | |
| tree | 29b35ed3623b47ce36f25ede3abd79eedeb84e6d /compiler/nativeGen/Instruction.hs | |
| parent | 43293b8c3210003c9e5b5b4a662f0fdb874353b7 (diff) | |
| download | haskell-41ca0b8dcb91cf02f389b3d099c33fbdf009312c.tar.gz | |
Refactoring: explicitly mark whether we have an info table in RawCmm
I introduced this to support explicitly recording the info table label
in RawCmm for another patch I am working on, but it turned out to lead
to significant simplification in those parts of the compiler that
consume RawCmm.
Now, instead of lots of tests for null [CmmStatic] we have a simple
test of a Maybe, and have reduced the number of guys that need to know
how to convert entry->info labels by a TON. There are only 3 callers
of that function now!
Diffstat (limited to 'compiler/nativeGen/Instruction.hs')
| -rw-r--r-- | compiler/nativeGen/Instruction.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/Instruction.hs b/compiler/nativeGen/Instruction.hs index 5c85101e8e..7bcaa2b2a9 100644 --- a/compiler/nativeGen/Instruction.hs +++ b/compiler/nativeGen/Instruction.hs @@ -38,13 +38,13 @@ noUsage = RU [] [] type NatCmm instr = GenCmm CmmStatics - [CmmStatic] + (Maybe CmmStatics) (ListGraph instr) type NatCmmTop statics instr = GenCmmTop statics - [CmmStatic] + (Maybe CmmStatics) (ListGraph instr) |