SecBSD/xenocara
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sync

Browse source
This commit is contained in:
purplerain 2024-10-06 22:00:57 +00:00
parent 50c8bafd9f
commit ac06c97e30
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
820 changed files with 467502 additions and 386453 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/xedit/lisp/bytecode.c
View file

@ -1117,7 +1117,7 @@ integer:
LispObj *fields = constants[strd];
for (; strf >= 0; strf--)
fields = CDR(fields);
fields = CDR(fields);
strcpy(ptr, " "); ptr += 2;
strcpy(ptr, CAR(fields)->data.atom->key->value);
ptr += strlen(ptr);
@ -1278,7 +1278,7 @@ MakeBytecodeObject(LispCom *com, LispObj *name, LispObj *plist)
}
/* Protect this in case the function is redefined */
for (i = 0; i < com->table.num_bytecodes; i++) {
for (i = 0; i < com->table.num_bytecodes; i++) {
if (code == NIL) {
code = cons = prev = CONS(com->table.bytecodes[i], NIL);
GC_PROTECT(code);
@ -1292,7 +1292,7 @@ MakeBytecodeObject(LispCom *com, LispObj *name, LispObj *plist)
/* Free everything, but the LispCom structure and the generated bytecode */
CompileFreeState(com);
/* Allocate the minimum required number of cons cells to protect objects */
if (!CONSP(code))
code = plist;