diff options
| author | sewardj <unknown> | 2000-01-19 16:47:16 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-19 16:47:16 +0000 |
| commit | 98f86b1c5426bffe531ae20b17e89e34ecabfa15 (patch) | |
| tree | 5e073a17daafbad61cb3654f2eb0cbafe67a44e2 /ghc/compiler | |
| parent | 623a7c05bf95296dc70159a432a154d043c27eee (diff) | |
| download | haskell-98f86b1c5426bffe531ae20b17e89e34ecabfa15.tar.gz | |
[project @ 2000-01-19 16:47:16 by sewardj]
amodeToStix: correctly compute offset for CHARLIKE_closure-s.
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/nativeGen/StixPrim.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs index 11b6cd6847..c9323ec415 100644 --- a/ghc/compiler/nativeGen/StixPrim.lhs +++ b/ghc/compiler/nativeGen/StixPrim.lhs @@ -352,7 +352,7 @@ amodeToStix (CCharLike (CLit (MachChar c))) amodeToStix (CCharLike x) = StIndex PtrRep charLike off where - off = StPrim IntMulOp [amodeToStix x, StInt (toInteger (fixedHdrSize+1))] + off = StPrim IntMulOp [amodeToStix x, StInt (toInteger charLikeSize)] amodeToStix (CIntLike (CLit (MachInt i _))) = StLitLbl ((<>) (ptext SLIT("INTLIKE_closure+")) (int off)) |