projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Build haskell98 and haskell2010 with stage2
[ghc-hetmet.git]
/
rts
/
RtsAPI.c
diff --git
a/rts/RtsAPI.c
b/rts/RtsAPI.c
index
2479f20
..
53628dc
100644
(file)
--- a/
rts/RtsAPI.c
+++ b/
rts/RtsAPI.c
@@
-394,7
+394,6
@@
createIOThread (Capability *cap, nat stack_size, StgClosure *closure)
{
StgTSO *t;
t = createThread (cap, stack_size);
{
StgTSO *t;
t = createThread (cap, stack_size);
- pushClosure(t, (W_)&stg_noforceIO_info);
pushClosure(t, (W_)&stg_ap_v_info);
pushClosure(t, (W_)closure);
pushClosure(t, (W_)&stg_enter_info);
pushClosure(t, (W_)&stg_ap_v_info);
pushClosure(t, (W_)closure);
pushClosure(t, (W_)&stg_enter_info);
@@
-510,7
+509,7
@@
rts_evalLazyIO_ (Capability *cap, HaskellObj p, unsigned int stack_size,
void
rts_checkSchedStatus (char* site, Capability *cap)
{
void
rts_checkSchedStatus (char* site, Capability *cap)
{
- SchedulerStatus rc = cap->running_task->stat;
+ SchedulerStatus rc = cap->running_task->incall->stat;
switch (rc) {
case Success:
return;
switch (rc) {
case Success:
return;
@@
-529,7
+528,7
@@
rts_checkSchedStatus (char* site, Capability *cap)
SchedulerStatus
rts_getSchedStatus (Capability *cap)
{
SchedulerStatus
rts_getSchedStatus (Capability *cap)
{
- return cap->running_task->stat;
+ return cap->running_task->incall->stat;
}
Capability *
}
Capability *