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

Fix missing return types on functions, convert some functions with always ignored results to void.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 15:08:42 -07:00
parent 65ddb5a968
commit 691645d048
83 changed files with 587 additions and 549 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/eqf.c
View File

@@ -96,7 +96,7 @@ BIGNUM (integer that can't be represented bigger than 32 bits)
/* */
/************************************************************************/
int N_OP_clequal(register int arg1, register int arg2)
LispPTR N_OP_clequal(register int arg1, register int arg2)
{
register int type;
@@ -145,7 +145,7 @@ int N_OP_clequal(register int arg1, register int arg2)
/* */
/************************************************************************/
int N_OP_eqlop(register int arg1, register int arg2)
LispPTR N_OP_eqlop(register int arg1, register int arg2)
{
register int type;
@@ -189,7 +189,7 @@ int N_OP_eqlop(register int arg1, register int arg2)
/* */
/************************************************************************/
N_OP_equal(register int arg1, register int arg2)
LispPTR N_OP_equal(register int arg1, register int arg2)
{
register int type, type2;
@@ -253,7 +253,7 @@ arg2_small:
/* */
/************************************************************************/
N_OP_eqq(register int arg1, register int arg2) /* CL:= opcode 0377 */
LispPTR N_OP_eqq(register int arg1, register int arg2) /* CL:= opcode 0377 */
{
register int type1, type2;