diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-12 16:32:34 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-12 16:32:34 +0100 |
| commit | 2b7319a67de0771d31626091e43dd3b60827a0ea (patch) | |
| tree | cb1542cb4e9e7e6826e06f2fb94fd590dca2f834 /compiler/cmm/CmmCallConv.hs | |
| parent | 44b5f471a314d964948c38684ce74b7a87df4ed8 (diff) | |
| download | haskell-2b7319a67de0771d31626091e43dd3b60827a0ea.tar.gz | |
Pass DynFlags down to wordWidth
Diffstat (limited to 'compiler/cmm/CmmCallConv.hs')
| -rw-r--r-- | compiler/cmm/CmmCallConv.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs index dd1b6af643..5e75e6134f 100644 --- a/compiler/cmm/CmmCallConv.hs +++ b/compiler/cmm/CmmCallConv.hs @@ -78,9 +78,9 @@ assignArgumentsPos dflags conv arg_ty reps = assignments _ -> (assts, (r:rs)) int = case (w, regs) of (W128, _) -> panic "W128 unsupported register type" - (_, (v:vs, fs, ds, ls)) | widthInBits w <= widthInBits wordWidth + (_, (v:vs, fs, ds, ls)) | widthInBits w <= widthInBits (wordWidth dflags) -> k (RegisterParam (v gcp), (vs, fs, ds, ls)) - (_, (vs, fs, ds, l:ls)) | widthInBits w > widthInBits wordWidth + (_, (vs, fs, ds, l:ls)) | widthInBits w > widthInBits (wordWidth dflags) -> k (RegisterParam l, (vs, fs, ds, ls)) _ -> (assts, (r:rs)) k (asst, regs') = assign_regs ((r, asst) : assts) rs regs' |