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

Don't use "id" for a variable shadowing the global "id" identification string.

Browse Source 
modified:   src/chatter.c
	modified:   src/dir.c
	modified:   src/ejlisp.c
	modified:   src/osmsg.c
	modified:   src/picture.c
This commit is contained in:
Nick Briggs
2020-11-28 18:16:59 -08:00
parent fea01d8b69
commit 90cca21044
5 changed files with 14 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/ejlisp.c
View File

@@ -72,7 +72,7 @@ static char *id = "$Id: ejlisp.c,v 1.2 1999/01/03 02:06:58 sybalsky Exp $ Copyri
OneDArray *arrayp; \
char *base; \
short *sbase; \
int id; \
int idx; \
\
arrayp = (OneDArray *)(Addr68k_from_LADDR((unsigned int)Lisp)); \
\
@@ -80,7 +80,7 @@ static char *id = "$Id: ejlisp.c,v 1.2 1999/01/03 02:06:58 sybalsky Exp $ Copyri
case THIN_CHAR_TYPENUMBER: \
base = \
((char *)(Addr68k_from_LADDR((unsigned int)arrayp->base))) + ((int)(arrayp->offset)); \
for (id = 0; id < Len; id++) base[id] = C[id]; \
for (idx = 0; idx < Len; idx++) base[idx] = C[idx]; \
arrayp->fillpointer = Len; \
break; \
\
@@ -88,7 +88,7 @@ static char *id = "$Id: ejlisp.c,v 1.2 1999/01/03 02:06:58 sybalsky Exp $ Copyri
sbase = \
((short *)(Addr68k_from_LADDR((unsigned int)arrayp->base))) + ((int)(arrayp->offset)); \
base = (char *)sbase; \
for (id = 0; id < Len * 2; id++) base[id] = C[id]; \
for (idx = 0; idx < Len * 2; idx++) base[idx] = C[idx]; \
arrayp->fillpointer = Len; \
break; \
\