diff options
| author | sewardj <unknown> | 2000-02-24 14:05:55 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-02-24 14:05:55 +0000 |
| commit | 3d4dba8892d9d17e80cf7f4c76e61267876ab8f0 (patch) | |
| tree | 64fc2afa70efea692c78e914d8b1607437114918 /ghc/interpreter/storage.c | |
| parent | f2d6452efe06f74423a1d1816179645a189bfec4 (diff) | |
| download | haskell-3d4dba8892d9d17e80cf7f4c76e61267876ab8f0.tar.gz | |
[project @ 2000-02-24 14:05:55 by sewardj]
Wibbles for Win32 standalone compilation of Hugs:
-- Turn off debugging miniinterpreter
-- Change SIZEOF_INTP (which no longer exists) into SIZEOF_VOID_P
Diffstat (limited to 'ghc/interpreter/storage.c')
| -rw-r--r-- | ghc/interpreter/storage.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c index d6db5f37da..39d969f686 100644 --- a/ghc/interpreter/storage.c +++ b/ghc/interpreter/storage.c @@ -9,8 +9,8 @@ * included in the distribution. * * $RCSfile: storage.c,v $ - * $Revision: 1.43 $ - * $Date: 2000/02/15 13:16:20 $ + * $Revision: 1.44 $ + * $Date: 2000/02/24 14:05:55 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -2441,7 +2441,7 @@ Int n; { : pair(INTCELL,n); } -#if SIZEOF_INTP == SIZEOF_INT +#if SIZEOF_VOID_P == SIZEOF_INT typedef union {Int i; Ptr p;} IntOrPtr; Cell mkPtr(p) Ptr p; @@ -2475,7 +2475,7 @@ Cell c; x.i = snd(c); return x.p; } -#elif SIZEOF_INTP == 2*SIZEOF_INT +#elif SIZEOF_VOID_P == 2*SIZEOF_INT typedef union {struct {Int i1; Int i2;} i; Ptr p;} IntOrPtr; Cell mkPtr(p) Ptr p; |