[project @ 2002-09-04 11:19:48 by simonmar]

[ghc-hetmet.git] / ghc / rts / RtsAPIDeprec.c

diff --git a/ghc/rts/RtsAPIDeprec.c b/ghc/rts/RtsAPIDeprec.c
index 45d9ba2..b0671c0 100644 (file)
--- a/ghc/rts/RtsAPIDeprec.c
+++ b/ghc/rts/RtsAPIDeprec.c
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: RtsAPIDeprec.c,v 1.1 2001/01/11 17:25:56 simonmar Exp $
+ * $Id: RtsAPIDeprec.c,v 1.3 2001/11/14 16:34:22 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2001
  *
@@ -7,6 +7,7 @@
  *
  * --------------------------------------------------------------------------*/
 
+#include "PosixSource.h"
 #include "Rts.h"
 #include "RtsUtils.h"
 #include "Storage.h"
@@ -16,7 +17,7 @@ HaskellObj
 rts_mkAddr (HsAddr a)
 {
   StgClosure *p = (StgClosure *)allocate(sizeofW(StgHeader)+1);
-  p->header.info = Azh_con_info;
+  SET_HDR(p, Azh_con_info, CCS_SYSTEM);
   p->payload[0]  = (StgClosure *)a;
   return p;
 }
@@ -26,7 +27,6 @@ rts_getAddr (HaskellObj p)
 {
   if ( p->header.info == Azh_con_info || 
        p->header.info == Azh_static_info ) {
-  
     return (void *)(p->payload[0]);
   } else {
     barf("getAddr: not an Addr");