diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-05 16:48:02 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-05 16:48:02 +0000 |
| commit | 16dc208aaad7aadaea970e47b8055d7d7f8781e5 (patch) | |
| tree | 134bc2f6217a11aabc769605804d65c03131d903 /compiler/codeGen/CgMonad.lhs | |
| parent | 807b00a759afd11530949f91bd523bb45f01bd40 (diff) | |
| download | haskell-16dc208aaad7aadaea970e47b8055d7d7f8781e5.tar.gz | |
change of representation for GenCmm, GenCmmTop, CmmProc
The type parameter to a C-- procedure now represents a control-flow
graph, not a single instruction. The newtype ListGraph preserves the
current representation while enabling other representations and a
sensible way of prettyprinting. Except for a few changes in the
prettyprinter the new compiler binary should be bit-for-bit identical
to the old.
Diffstat (limited to 'compiler/codeGen/CgMonad.lhs')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index f0b180ddc5..faa84c2174 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -745,7 +745,7 @@ emitData sect lits emitProc :: CmmInfo -> CLabel -> CmmFormals -> [CmmBasicBlock] -> Code emitProc info lbl args blocks - = do { let proc_block = CmmProc info lbl args blocks + = do { let proc_block = CmmProc info lbl args (ListGraph blocks) ; state <- getState ; setState $ state { cgs_tops = cgs_tops state `snocOL` proc_block } } |