From: sewardj <unknown>
Date: Wed, 19 Jan 2000 16:47:16 +0000 (+0000)
Subject: [project @ 2000-01-19 16:47:16 by sewardj]
X-Git-Tag: Approximately_9120_patches~5250
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98f86b1c5426bffe531ae20b17e89e34ecabfa15;p=ghc-hetmet.git

[project @ 2000-01-19 16:47:16 by sewardj]
amodeToStix: correctly compute offset for CHARLIKE_closure-s.
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 11b6cd6..c9323ec 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))