capa/capa51/pProj/capaUnit.c - diff

Return to capaUnit.c CVS log

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

version 1.12, 2004/03/26 20:02:03	version 1.13, 2005/02/15 22:15:05
Line 727 process_op(int op)	Line 727 process_op(int op)
}	}
}	}

void	Unit_t*
process_utree(Unit_t *t)	process_utree(Unit_t *t)
{	{
Ptopidx=0;	Ptopidx=0;
postwalk_utree(t);	postwalk_utree(t);
if( Ptopidx == 1 ) {	if( Ptopidx == 1 ) {
/* printf("Correctly parsed!\n"); */	//fprintf(stderr,"Correctly parsed!\n");
printf("Unit:%s\n",Sbuf);	//fprintf(stderr,"Unit:%s\n",Sbuf);
simplify_unit(Pstack[Ptopidx]);	simplify_unit(Pstack[Ptopidx]);
Pstack[Ptopidx]->u_symbol[0]='\0';	//Pstack[Ptopidx]->u_symbol[0]='\0';
/sprintf(Pstack[Ptopidx]->u_symbol,"");/	//fprintf(stderr,Pstack[Ptopidx]->u_symbol,"");
print_unit_t(Pstack[Ptopidx]);	print_unit_t(Pstack[Ptopidx]);
u_find_name(Pstack[Ptopidx]);	//u_find_name(Pstack[Ptopidx]);
print_matches(Pstack[Ptopidx]);	//print_matches(Pstack[Ptopidx]);
free_utree(t);	return(Pstack[Ptopidx]);
	//free_utree(t);
}	}
	return(t);
}	}

/* ============================================================== */	/* ============================================================== */