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

Minor cleanup of some casts.

Browse Source
This commit is contained in:
Nick Briggs 2023-01-13 15:43:36 -08:00
parent 336c13369a
commit 6fdb54f2c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
inc/arith.h
View File

@ -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)); \
} \
} \