1 /* ----------------------------------------------------------------------------
2 * $Id: RtsAPIDeprec.c,v 1.1 2001/01/11 17:25:56 simonmar Exp $
4 * (c) The GHC Team, 1998-2001
6 * RTS API functions that are deprecated
8 * --------------------------------------------------------------------------*/
18 StgClosure *p = (StgClosure *)allocate(sizeofW(StgHeader)+1);
19 p->header.info = Azh_con_info;
20 p->payload[0] = (StgClosure *)a;
25 rts_getAddr (HaskellObj p)
27 if ( p->header.info == Azh_con_info ||
28 p->header.info == Azh_static_info ) {
30 return (void *)(p->payload[0]);
32 barf("getAddr: not an Addr");