From 6fdb54f2c813df8266a342a7bd611ad469256723 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Fri, 13 Jan 2023 15:43:36 -0800 Subject: [PATCH] Minor cleanup of some casts. --- inc/arith.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/inc/arith.h b/inc/arith.h index 71a815a..5e858ca 100644 --- a/inc/arith.h +++ b/inc/arith.h @@ -101,8 +101,8 @@ static inline LispPTR GetPosSmallp(unsigned long x) { int *fixpp; \ /* arg is FIXP, call createcell */ \ fixpp = (int *)createcell68k(TYPE_FIXP); \ - *((int *)fixpp) = (int)(arg); \ - (result) = (LAddrFromNative(fixpp)); \ + *fixpp = (int)(arg); \ + (result) = LAddrFromNative(fixpp); \ break; \ } \ } \ @@ -117,7 +117,7 @@ static inline LispPTR GetPosSmallp(unsigned long x) { int *fixpp; \ /* arg is FIXP, call createcell */ \ fixpp = (int *)createcell68k(TYPE_FIXP); \ - *fixpp = arg; \ + *fixpp = (int)(arg); \ return (LAddrFromNative(fixpp)); \ } \ } \