github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 15:57:13 +00:00
Code Issues Projects Releases Wiki Activity

Fix types for boxed add/subtract, the boxes contain FIXPs not pointers

Browse Source
This commit is contained in:
Nick Briggs 2022-08-13 16:04:58 -07:00
parent 5a7cfcbbe7
commit 41e7a15b1e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/arithops.c
View File

@ -331,7 +331,7 @@ LispPTR N_OP_boxiplus(LispPTR a, LispPTR tos) {
if (GetTypeNumber(a) == TYPE_FIXP) {
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) += arg2;
*((int *)Addr68k_from_LADDR(a)) += arg2;
return (a);
}
bad:
@ -354,7 +354,7 @@ LispPTR N_OP_boxidiff(LispPTR a, LispPTR tos) {
if (GetTypeNumber(a) == TYPE_FIXP) {
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) -= arg2;
*((int *)Addr68k_from_LADDR(a)) -= arg2;
return (a);
}
bad: