github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-09 09:41:38 +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

6
src/gcfinal.c
View File

@@ -63,6 +63,7 @@ static char *id = "$Id: gcfinal.c,v 1.3 1999/05/31 23:35:31 sybalsky Exp $ Copyr
#include "ifpage.h"
#include "gc.h"
#include "array.h"
#include <stdio.h>
#ifdef NEVER
#define GetSegnuminColl(entry1) ((entry1 & 0x01fe) >> 1) /* segnum field */
@@ -121,10 +122,11 @@ struct buf {
};
#endif /* BYTESWAP */
void printarrayblock(LispPTR base);
/************* The following procedure is common !! **************************/
integerlength(unsigned int n)
int integerlength(unsigned int n)
{int cnt;
if (n <= 2)
return(n);
@@ -589,7 +591,7 @@ LispPTR reclaimstackp (LispPTR ptr) /* This is the entry function */
/* */
/************************************************************************/
printarrayblock(LispPTR base)
void printarrayblock(LispPTR base)
{
struct arrayblock *bbase, *btrailer, *ptrailer;
struct arrayblock *bfwd, *bbwd, *rbase;