Commit 9258ce7c authored by Ben Gamari's avatar Ben Gamari 🐢

XXX: Disable selector optimization and shortcutting

parent a4a52dfd
...@@ -816,6 +816,9 @@ loop: ...@@ -816,6 +816,9 @@ loop:
StgClosure *r; StgClosure *r;
const StgInfoTable *i; const StgInfoTable *i;
r = ((StgInd*)q)->indirectee; r = ((StgInd*)q)->indirectee;
// XXX: disable shortcutting
copy(p,info,q,sizeofW(StgInd),gen_no);
return;
if (GET_CLOSURE_TAG(r) == 0) { if (GET_CLOSURE_TAG(r) == 0) {
i = r->header.info; i = r->header.info;
if (IS_FORWARDING_PTR(i)) { if (IS_FORWARDING_PTR(i)) {
...@@ -870,6 +873,8 @@ loop: ...@@ -870,6 +873,8 @@ loop:
return; return;
case IND: case IND:
// XXX: disable shortcutting
copy(p,info,q,sizeofW(StgInd),gen_no);
// follow chains of indirections, don't evacuate them // follow chains of indirections, don't evacuate them
q = ((StgInd*)q)->indirectee; q = ((StgInd*)q)->indirectee;
*p = q; *p = q;
...@@ -1238,6 +1243,9 @@ selector_loop: ...@@ -1238,6 +1243,9 @@ selector_loop:
goto bale_out; goto bale_out;
} }
// XXX: Disable selector optimization
goto bale_out;
info = INFO_PTR_TO_STRUCT(info); info = INFO_PTR_TO_STRUCT(info);
switch (info->type) { switch (info->type) {
case WHITEHOLE: case WHITEHOLE:
......
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