Commit 03e2a10d authored by stolz's avatar stolz

[project @ 2004-09-09 11:38:09 by stolz]

Move forkProcess()-prototype to RtsExternal.h where package unix can see it
(avoids an 'implicit declaration' warning there)
parent cb90040a
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: RtsExternal.h,v 1.3 2004/08/21 12:47:17 panne Exp $ * $Id: RtsExternal.h,v 1.4 2004/09/09 11:38:09 stolz Exp $
* *
* (c) The GHC Team, 1998-2004 * (c) The GHC Team, 1998-2004
* *
...@@ -34,6 +34,7 @@ extern I_ resetGenSymZh(void); ...@@ -34,6 +34,7 @@ extern I_ resetGenSymZh(void);
extern int cmp_thread(StgPtr tso1, StgPtr tso2); extern int cmp_thread(StgPtr tso1, StgPtr tso2);
extern int rts_getThreadId(StgPtr tso); extern int rts_getThreadId(StgPtr tso);
extern int forkOS_createThread ( HsStablePtr entry ); extern int forkOS_createThread ( HsStablePtr entry );
extern StgInt forkProcess(HsStablePtr *entry);
/* grimy low-level support functions defined in StgPrimFloat.c */ /* grimy low-level support functions defined in StgPrimFloat.c */
extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e); extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e);
......
...@@ -158,7 +158,6 @@ extern nat RTS_VAR(rts_n_waiting_tasks); ...@@ -158,7 +158,6 @@ extern nat RTS_VAR(rts_n_waiting_tasks);
StgBool rtsSupportsBoundThreads(void); StgBool rtsSupportsBoundThreads(void);
StgBool isThreadBound(StgTSO *tso); StgBool isThreadBound(StgTSO *tso);
StgInt forkProcess(HsStablePtr *entry);
extern SchedulerStatus rts_mainLazyIO(HaskellObj p, /*out*/HaskellObj *ret); extern SchedulerStatus rts_mainLazyIO(HaskellObj p, /*out*/HaskellObj *ret);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment