capa/capa51/pProj/capaFunction.c - diff

Return to capaFunction.c CVS log

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

version 1.12, 2000/09/20 17:21:01	version 1.14, 2002/04/23 22:23:46
Line 1611 ArgNode_t *argp;	Line 1611 ArgNode_t *argp;
sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n",FuncStack[Func_idx].s_name);	sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n",FuncStack[Func_idx].s_name);
capa_msg(MESSAGE_ERROR,tmpS);	capa_msg(MESSAGE_ERROR,tmpS);
} else {	} else {
if( FIRST_ARGINT(argp) <= 20 ) {	if( FIRST_ARGINT(argp) <= 12 ) {
resultp->s_type = I_CONSTANT;	resultp->s_type = I_CONSTANT;
l_fac = 1;	l_fac = 1;
for(ii=2; ii <= FIRST_ARGINT(argp); ii++) { l_fac *= ii; }	for(ii=2; ii <= FIRST_ARGINT(argp); ii++) { l_fac *= ii; }
Line 1634 ArgNode_t *argp;	Line 1634 ArgNode_t *argp;
sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n", FuncStack[Func_idx].s_name);	sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n", FuncStack[Func_idx].s_name);
capa_msg(MESSAGE_ERROR,tmpS);	capa_msg(MESSAGE_ERROR,tmpS);
} else {	} else {
if( FIRST_ARGREAL(argp) <= 20.0 ) {	if( FIRST_ARGREAL(argp) <= 13.0 ) {
resultp->s_type = I_CONSTANT;	resultp->s_type = I_CONSTANT;
l_fac = 1;	l_fac = 1;
for(ii=2; ii <= FIRST_ARGREAL(argp); ii++) { l_fac *= ii; }	for(ii=2; ii <= FIRST_ARGREAL(argp); ii++) { l_fac *= ii; }