diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-11-07 11:54:30 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-11-07 11:54:30 +0000 |
| commit | 5c42da2ef1a50fc0c47d229743f96f9f6c0dace3 (patch) | |
| tree | b0fd319c48b200d708801e92f443dde973ef42fb | |
| parent | e5d7f9c6013d1be616fa7a54e34e9ae9bac30218 (diff) | |
| download | haskell-5c42da2ef1a50fc0c47d229743f96f9f6c0dace3.tar.gz | |
move newSpark() prototype to RtsExternal.h to avoid warnings
| -rw-r--r-- | includes/RtsExternal.h | 1 | ||||
| -rw-r--r-- | rts/Sparks.h | 4 |
2 files changed, 1 insertions, 4 deletions
diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index d96762020e..8e1a26acab 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -38,6 +38,7 @@ extern int rts_getThreadId(StgPtr tso); extern int forkOS_createThread ( HsStablePtr entry ); extern StgInt forkProcess(HsStablePtr *entry); extern StgBool rtsSupportsBoundThreads(void); +extern StgInt newSpark (StgRegTable *reg, StgClosure *p); /* grimy low-level support functions defined in StgPrimFloat.c */ extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e); diff --git a/rts/Sparks.h b/rts/Sparks.h index 77d280bea8..65db52d830 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -9,10 +9,6 @@ #ifndef SPARKS_H #define SPARKS_H -#if !defined(GRAN) -StgInt newSpark (StgRegTable *reg, StgClosure *p); -#endif - #if defined(PARALLEL_HASKELL) || defined(THREADED_RTS) StgClosure * findSpark (Capability *cap); void initSparkPools (void); |