Add missing CHANGED_BAG in PushValue

gap-system · Jan 21, 2019 · f56a68c · f56a68c
1 parent a80fe12
commit f56a68c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/code.c b/src/code.c
@@ -520,8 +520,12 @@ static Int PushValue(Obj val)
  Obj values = header->values;
  if (!values) {
  values = NEW_PLIST(T_PLIST, 4);
+ // Recalculate header in case NEW_PLIST caused a GC
  header = (BodyHeader *)STATE(PtrBody);
  header->values = values;
+ GAP_ASSERT(STATE(PtrBody) == (Stat *)PTR_BAG(BODY_FUNC(CURR_FUNC())));
+ // This is the bag PtrBody points at
+ CHANGED_BAG(BODY_FUNC(CURR_FUNC()));
  }
  return PushPlist(values, val);
 }