projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-02-16 11:33:44 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
RtsAPI.c
diff --git
a/ghc/rts/RtsAPI.c
b/ghc/rts/RtsAPI.c
index
166778e
..
4ca1225
100644
(file)
--- a/
ghc/rts/RtsAPI.c
+++ b/
ghc/rts/RtsAPI.c
@@
-430,11
+430,12
@@
rts_evalStableIO (HsStablePtr s, /*out*/HsStablePtr *ret)
StgTSO* tso;
StgClosure *p, *r;
SchedulerStatus stat;
StgTSO* tso;
StgClosure *p, *r;
SchedulerStatus stat;
+ Capability *cap = rtsApiCapability;
+ rtsApiCapability = NULL;
p = (StgClosure *)deRefStablePtr(s);
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
p = (StgClosure *)deRefStablePtr(s);
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
- stat = scheduleWaitThread(tso,&r,rtsApiCapability);
- rtsApiCapability = NULL;
+ stat = scheduleWaitThread(tso,&r,cap);
if (stat == Success && ret != NULL) {
ASSERT(r != NULL);
if (stat == Success && ret != NULL) {
ASSERT(r != NULL);