summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorUbuntu <ubuntu@ip-172-31-25-209.ec2.internal>2023-04-17 21:05:03 +0000
committerBen Gamari <ben@smart-cactus.org>2023-04-24 06:04:18 -0400
commita419561bc4223537de6a13b860886f64965533e4 (patch)
treed0bb13bb2b4a3623bd0d4f0f2eac20b48b609c48
parent022d958bd6476d97602ae673840120b706c6bcdb (diff)
downloadhaskell-a419561bc4223537de6a13b860886f64965533e4.tar.gz
Disable selector optimisation
-rw-r--r--rts/sm/Evac.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 1ee615908a..fb9e031905 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -974,7 +974,8 @@ loop:
return;
case THUNK_SELECTOR:
- eval_thunk_selector(p, (StgSelector *)q, true);
+ copy(p,info,q,THUNK_SELECTOR_sizeW(),gen_no);
+ //eval_thunk_selector(p, (StgSelector *)q, true);
return;
case IND: