[project @ 2004-02-12 02:04:59 by mthomas]

[ghc-hetmet.git] / ghc / includes / mkDerivedConstants.c

diff --git a/ghc/includes/mkDerivedConstants.c b/ghc/includes/mkDerivedConstants.c
index fc0e591..4f47a10 100644 (file)
--- a/ghc/includes/mkDerivedConstants.c
+++ b/ghc/includes/mkDerivedConstants.c
@@ -1,5 +1,5 @@
 /* --------------------------------------------------------------------------
- * $Id: mkDerivedConstants.c,v 1.1 2001/10/03 13:57:42 simonmar Exp $
+ * $Id: mkDerivedConstants.c,v 1.4 2002/12/11 15:36:40 simonmar Exp $
  *
  * (c) The GHC Team, 1992-1998
  *
@@ -7,7 +7,8 @@
  *
  * ------------------------------------------------------------------------*/
 
-#include "Rts.h"
+#define IN_STG_CODE 0
+#include "Stg.h"
 
 #define OFFSET(s_type, field) ((unsigned int)&(((s_type*)0)->field))
 
@@ -19,8 +20,6 @@ main(int argc, char *argv[])
     printf("#define STD_HDR_SIZE   %d\n", sizeofW(StgHeader));
     printf("#define PROF_HDR_SIZE  %d\n", sizeofW(StgProfHeader));
     printf("#define GRAN_HDR_SIZE  %d\n", sizeofW(StgGranHeader));
-    printf("#define PAR_HDR_SIZE   %d\n", sizeofW(StgParHeader));
-    printf("#define TICKY_HDR_SIZE %d\n", sizeofW(StgTickyHeader));
 
     printf("#define ARR_WORDS_HDR_SIZE  %d\n", 
           sizeofW(StgArrWords) - sizeofW(StgHeader));
@@ -29,9 +28,9 @@ main(int argc, char *argv[])
           sizeofW(StgMutArrPtrs) - sizeofW(StgHeader));
 
     printf("#define STD_ITBL_SIZE   %d\n", sizeofW(StgInfoTable));
+    printf("#define RET_ITBL_SIZE   %d\n", sizeofW(StgRetInfoTable) - sizeofW(StgInfoTable));
     printf("#define PROF_ITBL_SIZE  %d\n", sizeofW(StgProfInfo));
     printf("#define GRAN_ITBL_SIZE  %d\n", 0);
-    printf("#define PAR_ITBL_SIZE   %d\n", sizeofW(StgParInfo));
     printf("#define TICKY_ITBL_SIZE %d\n", sizeofW(StgTickyInfo));
 
     printf("#define STD_UF_SIZE   %d\n", sizeofW(StgUpdateFrame));
@@ -43,18 +42,9 @@ main(int argc, char *argv[])
     printf("#define UF_RET     %d\n",
           OFFSET(StgUpdateFrame,header.info));
 
-    printf("#define UF_SU      %d\n",  
-          OFFSET(StgUpdateFrame,link) / sizeof(W_));
-
     printf("#define UF_UPDATEE %d\n",
           OFFSET(StgUpdateFrame,updatee) / sizeof(W_));
 
-    printf("#define STD_SEQ_FRAME_SIZE   %d\n", sizeofW(StgSeqFrame));
-    printf("#define GRAN_SEQ_FRAME_SIZE   %d\n",  
-          sizeofW(StgSeqFrame) + sizeofW(StgGranHeader));
-    printf("#define PROF_SEQ_FRAME_SIZE   %d\n",  
-          sizeofW(StgSeqFrame) + sizeofW(StgProfHeader));
-
     printf("#define BLOCK_SIZE   %d\n", BLOCK_SIZE);
     printf("#define MBLOCK_SIZE   %d\n", MBLOCK_SIZE);  
     return 0;