diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-04-14 21:20:21 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-04-27 18:01:52 +0100 |
| commit | c18358bf9b0f1aacbd9c5e8d8515c1fc5031c249 (patch) | |
| tree | a202239ba6086af1513aec38751cee4e10454f80 /compiler/cmm/CmmProcPoint.hs | |
| parent | 64f0f4dd1dab7eb44be0ebf929b0fcc44aee6ce0 (diff) | |
| download | haskell-c18358bf9b0f1aacbd9c5e8d8515c1fc5031c249.tar.gz | |
Give manifestSP better information about the actual SP location.
This patch fixes silliness where the SP pointer is continually
bumped up and down.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'compiler/cmm/CmmProcPoint.hs')
| -rw-r--r-- | compiler/cmm/CmmProcPoint.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CmmProcPoint.hs b/compiler/cmm/CmmProcPoint.hs index d0d54d909d..fbe979b9ab 100644 --- a/compiler/cmm/CmmProcPoint.hs +++ b/compiler/cmm/CmmProcPoint.hs @@ -378,6 +378,8 @@ add_CopyOuts protos procPoints g = foldGraphBlocks mb_copy_out (return mapEmpty) -- 4. build info tables for the procedures -- and update the info table for -- the SRTs in the entry procedure as well. -- Input invariant: A block should only be reachable from a single ProcPoint. +-- ToDo: use the _ret naming convention that the old code generator +-- used. -- EZY splitAtProcPoints :: CLabel -> ProcPointSet-> ProcPointSet -> BlockEnv Status -> CmmTop -> FuelUniqSM [CmmTop] splitAtProcPoints entry_label callPPs procPoints procMap |