diff options
author | Ubuntu <ubuntu@ip-172-31-25-209.ec2.internal> | 2023-04-17 21:05:03 +0000 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 06:04:18 -0400 |
commit | a419561bc4223537de6a13b860886f64965533e4 (patch) | |
tree | d0bb13bb2b4a3623bd0d4f0f2eac20b48b609c48 | |
parent | 022d958bd6476d97602ae673840120b706c6bcdb (diff) | |
download | haskell-a419561bc4223537de6a13b860886f64965533e4.tar.gz |
Disable selector optimisation
-rw-r--r-- | rts/sm/Evac.c | 3 |
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: |