Commit 8b3bfb2e authored by Edward Z. Yang's avatar Edward Z. Yang

Remove unused assignArguments and argumentsSize.

Signed-off-by: Edward Z. Yang's avatarEdward Z. Yang <ezyang@mit.edu>
parent 5b105389
module CmmCallConv (
ParamLocation(..),
ArgumentFormat,
assignArguments,
assignArgumentsPos,
argumentsSize,
assignArgumentsPos
) where
#include "HsVersions.h"
......@@ -31,10 +29,6 @@ instance (Outputable a) => Outputable (ParamLocation a) where
type ArgumentFormat a b = [(a, ParamLocation b)]
assignArguments :: (a -> CmmType) -> [a] -> ArgumentFormat a WordOff
-- Stack parameters are returned as word offsets.
assignArguments _ _ = panic "assignArguments only used in dead codegen" -- assignments
-- | JD: For the new stack story, I want arguments passed on the stack to manifest as
-- positive offsets in a CallArea, not negative offsets from the stack pointer.
-- Also, I want byte offsets, not word offsets.
......@@ -96,14 +90,6 @@ assignArgumentsPos conv arg_ty reps = assignments
where w = typeWidth (arg_ty r)
size = (((widthInBytes w - 1) `div` wORD_SIZE) + 1) * wORD_SIZE
off' = offset + size
argumentsSize :: (a -> CmmType) -> [a] -> WordOff
argumentsSize f reps = maximum (0 : map arg_top args)
where
args = assignArguments f reps
arg_top (_, StackParam offset) = -offset
arg_top (_, RegisterParam _) = 0
-----------------------------------------------------------------------------
-- Local information about the registers available
......
More notes (June 11)
~~~~~~~~~~~~~~~~~~~~
* Kill dead code assignArguments, argumentsSize in CmmCallConv.
Bake in ByteOff to ParamLocation and ArgumentFormat
* Bake in ByteOff to ParamLocation and ArgumentFormat
CmmActuals -> [CmmActual] similary CmmFormals
* Possible refactoring: Nuke AGraph in favour of
......
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