d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix some compiler warnings.

Browse source
This commit is contained in:
carl 2019-05-11 01:07:00 +08:00
parent e533626413
commit e2d2c11a6e
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lang/basic/src/symbols.c
View file

@ -13,11 +13,6 @@
#include "util.h"
#ifndef NORCSID
static char rcs_id[] = "$Id$" ;
#endif
/* Symboltable management module */
int deftype[128]; /* default type declarer */
@ -32,8 +27,8 @@ void initdeftype(void)
{
int i;
for(i='a';i<='z';i++) deftype[i]= DOUBLETYPE;
for(i='A';i<='Z';i++) deftype[i]= DOUBLETYPE;
for(i='a';i<='z';i++) deftype[(unsigned char)i]= DOUBLETYPE;
for(i='A';i<='Z';i++) deftype[(unsigned char)i]= DOUBLETYPE;
}
@ -223,9 +218,9 @@ void setdefaulttype(int type)
last= *cptr;
if ( !isalpha(last))
error("letter expected");
else for(i=first;i<=last;i++) deftype[i]= type;
else for(i=first;i<=last;i++) deftype[(unsigned char)i]= type;
cptr++;
} else deftype[first]=type;
} else deftype[(unsigned char)first]=type;
if ( *cptr== ',')
{
cptr++;