From: simonmar <unknown>
Date: Fri, 15 Oct 2004 07:48:29 +0000 (+0000)
Subject: [project @ 2004-10-15 07:48:29 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1501
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7763a8e410ac04a20e97e0650599988abd91c9d8

[project @ 2004-10-15 07:48:29 by simonmar]
Declare rtsSupportsBoundThreads() here.

This change should have gone through with the threaded RTS I/O changes
yesterday.
---

diff --git a/ghc/includes/RtsExternal.h b/ghc/includes/RtsExternal.h
index 96c92d2..ad47e82 100644
--- a/ghc/includes/RtsExternal.h
+++ b/ghc/includes/RtsExternal.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsExternal.h,v 1.5 2004/10/04 05:54:04 dons Exp $
+ * $Id: RtsExternal.h,v 1.6 2004/10/15 07:48:29 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2004
  *
@@ -38,6 +38,7 @@ extern int cmp_thread(StgPtr tso1, StgPtr tso2);
 extern int rts_getThreadId(StgPtr tso);
 extern int forkOS_createThread ( HsStablePtr entry );
 extern StgInt forkProcess(HsStablePtr *entry);
+extern StgBool rtsSupportsBoundThreads(void);
 
 /* grimy low-level support functions defined in StgPrimFloat.c */
 extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e);