capa/capa51/pProj/capaUnit.c - diff

Return to capaUnit.c CVS log

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

version 1.11, 2000/09/20 19:03:09	version 1.12, 2004/03/26 20:02:03
Line 781 int check_correct_unit(char *u_symb,Uni	Line 781 int check_correct_unit(char *u_symb,Uni
(Pstack[Ptopidx]->u_count == t->u_count) ) { /* has unit */	(Pstack[Ptopidx]->u_count == t->u_count) ) { /* has unit */
*scale = units_ratio(Pstack[Ptopidx], t);	*scale = units_ratio(Pstack[Ptopidx], t);
if( *scale == 0.0 ) {	if( *scale == 0.0 ) {
result = UNIT_FAIL;	result = UNIT_IRRECONCIBLE;
}	}
free_utree(ap);	free_utree(ap);
} else {	} else {
result = UNIT_FAIL;	result = UNIT_INVALID_STUDENT3;
}	}
} else { /* invalid unit representation */	} else { /* invalid unit representation */
result = UNIT_FAIL;	result = UNIT_INVALID_STUDENT2;
}	}
} else {	} else {
result = UNIT_FAIL;	result = UNIT_INVALID_STUDENT1;
}	}
#ifdef UNIT_DBUG	#ifdef UNIT_DBUG
fclose(ufp);	fclose(ufp);