capa/capa51/pProj/capaGrammarDef.y - diff

Return to capaGrammarDef.y CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

version 1.14, 2000/08/23 16:55:12	version 1.16, 2000/09/20 17:21:01
Line 250 statement : IDENTIFIER '=' calc_expr	Line 250 statement : IDENTIFIER '=' calc_expr
case IDENTIFIER:	case IDENTIFIER:
case I_VAR: case I_CONSTANT:	case I_VAR: case I_CONSTANT:
case R_VAR: case R_CONSTANT: break;	case R_VAR: case R_CONSTANT: break;
case S_VAR: case S_CONSTANT:	case S_VAR: case S_CONSTANT: /* free up original used spaces */
capa_mfree($1->s_str); $1->s_str = NULL; break;	capa_mfree($1->s_str); $1->s_str = NULL; break;
default: break;	default: break;
}	}
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);