[project @ 2005-04-12 09:04:23 by simonmar]

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

diff --git a/ghc/includes/mkDerivedConstants.c b/ghc/includes/mkDerivedConstants.c
index 085041d..330f40f 100644 (file)
--- a/ghc/includes/mkDerivedConstants.c
+++ b/ghc/includes/mkDerivedConstants.c
@@ -196,9 +196,7 @@ main(int argc, char *argv[])
     field_offset(StgRegTable, rF4);
     field_offset(StgRegTable, rD1);
     field_offset(StgRegTable, rD2);
-#ifdef SUPPORT_LONG_LONGS
     field_offset(StgRegTable, rL1);
-#endif
     field_offset(StgRegTable, rSp);
     field_offset(StgRegTable, rSpLim);
     field_offset(StgRegTable, rHp);
@@ -275,9 +273,6 @@ main(int argc, char *argv[])
     opt_struct_size(StgTSOGranInfo,GRAN);
     opt_struct_size(StgTSODistInfo,DIST);
 
-    closure_size(StgBlockingQueue);
-    closure_field(StgBlockingQueue, blocking_queue);
-
     closure_field(StgUpdateFrame, updatee);
 
     closure_field(StgCatchFrame, handler);
@@ -365,13 +360,13 @@ main(int argc, char *argv[])
     struct_field(StgFunInfoExtraFwd, slow_apply);
     struct_field(StgFunInfoExtraFwd, fun_type);
     struct_field(StgFunInfoExtraFwd, arity);
-    struct_field(StgFunInfoExtraFwd, bitmap);
+    struct_field_("StgFunInfoExtraFwd_bitmap", StgFunInfoExtraFwd, b.bitmap);
 
     struct_size(StgFunInfoExtraRev);
     struct_field(StgFunInfoExtraRev, slow_apply_offset);
     struct_field(StgFunInfoExtraRev, fun_type);
     struct_field(StgFunInfoExtraRev, arity);
-    struct_field(StgFunInfoExtraRev, bitmap);
+    struct_field_("StgFunInfoExtraRev_bitmap", StgFunInfoExtraRev, b.bitmap);
 
     struct_field(StgLargeBitmap, size);
     field_offset(StgLargeBitmap, bitmap);