X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FmkNativeHdr.c;h=ebc951fbf7ab71749136874d2a1ae129073c25cf;hb=af93bb787305c0401eb658f149021e22d1ab98cc;hp=7b2bebd8eb264c99715f410bdee9d6aafe12f952;hpb=0671ef05dd65137d501cb97f0e42be3b78d4004d;p=ghc-hetmet.git

diff --git a/ghc/includes/mkNativeHdr.c b/ghc/includes/mkNativeHdr.c
index 7b2bebd..ebc951f 100644
--- a/ghc/includes/mkNativeHdr.c
+++ b/ghc/includes/mkNativeHdr.c
@@ -1,5 +1,5 @@
 /* --------------------------------------------------------------------------
- * $Id: mkNativeHdr.c,v 1.6 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: mkNativeHdr.c,v 1.8 2002/01/08 10:36:24 sewardj Exp $
  *
  * (c) The GHC Team, 1992-1998
  *
@@ -44,12 +44,15 @@
 #define OFFSET_stgGCEnter1   FUN_OFFSET(stgGCEnter1)
 #define OFFSET_stgUpdatePAP  FUN_OFFSET(stgUpdatePAP)
 
+#define OFFW_Capability_r  OFFSET(cap, cap.r)
+
 #define TSO_SP       OFFSET(tso, tso.sp)
 #define TSO_SU       OFFSET(tso, tso.su)
 #define TSO_STACK    OFFSET(tso, tso.stack)
 
 #define BDESCR_START OFFSET(bd, bd.start)
 #define BDESCR_FREE  OFFSET(bd, bd.free)
+#define BDESCR_BLOCKS OFFSET(bd, bd.blocks)
 
 StgRegTable RegTable;
 
@@ -98,6 +101,10 @@ main()
     printf("#define OFFSET_stgGCEnter1 (%d)\n", OFFSET_stgGCEnter1);
     printf("#define OFFSET_stgUpdatePAP (%d)\n", OFFSET_stgUpdatePAP);
 
+    printf("\n-- Offset of the .r (StgRegTable) field in a Capability\n");
+
+    printf("#define OFFW_Capability_r (%d)\n", OFFW_Capability_r);
+
     printf("\n-- Storage Manager offsets for the Native Code Generator\n");
 
     printf("\n-- TSO offsets for the Native Code Generator\n");
@@ -110,6 +117,7 @@ main()
 
     printf("#define BDESCR_START %d\n", BDESCR_START);
     printf("#define BDESCR_FREE %d\n", BDESCR_FREE);
+    printf("#define BDESCR_BLOCKS %d\n", BDESCR_BLOCKS);
 
     printf("\n-- FILE size for the Native Code Generator\n");