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

Add missing type specifiers which defaulted to 'int'.

Browse Source 
modified:   ../src/bbtsub.c
	modified:   ../src/ldeboot.c
	modified:   ../src/lineblt8.c
	modified:   ../src/loopsops.c
This commit is contained in:
Nick Briggs 2017-07-04 14:12:01 -07:00
parent c06ba98144
commit 415a2192de
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/bbtsub.c
View File

@ -942,7 +942,7 @@ LispPTR bitshade_bitmap(LispPTR *args) {
texture = args[0];
{
register temp;
register int temp;
temp = GetTypeNumber(texture);
if (((temp == TYPE_LITATOM) && (texture != NIL_PTR)) || (temp == TYPE_LISTP)) {
PUNT_TO_BLTSHADEBITMAP;

2
src/ldeboot.c
View File

@ -69,7 +69,7 @@ char filetorun[30];
/* */
/************************************************************************/
main(int argc, char *argv[])
int main(int argc, char *argv[])
{
char Earg[30], Ename[30], **newargv;
int i;

8
src/lineblt8.c
View File

@ -41,7 +41,7 @@ unsigned int BMask_tbl[] = {0xf, 7, 3, 1};
**************************************************************/
#define WriteLongW(srcpattern, destptr, op1, op2) \
{ \
register cnt; \
register int cnt; \
register u_char *des, *src; \
for (cnt = 0, des = (u_char *)destptr, src = (u_char *)(&(srcpattern)); cnt < 4; \
cnt++, des++, src++) \
@ -152,7 +152,7 @@ void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, regi
{
static unsigned char beforecolor0 = 0;
static unsigned char beforecolor1 = 0;
static color_array[COLOR8ARRAYSIZE];
static int color_array[COLOR8ARRAYSIZE];
extern DLword REPLACE_atom;
extern DLword INPUT_atom;
@ -163,14 +163,14 @@ void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, regi
DLword *baseword; /* Assume dest word always quad aligned */
if (sourcetype == INVERT_atom) {
register tempcol;
register int tempcol;
tempcol = color0;
color0 = color1;
color1 = tempcol;
}
if ((beforecolor0 != color0) || (beforecolor1 != color1)) {
/* making color-mapped array */
register i;
register int i;
register u_int longcol0, longcol1;
beforecolor0 = color0;

4
src/loopsops.c
View File

@ -191,7 +191,7 @@ LispPTR LCFetchMethodOrHelp(register LispPTR object, register LispPTR selector)
LispPTR supers = ((struct LCClass *)Addr68k_from_LADDR(cur_class))->supers;
for (;;) {
register i = 0;
register int i = 0;
register LispPTR val;
register LispPTR *selectorptr;
register struct LCClass *classptr;
@ -241,7 +241,7 @@ LispPTR LCFetchMethod(register LispPTR class, register LispPTR selector) {
LispPTR supers = ((struct LCClass *)Addr68k_from_LADDR(cur_class))->supers;
for (;;) {
register i = 0;
register int i = 0;
register LispPTR val;
register struct LCClass *classptr;
register LispPTR *selectorptr;