[project @ 1999-01-21 20:15:30 by sof]

[ghc-hetmet.git] / ghc / includes / PrimOps.h

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 90c4f22..58f2df0 100644 (file)
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.6 1999/01/18 14:36:13 sof Exp $
+ * $Id: PrimOps.h,v 1.8 1999/01/21 10:31:42 simonm Exp $
  *
  * Macros for primitive operations in STG-ish C code.
  *
@@ -278,7 +278,7 @@ typedef union {
   arg2._mp_size        = (s2);                                                 \
   arg2._mp_d   = (unsigned long int *) (BYTE_ARR_CTS(d2));             \
                                                                        \
-  (r) = RET_PRIM_STGCALL2(I_,mpz_cmp,&arg1,&arg2);                             \
+  (r) = RET_PRIM_STGCALL2(I_,mpz_cmp,&arg1,&arg2);                     \
 }
 
 /* A glorious hack: calling mpz_neg would entail allocation and
@@ -643,7 +643,6 @@ extern StgPtr *stable_ptr_free;
 #define freeStablePointer(stable_ptr)                  \
  {                                                     \
   stable_ptr_table[stable_ptr] = (P_)stable_ptr_free;  \
-  IF_DEBUG(weak,fprintf(stderr, "Freed stable pointer %d\n", stable_ptr)); \
   stable_ptr_free = &stable_ptr_table[stable_ptr];     \
  }