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) ...@@ -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) assign_bits_reg _ w off _ (vs, fs, ds, l:ls)
| widthInBits w > widthInBits wordWidth = | widthInBits w > widthInBits wordWidth =
(RegisterParam l, off, 0, (vs, fs, ds, ls)) (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 :: SlotAssigner -> Width -> WordOff -> AvailRegs -> Assignment
assign_float_reg _ W32 off (vs, f:fs, ds, ls) = (RegisterParam $ f, off, 0, (vs, fs, ds, ls)) assign_float_reg _ W32 off (vs, f:fs, ds, ls) = (RegisterParam $ f, off, 0, (vs, fs, ds, ls))
......
...@@ -35,7 +35,6 @@ import PprCmm() ...@@ -35,7 +35,6 @@ import PprCmm()
import FastString import FastString
import ForeignCall import ForeignCall
import MkZipCfg import MkZipCfg
import Outputable
import Panic import Panic
import SMRep (ByteOff) import SMRep (ByteOff)
import StaticFlags 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