Commit 98f86b1c authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-19 16:47:16 by sewardj]

amodeToStix: correctly compute offset for CHARLIKE_closure-s.
parent 623a7c05
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment