From 5c42da2ef1a50fc0c47d229743f96f9f6c0dace3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 7 Nov 2006 11:54:30 +0000 Subject: [PATCH] move newSpark() prototype to RtsExternal.h to avoid warnings --- includes/RtsExternal.h | 1 + rts/Sparks.h | 4 ---- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index d967620..8e1a26a 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 77d280b..65db52d 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); -- 1.7.10.4