diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-03-25 16:38:15 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-03-25 16:38:15 +0000 |
| commit | a8e1e190ee5aa16f31bdde26daf3c897314e8994 (patch) | |
| tree | dd1124491a7666941a16b53caaa09978e82da98c /compiler/cmm/CmmCallConv.hs | |
| parent | 01f842b978c903595d4b3184a0761d04a02e5b09 (diff) | |
| download | haskell-a8e1e190ee5aa16f31bdde26daf3c897314e8994.tar.gz | |
Better handling of node parameter in calling conventions
- Previously, the node was taken as a parameter, then ignored,
for static closures. Goofy. Now, the vestigial node parameters
are gone.
Diffstat (limited to 'compiler/cmm/CmmCallConv.hs')
| -rw-r--r-- | compiler/cmm/CmmCallConv.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs index 990e178c30..b9df541ee4 100644 --- a/compiler/cmm/CmmCallConv.hs +++ b/compiler/cmm/CmmCallConv.hs @@ -171,12 +171,11 @@ assign_bits_reg :: SlotAssigner -> Width -> WordOff -> VGcPtr -> AvailRegs -> As assign_bits_reg _ W128 _ _ _ = panic "W128 is not a supported register type" assign_bits_reg _ w off gcp (v:vs, fs, ds, ls) | widthInBits w <= widthInBits wordWidth = - pprTrace "long regs" (ppr ls <+> ppr wordWidth <+> ppr mAX_Real_Long_REG) $ (RegisterParam (v gcp), off, 0, (vs, fs, ds, ls)) + (RegisterParam (v gcp), off, 0, (vs, fs, ds, ls)) assign_bits_reg _ w off _ (vs, fs, ds, l:ls) | widthInBits w > widthInBits wordWidth = - pprTrace "long regs" (ppr ls <+> ppr wordWidth <+> ppr mAX_Real_Long_REG) $ (RegisterParam l, off, 0, (vs, fs, ds, ls)) -assign_bits_reg assign_slot w off _ regs@(_, _, _, ls) = - pprTrace "long regs" (ppr w <+> ppr ls <+> ppr wordWidth <+> ppr mAX_Real_Long_REG <+> ppr mAX_Long_REG) $ assign_slot w off regs + (RegisterParam l, off, 0, (vs, fs, ds, ls)) +assign_bits_reg assign_slot w off _ regs@(_, _, _, ls) = assign_slot w off regs assign_float_reg :: SlotAssigner -> Width -> WordOff -> AvailRegs -> Assignment assign_float_reg _ W32 off (vs, f:fs, ds, ls) = (RegisterParam $ f, off, 0, (vs, fs, ds, ls)) |