diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-04-03 20:34:29 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-04-03 20:34:29 +0000 |
| commit | 82ebc04b7b1459079a43a9897b24a078d3420628 (patch) | |
| tree | 673899dce5cfde31767822d8a7cbe6f68e0c2444 /compiler/cmm/CmmCallConv.hs | |
| parent | dc9db2a839c7d05f119146a6294768e18efc04d6 (diff) | |
| download | haskell-82ebc04b7b1459079a43a9897b24a078d3420628.tar.gz | |
eliminate warnings
Diffstat (limited to 'compiler/cmm/CmmCallConv.hs')
| -rw-r--r-- | compiler/cmm/CmmCallConv.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs index b9df541ee4..64af09d649 100644 --- a/compiler/cmm/CmmCallConv.hs +++ b/compiler/cmm/CmmCallConv.hs @@ -175,7 +175,7 @@ assign_bits_reg _ w off gcp (v:vs, fs, ds, ls) assign_bits_reg _ w off _ (vs, fs, ds, l:ls) | widthInBits w > widthInBits wordWidth = (RegisterParam l, off, 0, (vs, fs, ds, ls)) -assign_bits_reg assign_slot w off _ regs@(_, _, _, ls) = assign_slot w off regs +assign_bits_reg assign_slot w off _ regs@(_, _, _, _) = 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)) |