capa/capa51/pProj/capaFunction.c - diff

Return to capaFunction.c CVS log

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

version 1.13, 2000/12/13 17:15:54	version 1.15, 2002/09/24 15:10:40
Line 773 ArgNode_t *argp;	Line 773 ArgNode_t *argp;
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:
leng = strlen(FIRST_ARGSTR(argp));	leng = strlen(FIRST_ARGSTR(argp));
if( (index(FIRST_ARGSTR(argp), ' ') != NULL) ) {	if( (index(FIRST_ARGSTR(argp), ',') != NULL) ) {
sscanf(FIRST_ARGSTR(argp),"%ld,%ld", &seed1, &seed2);	sscanf(FIRST_ARGSTR(argp),"%ld,%ld", &seed1, &seed2);
setall(seed1,seed2);	setall(seed1,seed2);
}	}
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) <= 13 ) {	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; }