From: sof <unknown>
Date: Fri, 14 Aug 1998 11:00:29 +0000 (+0000)
Subject: [project @ 1998-08-14 11:00:29 by sof]
X-Git-Tag: Approx_2487_patches~436
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=11d61ae122dab3b67caa918079630737230c7caa;p=ghc-hetmet.git

[project @ 1998-08-14 11:00:29 by sof]
Updated to print out LngReg offsets if needs be
---

diff --git a/ghc/includes/mkNativeHdr.lc b/ghc/includes/mkNativeHdr.lc
index e590043..9e6505c 100644
--- 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)
@@ -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);