* included in the distribution.
*
* $RCSfile: machdep.c,v $
- * $Revision: 1.18 $
- * $Date: 1999/12/20 16:55:27 $
+ * $Revision: 1.19 $
+ * $Date: 2000/02/24 14:05:55 $
* ------------------------------------------------------------------------*/
#ifdef HAVE_SIGNAL_H
Void gcCStack() { /* Garbage collect elements off */
Cell stackTop = NIL; /* C stack */
Cell *ptr = &stackTop;
-#if SIZEOF_INTP == 2
+#if SIZEOF_VOID_P == 2
if (((long)(ptr) - (long)(CStackBase))&1)
fatal("gcCStack");
#elif STACK_ALIGNMENT == 2 /* eg Macintosh 68000 */
GuessDirection;
#endif
-#if SIZEOF_INTP==4 && STACK_ALIGNMENT == 2 /* eg Macintosh 68000 */
+#if SIZEOF_VOID_P==4 && STACK_ALIGNMENT == 2 /* eg Macintosh 68000 */
ptr = (Cell *)((long)(&stackTop) + 2);
StackGrowsDown;
#endif
* 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"
: 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;
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;
* included in the distribution.
*
* $RCSfile: storage.h,v $
- * $Revision: 1.26 $
- * $Date: 2000/02/15 13:16:20 $
+ * $Revision: 1.27 $
+ * $Date: 2000/02/24 14:05:55 $
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
#define DICTAP 80 /* DICTAP snd :: (QClassId,[Type]) */
#define UNBOXEDTUP 81 /* UNBOXEDTUP snd :: [Type] */
-#if SIZEOF_INTP != SIZEOF_INT
+#if SIZEOF_VOID_P != SIZEOF_INT
+wuiwiuwuiwmn SIZEOF_INT cc
#define PTRCELL 82 /* C Heap Pointer snd :: (Int,Int) */
#endif
/* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.11 2000/02/15 13:16:20 sewardj Exp $
+ * $Id: StgCRun.c,v 1.12 2000/02/24 14:05:55 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
static jmp_buf jmp_environment;
-#if 0
+#if 1
extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg)
{