X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FPrimOps.h;h=cf67e6178a2d643fea4ade56f15aa471b2ca035c;hb=ea067762fb2057e43f25306ee589f56aa21aeb0e;hp=a43105e805d9dfe992bfb7b856d3547c54b70a01;hpb=f05e7d3f77664119bcb0fed7776ad030563de0bb;p=ghc-hetmet.git diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h index a43105e..cf67e61 100644 --- a/ghc/includes/PrimOps.h +++ b/ghc/includes/PrimOps.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.h,v 1.98 2002/10/18 09:51:04 simonmar Exp $ + * $Id: PrimOps.h,v 1.103 2003/07/03 15:14:57 sof Exp $ * * (c) The GHC Team, 1998-2000 * @@ -241,6 +241,11 @@ EXTFUN_RTS(tryPutMVarzh_fast); EXTFUN_RTS(waitReadzh_fast); EXTFUN_RTS(waitWritezh_fast); EXTFUN_RTS(delayzh_fast); +#ifdef mingw32_TARGET_OS +EXTFUN_RTS(asyncReadzh_fast); +EXTFUN_RTS(asyncWritezh_fast); +EXTFUN_RTS(asyncDoProczh_fast); +#endif /* ----------------------------------------------------------------------------- @@ -249,8 +254,9 @@ EXTFUN_RTS(delayzh_fast); EXTFUN_RTS(catchzh_fast); EXTFUN_RTS(raisezh_fast); +EXTFUN_RTS(raiseIOzh_fast); -extern void stg_exit(I_ n) __attribute__ ((noreturn)); +extern void stg_exit(int n) __attribute__ ((noreturn)); /* ----------------------------------------------------------------------------- @@ -276,10 +282,8 @@ EXTFUN_RTS(unblockAsyncExceptionszh_fast); EXTFUN_RTS(myThreadIdzh_fast); EXTFUN_RTS(labelThreadzh_fast); -extern int cmp_thread(const StgTSO *tso1, const StgTSO *tso2); -extern int rts_getThreadId(const StgTSO *tso); -extern void labelThread(StgTSO *tso, char *label); - +extern int cmp_thread(StgPtr tso1, StgPtr tso2); +extern int rts_getThreadId(StgPtr tso); /* ----------------------------------------------------------------------------- Weak Pointer PrimOps.