Commit 4305e52b authored by simonmar's avatar simonmar
Browse files

[project @ 2005-10-26 13:58:40 by simonmar]

forkOS_createThreadWrapper: oops, better use the result from rts_evalStableIO()
parent 03aaa24e
...@@ -139,7 +139,7 @@ forkOS_createThreadWrapper ( void * entry ) ...@@ -139,7 +139,7 @@ forkOS_createThreadWrapper ( void * entry )
{ {
Capability *cap; Capability *cap;
cap = rts_lock(); cap = rts_lock();
rts_evalStableIO(cap, (HsStablePtr) entry, NULL); cap = rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
rts_unlock(cap); rts_unlock(cap);
return NULL; return NULL;
} }
......
...@@ -159,7 +159,7 @@ forkOS_createThreadWrapper ( void * entry ) ...@@ -159,7 +159,7 @@ forkOS_createThreadWrapper ( void * entry )
{ {
Capability *cap; Capability *cap;
cap = rts_lock(); cap = rts_lock();
rts_evalStableIO(cap, (HsStablePtr) entry, NULL); cap = rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
rts_unlock(cap); rts_unlock(cap);
return 0; return 0;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment