* Addr_T eval() lkeval.c
* VOID exit() c_library
* int fprintf() c_library
+ * char getSid() lklex.c
* char get() lklex.c
* char getnb() lklex.c
* sym * lkpsym() lksym.c
struct sym *
newsym()
{
- register int c, i, nglob;
+ register unsigned i ;
+ register unsigned nglob ;
+ register int c ;
struct sym *tsp;
struct sym **s;
char id[NCPS];
- getid(id, -1);
+ getSid(id); // old: getid(id, -1);
tsp = lkpsym(id, 1);
c = getnb();get();get();
if (c == 'R') {
#if CASE_SENSITIVE
return (strcmp( p1, p2 ) == 0);
#else
- return (strcmpi( p1, p2 ) == 0);
+ return (as_strcmpi( p1, p2 ) == 0);
#endif
}
new(n)
unsigned int n;
{
- register char *p,*q;
- register unsigned int i;
+ register char *p;
- if ((p = (char *) malloc(n)) == NULL) {
+ if ((p = (char *) calloc(n, 1)) == NULL) {
fprintf(stderr, "Out of space!\n");
lkexit(1);
}
- for (i=0,q=p; i<n; i++) {
- *q++ = 0;
- }
return (p);
}