[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / includes / mkNativeHdr.lc

diff --git a/ghc/includes/mkNativeHdr.lc b/ghc/includes/mkNativeHdr.lc
index 2e2ae88..9e6505c 100644 (file)
--- a/ghc/includes/mkNativeHdr.lc
+++ b/ghc/includes/mkNativeHdr.lc
@@ -10,8 +10,11 @@
 
 #define OFFSET(table, x) ((StgUnion *) &(x) - (StgUnion *) (&table))
 
+
 #define OFFSET_Dbl1 OFFSET(MainRegTable, MAIN_Dbl1)
 #define OFFSET_Dbl2 OFFSET(MainRegTable, MAIN_Dbl2)
+#define OFFSET_Lng1 OFFSET(MainRegTable, MAIN_Lng1)
+#define OFFSET_Lng2 OFFSET(MainRegTable, MAIN_Lng2)
 #define OFFSET_Flt1 OFFSET(MainRegTable, MAIN_Flt1)
 #define OFFSET_Flt2 OFFSET(MainRegTable, MAIN_Flt2)
 #define OFFSET_Flt3 OFFSET(MainRegTable, MAIN_Flt3)
@@ -42,8 +45,8 @@
 #define SM_CAFLIST OFFSET(StorageMgrInfo, StorageMgrInfo.CAFlist)
 #define SM_OLDMUTABLES OFFSET(StorageMgrInfo, StorageMgrInfo.OldMutables)
 #define SM_OLDLIM OFFSET(StorageMgrInfo, StorageMgrInfo.OldLim)
-#define SM_MALLOCPTRLIST OFFSET(StorageMgrInfo, StorageMgrInfo.MallocPtrList)
-#define SM_OLDMALLOCPTRLIST OFFSET(StorageMgrInfo, StorageMgrInfo.OldMallocPtrList)
+#define SM_FOREIGNOBJLIST OFFSET(StorageMgrInfo, StorageMgrInfo.ForeignObjList)
+#define SM_OLDFOREIGNOBJLIST OFFSET(StorageMgrInfo, StorageMgrInfo.OldForeignObjList)
 #define SM_STABLEPOINTERTABLE OFFSET(StorageMgrInfo, StorageMgrInfo.StablePointerTable)
 
 STGRegisterTable MainRegTable;
@@ -58,6 +61,10 @@ main()
 
     printf("#define OFFSET_Dbl1 %d\n", OFFSET_Dbl1);
     printf("#define OFFSET_Dbl2 %d\n", OFFSET_Dbl2);
+#if HAVE_LONG_LONG && SIZEOF_LONG < 8
+    printf("#define OFFSET_Lng1 %d\n", OFFSET_Lng1);
+    printf("#define OFFSET_Lng2 %d\n", OFFSET_Lng2);
+#endif
     printf("#define OFFSET_Flt1 %d\n", OFFSET_Flt1);
     printf("#define OFFSET_Flt2 %d\n", OFFSET_Flt2);
     printf("#define OFFSET_Flt3 %d\n", OFFSET_Flt3);
@@ -98,9 +105,9 @@ main()
     printf("#define SM_OLDLIM %d\n", SM_OLDLIM);
 #endif
 #ifndef PAR
-    printf("#define SM_MALLOCPTRLIST %d\n", SM_MALLOCPTRLIST);
+    printf("#define SM_FOREIGNOBJLIST %d\n", SM_FOREIGNOBJLIST);
 #if defined(GCap) || defined(GCgn)
-    printf("#define SM_OLDMALLOCPTRLIST %d\n", SM_OLDMALLOCPTRLIST);
+    printf("#define SM_OLDFOREIGNOBJLIST %d\n", SM_OLDFOREIGNOBJLIST);
 #endif
     printf("#define SM_STABLEPOINTERTABLE %d\n", SM_STABLEPOINTERTABLE);
 #endif