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