From f89f326b78bad3cfd54f25ce8ab43637cd9d0d54 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Wed, 29 Apr 1981 00:42:49 -0800 Subject: [PATCH] increment at bottom of loop is done in base type (integer). SCCS-vsn: usr.bin/pascal/src/forop.c 1.8 --- usr/src/usr.bin/pascal/src/forop.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/usr/src/usr.bin/pascal/src/forop.c b/usr/src/usr.bin/pascal/src/forop.c index c6579f82df..aacfb2702e 100644 --- a/usr/src/usr.bin/pascal/src/forop.c +++ b/usr/src/usr.bin/pascal/src/forop.c @@ -1,6 +1,6 @@ /* Copyright (c) 1979 Regents of the University of California */ -static char sccsid[] = "@(#)forop.c 1.7 %G%"; +static char sccsid[] = "@(#)forop.c 1.8 %G%"; #include "whoami.h" #include "0.h" @@ -282,8 +282,8 @@ nogood: precheck( fortype , "_RANG4" , "_RSNG4" ); } rvalue( lhs , NIL , RREQ ); - putleaf( P2ICON , 1 , 0 , forctype , 0 ); - putop( ( arg[0] == T_FORU ? P2PLUS : P2MINUS ) , forctype ); + putleaf( P2ICON , 1 , 0 , P2INT , 0 ); + putop( ( arg[0] == T_FORU ? P2PLUS : P2MINUS ) , P2INT ); if ( opt( 't' ) ) { postcheck( fortype ); } -- 2.20.1