[LON-CAPA-cvs] cvs: capa /capa51/pProj capaFunction.c

[albertel]

albertel		Tue Apr 23 18:23:46 2002 EDT

  Modified files:              
    /capa/capa51/pProj	capaFunction.c 
  Log:
  - we overflow at 12 not 13
  
  
  
Index: capa/capa51/pProj/capaFunction.c
diff -u capa/capa51/pProj/capaFunction.c:1.13 capa/capa51/pProj/capaFunction.c:1.14
--- capa/capa51/pProj/capaFunction.c:1.13	Wed Dec 13 12:15:54 2000
+++ capa/capa51/pProj/capaFunction.c	Tue Apr 23 18:23:46 2002
@@ -1611,7 +1611,7 @@
                                 sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n",FuncStack[Func_idx].s_name);
                                 capa_msg(MESSAGE_ERROR,tmpS);
                               } else {
-                                if( FIRST_ARGINT(argp) <= 13 ) {
+                                if( FIRST_ARGINT(argp) <= 12 ) {
                                   resultp->s_type =  I_CONSTANT;
                                   l_fac = 1;
                                   for(ii=2; ii <= FIRST_ARGINT(argp); ii++) { l_fac *= ii;  }