diff --git a/src/gap.c b/src/gap.c index abda8319b9..427382ec23 100644 --- 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; }