diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-10 19:45:17 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-10 19:45:17 +0100 |
| commit | d25676a6b1c42495702048b6ca6f26ebd15205d8 (patch) | |
| tree | 3b8b9104b39443911db432a5d9e6c08651ec7e1f /compiler/cmm/CmmCallConv.hs | |
| parent | 75f9f3559b9959f067c893ae3f7c89da7fd18813 (diff) | |
| download | haskell-d25676a6b1c42495702048b6ca6f26ebd15205d8.tar.gz | |
Comments, layout and cmm-notes
...all to do with the new codgen path
Diffstat (limited to 'compiler/cmm/CmmCallConv.hs')
| -rw-r--r-- | compiler/cmm/CmmCallConv.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs index e7d0acc811..830c879112 100644 --- a/compiler/cmm/CmmCallConv.hs +++ b/compiler/cmm/CmmCallConv.hs @@ -31,8 +31,8 @@ instance (Outputable a) => Outputable (ParamLocation a) where type ArgumentFormat a b = [(a, ParamLocation b)] --- Stack parameters are returned as word offsets. 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 @@ -40,6 +40,8 @@ assignArguments _ _ = panic "assignArguments only used in dead codegen" -- assig -- Also, I want byte offsets, not word offsets. assignArgumentsPos :: (Outputable a) => Convention -> (a -> CmmType) -> [a] -> ArgumentFormat a ByteOff +-- Given a list of arguments, and a function that tells their types, +-- return a list showing where each argument is passed assignArgumentsPos conv arg_ty reps = assignments where -- The calling conventions (CgCallConv.hs) are complicated, to say the least regs = case (reps, conv) of |