1 /* ----------------------------------------------------------------------------
2 * $Id: RtsAPIDeprec.c,v 1.3 2001/11/14 16:34:22 simonmar Exp $
4 * (c) The GHC Team, 1998-2001
6 * RTS API functions that are deprecated
8 * --------------------------------------------------------------------------*/
10 #include "PosixSource.h"
19 StgClosure *p = (StgClosure *)allocate(sizeofW(StgHeader)+1);
20 SET_HDR(p, Azh_con_info, CCS_SYSTEM);
21 p->payload[0] = (StgClosure *)a;
26 rts_getAddr (HaskellObj p)
28 if ( p->header.info == Azh_con_info ||
29 p->header.info == Azh_static_info ) {
30 return (void *)(p->payload[0]);
32 barf("getAddr: not an Addr");