Although an unlikely case, LispNumToCInt() should handle negative Sma…

…llP numbers correctly
Interlisp · Nov 17, 2023 · 56e7591 · 56e7591
1 parent 28d7d5e
commit 56e7591
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/inc/locfile.h b/inc/locfile.h
@@ -194,8 +194,9 @@ do  {				\
 #endif /* min */
 
 #define	LispNumToCInt(Lisp)					\
-	( (((Lisp) & SEGMASK) == S_POSITIVE) ?                  \
-          ((Lisp) & 0xFFFF) : (*((int *)(NativeAligned4FromLAddr(Lisp)))) )
+       ( (((Lisp) & SEGMASK) == S_POSITIVE) ? ((Lisp) & 0xFFFF) : \
+          (((Lisp) & SEGMASK) == S_NEGATIVE) ? ((Lisp) | 0xFFFF0000) : \
+          (*((int *)(NativeAligned4FromLAddr(Lisp)))) )
 
 #define	UPLOWDIFF	0x20