From: simonmar <unknown>
Date: Tue, 29 Jan 2002 16:52:46 +0000 (+0000)
Subject: [project @ 2002-01-29 16:52:46 by simonmar]
X-Git-Tag: Approximately_9120_patches~233
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aeefae7ca7bb7355af8e03265d2b35db7e4ab603;p=ghc-hetmet.git

[project @ 2002-01-29 16:52:46 by simonmar]
Remove some empty structs that weren't used.  Apparently empty structs
are illegal C.
---

diff --git a/ghc/includes/Closures.h b/ghc/includes/Closures.h
index 93dfb30..3e8f234 100644
--- a/ghc/includes/Closures.h
+++ b/ghc/includes/Closures.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: Closures.h,v 1.30 2001/11/26 16:54:22 simonmar Exp $
+ * $Id: Closures.h,v 1.31 2002/01/29 16:52:46 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -28,14 +28,6 @@ typedef struct {
 } StgProfHeader;
 
 /* -----------------------------------------------------------------------------
-   The parallel header
-   -------------------------------------------------------------------------- */
-
-typedef struct {
-  /* StgWord ga; */  /* nope! global addresses are managed via a hash table */
-} StgParHeader;
-
-/* -----------------------------------------------------------------------------
    The GranSim header
    -------------------------------------------------------------------------- */
 
@@ -44,29 +36,6 @@ typedef struct {
 } StgGranHeader;
 
 /* -----------------------------------------------------------------------------
-   The ticky-ticky header
-
-   Comment from old Ticky.h:
-
-   This is used to record if a closure has been updated but not yet
-   entered. It is set when the closure is updated and cleared when
-   subsequently entered.
-   
-   NB: It is {\em not} an ``entry count'', it is an
-   ``entries-after-update count.''
-   
-   The commoning up of @CONST@, @CHARLIKE@ and @INTLIKE@ closures is
-   turned off(?) if this is required. This has only been done for 2s
-   collection.  It is done using a nasty hack which defines the
-   @_Evacuate@ and @_Scavenge@ code for @CONST@, @CHARLIKE@ and @INTLIKE@
-   info tables to be @_Evacuate_1@ and @_Scavenge_1_0@.
-   -------------------------------------------------------------------------- */
-
-typedef struct {
-  /* old: W_ updated; */
-} StgTickyHeader;
-
-/* -----------------------------------------------------------------------------
    The full fixed-size closure header
 
    The size of the fixed header is the sum of the optional parts plus a single
@@ -78,15 +47,9 @@ typedef struct {
 #ifdef PROFILING
 	StgProfHeader         prof;
 #endif
-#ifdef PAR
-	StgParHeader          par;
-#endif
 #ifdef GRAN
 	StgGranHeader         gran;
 #endif
-#ifdef TICKY_TICKY
-	StgTickyHeader        ticky;
-#endif
 } StgHeader;
 
 #define FIXED_HS (sizeof(StgHeader))