From 98f86b1c5426bffe531ae20b17e89e34ecabfa15 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 19 Jan 2000 16:47:16 +0000
Subject: [PATCH] [project @ 2000-01-19 16:47:16 by sewardj] amodeToStix:
correctly compute offset for CHARLIKE_closure-s.
---
ghc/compiler/nativeGen/StixPrim.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 11b6cd684736..c9323ec41595 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))
--
GitLab