github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 00:22:59 +00:00
Code Issues Projects Releases Wiki Activity

Remove unused and incorrectly declared CIntToSmallp() function.

Browse Source 
Fix warning for "control may reach end of non-void function".

	modified:   src/lisp2c.c
This commit is contained in:
Nick Briggs 2020-08-11 15:29:57 -07:00
parent aac75b633c
commit 5d7e281aa6
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/lisp2c.c
View File

@ -81,6 +81,8 @@ int LispIntToCInt(LispPTR lispint) {
char msg[200];
sprintf(msg, "Arg 0x%x isn't a lisp integer.", lispint);
error(msg);
/* NOTREACHED */
return(0);
}
break;
}
@ -98,13 +100,3 @@ LispPTR CIntToLispInt(int cint) {
return (S_NEGATIVE | (0xFFFF & cint));
}
}
DLword CIntToSmallp(int cint) {
if (abs(cint) > 0xFFFF) { /* its a fixp! */
error("Arg not a Smallp.\n");
} else if (cint >= 0) { /* its a positive smallp! */
return (S_POSITIVE | cint);
} else { /* its a negative smallp! */
return (S_NEGATIVE | (0xFFFF & cint));
}
}