version 1.15, 2000/09/14 20:25:12
|
version 1.16, 2000/09/20 17:21:01
|
Line 964 Symbol *name,*index;int free_symbols;
|
Line 964 Symbol *name,*index;int free_symbols;
|
|
|
key = (char *)capa_malloc(idx_len+leng,1); |
key = (char *)capa_malloc(idx_len+leng,1); |
sprintf(key,"%s[%s]",name->s_name,tmp); |
sprintf(key,"%s[%s]",name->s_name,tmp); |
|
a_p = (Symbol *)NULL; |
a_p = find_arrayid(name->s_name); /* use the array name to search array tree */ |
a_p = find_arrayid(name->s_name); /* use the array name to search array tree */ |
|
if( a_p == NULL ) { |
|
return NULL; |
|
} |
/* did not check for error! */ |
/* did not check for error! */ |
s_p = find_array_by_index(a_p,key); /* use the index portion to search along array linked list */ |
s_p = find_array_by_index(a_p,key); /* use the index portion to search along array linked list */ |
capa_mfree((char *)tmp); capa_mfree((char *)key); |
capa_mfree((char *)tmp); capa_mfree((char *)key); |