[BACK]Return to com.c CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / pProj

Diff for /capa/capa51/pProj/com.c between versions 1.4 and 1.5

version 1.4, 2000/08/07 20:47:29 version 1.5, 2001/10/29 19:36:53
Line 97  static long qrgnin; Line 97  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " GETSD called before random number generator  initialized -- abort!\n");        " GETSD called before random number generator  initialized -- abort!\n");
     exit(0);      exit(0);
 S10:  S10:
Line 192  static long qrgnin; Line 192  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " INITGN called before random number generator  initialized -- abort!\n");        " INITGN called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Line 213  S30: Line 213  S30:
     *(Xlg2+g-1) = mltmod(Xa2w,*(Xlg2+g-1),Xm2);      *(Xlg2+g-1) = mltmod(Xa2w,*(Xlg2+g-1),Xm2);
     goto S50;      goto S50;
 S40:  S40:
     printf("isdtyp not in range in INITGN");      fprintf(stderr,"isdtyp not in range in INITGN");
     exit(1);      exit(1);
 S50:  S50:
     *(Xcg1+g-1) = *(Xlg1+g-1);      *(Xcg1+g-1) = *(Xlg1+g-1);
Line 346  static long qrgnin; Line 346  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " SETANT called before random number generator  initialized -- abort!\n");        " SETANT called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Line 383  static long qrgnin; Line 383  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " SETSD called before random number generator  initialized -- abort!\n");        " SETSD called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.