From 902ebcc2b95707319d37a19d6b23c342cc14b162 Mon Sep 17 00:00:00 2001
From: Ian-Woo Kim <ianwookim@gmail.com>
Date: Mon, 22 May 2023 12:22:33 -0700
Subject: [PATCH] Add missing BCO handling in scavenge_one.
---
rts/sm/Scav.c | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index a09130a0912a..ca40a17632f5 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -1594,6 +1594,14 @@ scavenge_one(StgPtr p)
#endif
break;
+ case BCO: {
+ StgBCO *bco = (StgBCO *)p;
+ evacuate((StgClosure **)&bco->instrs);
+ evacuate((StgClosure **)&bco->literals);
+ evacuate((StgClosure **)&bco->ptrs);
+ break;
+ }
+
case COMPACT_NFDATA:
scavenge_compact((StgCompactNFData*)p);
break;
--
GitLab