BAD COMMIT: Make a temporary bug

gap-system · Mar 25, 2018 · 8088880 · 8088880
1 parent 79d9a22
commit 8088880
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/src/gap.c b/src/gap.c
@@ -1873,12 +1873,21 @@ 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);
+  // Just get rid of warning. Bla.
+  (void) templist;
+  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;
 }