From: sof <unknown>
Date: Mon, 25 Aug 1997 21:47:18 +0000 (+0000)
Subject: [project @ 1997-08-25 21:47:18 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~122
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0fc8a5f61af2aa989435fa988887dd23876cd4c1;p=ghc-hetmet.git

[project @ 1997-08-25 21:47:18 by sof]
new: foHS
---

diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index 6e0ae00..644a45d 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -10,7 +10,7 @@
 module MachMisc (
 
 	fixedHdrSizeInWords, varHdrSizeInWords,
-	charLikeSize, intLikeSize, mutHS, dataHS,
+	charLikeSize, intLikeSize, mutHS, dataHS, foHS,
 	sizeOf, primRepToSize,
 
 	eXTRA_STK_ARGS_HERE,
@@ -201,11 +201,19 @@ blahLikeSize blah
     blahLikeRep = SpecialisedRep blah 0 1 SMNormalForm
 
 --------
-mutHS, dataHS :: StixTree
+mutHS, dataHS, foHS :: StixTree
 
 mutHS  = blah_hs (MuTupleRep 0)
 dataHS = blah_hs (DataRep 0)
 
+{- Semi-hack: to avoid introducing ForeignObjRep,
+   we hard-code the VHS for ForeignObj here.
+-}
+foHS   
+  = StInt (toInteger words)
+  where
+    words = fixedHdrSizeInWords + 1{-FOREIGN_VHS-}
+
 blah_hs blah
   = StInt (toInteger words)
   where