From d91cd59b378ed0e1fed66392712e3cf7aa30fe56 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 30 Apr 1998 19:25:19 +0000
Subject: [PATCH] [project @ 1998-04-30 19:25:19 by sof] new defn: fixedHS
---
ghc/compiler/nativeGen/MachMisc.lhs | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index bc83dcf7d097..838c33568a7d 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -9,7 +9,7 @@
module MachMisc (
fixedHdrSizeInWords, varHdrSizeInWords,
- charLikeSize, intLikeSize, mutHS, dataHS, foHS,
+ charLikeSize, intLikeSize, mutHS, dataHS, fixedHS, foHS,
sizeOf, primRepToSize,
eXTRA_STK_ARGS_HERE,
@@ -188,10 +188,11 @@ blahLikeSize blah
blahLikeRep = SpecialisedRep blah 0 1 SMNormalForm
--------
-mutHS, dataHS, foHS :: StixTree
+mutHS, dataHS, fixedHS, foHS :: StixTree
-mutHS = blah_hs (MuTupleRep 0)
-dataHS = blah_hs (DataRep 0)
+mutHS = blah_hs (MuTupleRep 0)
+dataHS = blah_hs (DataRep 0)
+fixedHS = StInt (toInteger fixedHdrSizeInWords)
{- Semi-hack: to avoid introducing ForeignObjRep,
we hard-code the VHS for ForeignObj here.
--
GitLab