Commit 0d4d93a3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix warnings in CgStackery

parent ccac7b17
......@@ -8,13 +8,6 @@ Stack-twiddling operations, which are pretty low-down and grimy.
(This is the module that knows all about stack layouts, etc.)
{-# OPTIONS -w #-}
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
-- for details
module CgStackery (
spRel, getVirtSp, getRealSp, setRealSp,
setRealAndVirtualSp, getSpRelOffset,
......@@ -38,7 +31,6 @@ import CmmUtils
import CLabel
import Constants
import Util
import FastString
import OrdList
import Outputable
......@@ -125,7 +117,7 @@ mkVirtStkOffsets init_Sp_offset things
= loop init_Sp_offset [] (reverse things)
loop offset offs [] = (offset,offs)
loop offset offs ((VoidArg,t):things) = loop offset offs things
loop offset offs ((VoidArg,_):things) = loop offset offs things
-- ignore Void arguments
loop offset offs ((rep,t):things)
= loop thing_slot ((t,thing_slot):offs) things
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