From 41e7a15b1e09c694ea10483bdff46032e91b64a4 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sat, 13 Aug 2022 16:04:58 -0700
Subject: [PATCH] Fix types for boxed add/subtract, the boxes contain FIXPs not
 pointers

---
 src/arithops.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/arithops.c b/src/arithops.c
index caf8b72..2334966 100644
--- a/src/arithops.c
+++ b/src/arithops.c
@@ -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: