ANSI, const -> constant

SCCS-vsn: usr.bin/f77/include.tahoe/defines.h 5.2

diff --git a/usr/src/usr.bin/f77/include.tahoe/defines.h b/usr/src/usr.bin/f77/include.tahoe/defines.h
index 0ae763e..1d6a19a 100644 (file)
--- a/usr/src/usr.bin/f77/include.tahoe/defines.h
+++ b/usr/src/usr.bin/f77/include.tahoe/defines.h
@@ -223,7 +223,7 @@ typedef long int ftnint;
 #define ISERROR(z) (z->tag==TERROR)
 #define ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)
 #define ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)
 #define ISERROR(z) (z->tag==TERROR)
 #define ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)
 #define ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)

-#define ISONE(z) (ISICON(z) && z->constblock.const.ci==1)
+#define ISONE(z) (ISICON(z) && z->constblock.constant.ci==1)

 #define INT(z) ONEOF(z, MSKINT|MSKCHAR)
 #define ICON(z) mkintcon( (ftnint)(z) )
 
 #define INT(z) ONEOF(z, MSKINT|MSKCHAR)
 #define ICON(z) mkintcon( (ftnint)(z) )