Commit 82ebc04b authored by dias@eecs.tufts.edu's avatar dias@eecs.tufts.edu
Browse files

eliminate warnings

parent dc9db2a8
......@@ -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))
......
......@@ -35,7 +35,6 @@ import PprCmm()
import FastString
import ForeignCall
import MkZipCfg
import Outputable
import Panic
import SMRep (ByteOff)
import StaticFlags
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment