fix returning 'void *' from a function with return type 'int' makes i…

…nteger from pointer without a cast [-Wint-conversion]
euslisp · Dec 9, 2024 · 1419f61 · 1419f61
1 parent 645dd1e
commit 1419f61
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lisp/c/sysfunc.c b/lisp/c/sysfunc.c
@@ -113,10 +113,10 @@ register pointer p;
 #if Solaris2
   if ((eusinteger_t)p<(eusinteger_t)_end) return(NULL);
 #elif sun3 || sun4 || news || (i386 && (!Cygwin && !Darwin)) || alpha || mips /* Cygwin does not have edata */
-  if ((eusinteger_t)p<(eusinteger_t)edata) return(NULL);
+  if ((eusinteger_t)p<(eusinteger_t)edata) return((int)NULL);
 #endif
 #if sun4 || vax || i386 
-  if ((&ctx->stack[0]<=p) && (p<= &ctx->stack[MAXSTACK])) return(NULL);
+  if (((pointer)(&ctx->stack[0])<=p) && (p<= (pointer)(&ctx->stack[MAXSTACK]))) return((int)NULL);
 #endif
   if (issymbol(p)) return((long int)NULL);
 #if (WORD_SIZE == 64)