diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-13 19:12:30 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-13 19:12:30 +0100 |
| commit | 4279ab5050df28ba7abd79296a788d1ddb9eb5df (patch) | |
| tree | a8272030704b755e28f99496582fba0b797a048e /compiler/codeGen/StgCmmLayout.hs | |
| parent | 07c3777105e9e7292b472af9277cf8710492e038 (diff) | |
| download | haskell-4279ab5050df28ba7abd79296a788d1ddb9eb5df.tar.gz | |
Use sIZEOF_* from platformConstants rather than Constants
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 1469554a8b..a7426284a3 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -659,7 +659,7 @@ funInfoTable :: DynFlags -> CmmExpr -> CmmExpr -- in the info table. funInfoTable dflags info_ptr | tablesNextToCode dflags - = cmmOffsetB dflags info_ptr (- stdInfoTableSizeB dflags - sIZEOF_StgFunInfoExtraRev) + = cmmOffsetB dflags info_ptr (- stdInfoTableSizeB dflags - sIZEOF_StgFunInfoExtraRev dflags) | otherwise = cmmOffsetW dflags info_ptr (1 + stdInfoTableSizeW dflags) -- Past the entry code pointer |