diff options
| -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); |