Temp_label Temp_newlabel(const char *LabelNameSuffix) { char buf[MAX_NAME_LENGTH_OF_LABEL]; sprintf(buf,"Label_%d_%s",labels++,LabelNameSuffix); return Temp_namedlabel(String(buf)); }
Tr_level Tr_outermost(){ if(outermostLevel==NULL){ outermostLevel = (Tr_level)checked_malloc(sizeof(struct Tr_level_)); outermostLevel->parent = NULL; outermostLevel->frame = F_newFrame(Temp_namedlabel("main"), NULL); outermostLevel->depth = 0; } return outermostLevel; }
T_exp F_externalCall(string str, T_expList args) { return T_Call(T_Name(Temp_namedlabel(str)), args); }