diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-12 11:31:11 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-12 11:31:11 +0100 |
| commit | f611396a581e733c41cee41750c95675bdb64961 (patch) | |
| tree | 5ac98a36e98a6a58e97de9d1a7605386a41cd688 /compiler/codeGen/CgStackery.lhs | |
| parent | 6986eb91102b42ed61953500b60724c385dd658c (diff) | |
| download | haskell-f611396a581e733c41cee41750c95675bdb64961.tar.gz | |
Pass DynFlags down to bWord
I've switched to passing DynFlags rather than Platform, as (a) it's
simpler to not have to extract targetPlatform in so many places, and
(b) it may be useful to have DynFlags around in future.
Diffstat (limited to 'compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | compiler/codeGen/CgStackery.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgStackery.lhs b/compiler/codeGen/CgStackery.lhs index 217586a9d1..04fce86f2f 100644 --- a/compiler/codeGen/CgStackery.lhs +++ b/compiler/codeGen/CgStackery.lhs @@ -317,7 +317,7 @@ emitSpecPushUpdateFrame lbl frame_addr updatee = do stmtsC [ -- Set the info word CmmStore frame_addr (mkLblExpr lbl) , -- And the updatee - CmmStore (cmmOffsetB frame_addr (off_updatee dflags)) updatee ] + CmmStore (cmmOffsetB dflags frame_addr (off_updatee dflags)) updatee ] initUpdFrameProf frame_addr off_updatee :: DynFlags -> ByteOff |