ghc/rts/RtsAPIDeprec.c

   1 /* ----------------------------------------------------------------------------
   2  * $Id: RtsAPIDeprec.c,v 1.2 2001/08/14 13:40:09 sewardj 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   p->header.info = Azh_con_info;
  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
  31     return (void *)(p->payload[0]);
  32   } else {
  33     barf("getAddr: not an Addr");
  34   }
  35 }