ghc/rts/RtsAPIDeprec.c

   1 /* ----------------------------------------------------------------------------
   2  * $Id: RtsAPIDeprec.c,v 1.3 2001/11/14 16:34:22 simonmar Exp $
   3  *
   4  * (c) The GHC Team, 1998-2001
   5  *
   6  * RTS API functions that are deprecated
   7  *
   8  * --------------------------------------------------------------------------*/
   9
  10 #include "PosixSource.h"
  11 #include "Rts.h"
  12 #include "RtsUtils.h"
  13 #include "Storage.h"
  14 #include "Prelude.h"
  15
  16 HaskellObj
  17 rts_mkAddr (HsAddr a)
  18 {
  19   StgClosure *p = (StgClosure *)allocate(sizeofW(StgHeader)+1);
  20   SET_HDR(p, Azh_con_info, CCS_SYSTEM);
  21   p->payload[0]  = (StgClosure *)a;
  22   return p;
  23 }
  24
  25 HsAddr
  26 rts_getAddr (HaskellObj p)
  27 {
  28   if ( p->header.info == Azh_con_info ||
  29        p->header.info == Azh_static_info ) {
  30     return (void *)(p->payload[0]);
  31   } else {
  32     barf("getAddr: not an Addr");
  33   }
  34 }