BAD COMMIT: Make a temporary bug

gap-system · Mar 24, 2018 · 1832e2d · 1832e2d
1 parent 9bd83e8
commit 1832e2d
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/gap.c b/src/gap.c
@@ -1871,12 +1871,19 @@ Obj FuncGASMAN_MESSAGE_STATUS( Obj self )
 
 Obj FuncGASMAN_LIMITS( Obj self )
 {
+  // XXX : Temporarily make buggy
   Obj list;
   list = NEW_PLIST_IMM(T_PLIST_CYC, 3);
   SET_LEN_PLIST(list,3);
-  SET_ELM_PLIST(list, 1, INTOBJ_INT(SyStorMin));
-  SET_ELM_PLIST(list, 2, INTOBJ_INT(SyStorMax));
-  SET_ELM_PLIST(list, 3, INTOBJ_INT(SyStorKill));
+  Obj* obj = ADDR_OBJ(list);
+  obj[1] = INTOBJ_INT(SyStorMin);
+  obj[2] = INTOBJ_INT(SyStorMax);
+  // Woops, did an allocation!
+  Obj templist = NEW_PLIST_IMM(T_PLIST_CYC, 2);
+  obj[3] = INTOBJ_INT(SyStorKill);
+  //SET_ELM_PLIST(list, 1, INTOBJ_INT(SyStorMin));
+  //SET_ELM_PLIST(list, 2, INTOBJ_INT(SyStorMax));
+  //SET_ELM_PLIST(list, 3, INTOBJ_INT(SyStorKill));
   return list;
 }