godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1 - Added comment to indicate awareness of lint complaints.

Browse Source 
2 - Added/Removed some casts used with core allocation/deallocation.
This commit is contained in:
keie 1985-01-21 14:23:49 +00:00
parent 9ef0eefc55
commit 858bd446fd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lang/basic/src.old/symbols.c
View File

@ -41,10 +41,10 @@ char *str;
s= s->nextsym; s= s->nextsym;
} }
/* not found, create an emty slot */ /* not found, create an emty slot */
s= (Symbol *) salloc(sizeof(Symbol)); /*NOSTRICT*/ s= (Symbol *) salloc(sizeof(Symbol));
s->symtype= DEFAULTTYPE; s->symtype= DEFAULTTYPE;
s->nextsym= firstsym; s->nextsym= firstsym;
s->symname= (char *) salloc(strlen(str)+1); s->symname= (char *) salloc((unsigned)(strlen(str)+1));
strcpy(s->symname,str); strcpy(s->symname,str);
firstsym= s; firstsym= s;
if(debug) printf("%s allocated\n",str); if(debug) printf("%s allocated\n",str);
@ -214,7 +214,7 @@ int type;
while(s) while(s)
{ {
firstsym = s->nextsym; firstsym = s->nextsym;
free(s); /*NOSTRICT*/ free((char *)s);
s= firstsym; s= firstsym;
} }
firstsym= alternate; firstsym= alternate;