capa/capa51/pProj/com.c - diff

Return to com.c CVS log

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:

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.4
changed lines
	Added in v.1.5