From 3ad28eebe31c219d10285f2daf31f49c13d8d337 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 16 Jul 1999 09:41:12 +0000
Subject: [PATCH] [project @ 1999-07-16 09:41:12 by panne] More 64bit fun:
Fixed an ill-placed #ifdef and added a cast to a numeric literal (for
explanation see yesterday's fix).
---
ghc/includes/InfoTables.h | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h
index 6e3908d10629..0f8a659fe317 100644
--- a/ghc/includes/InfoTables.h
+++ b/ghc/includes/InfoTables.h
@@ -1,5 +1,5 @@
/* ----------------------------------------------------------------------------
- * $Id: InfoTables.h,v 1.16 1999/06/25 09:13:37 simonmar Exp $
+ * $Id: InfoTables.h,v 1.17 1999/07/16 09:41:12 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
@@ -126,22 +126,19 @@ typedef struct {
*/
typedef union {
-#if SIZEOF_VOID_P == 8
struct {
+#if SIZEOF_VOID_P == 8
StgWord32 ptrs; /* number of pointers */
StgWord32 nptrs; /* number of non-pointers */
- } payload;
#else
- struct {
StgWord16 ptrs; /* number of pointers */
StgWord16 nptrs; /* number of non-pointers */
+#endif
} payload;
StgWord bitmap; /* bit pattern, 1 = pointer, 0 = non-pointer */
StgWord selector_offset; /* used in THUNK_SELECTORs */
StgLargeBitmap* large_bitmap; /* pointer to large bitmap structure */
-
-#endif
} StgClosureInfo;
--
GitLab