changed def of io flags. DLW

SCCS-vsn: usr.bin/f77/libI77/util.c 1.7
SCCS-vsn: usr.bin/f77/libI77/libI66.c 1.3

diff --git a/usr/src/usr.bin/f77/libI77/libI66.c b/usr/src/usr.bin/f77/libI77/libI66.c
index da03dc7..be920bb 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/libI66.c
+++ b/usr/src/usr.bin/f77/libI77/libI66.c
@@ -1,9 +1,13 @@
 /*
  * set flag to initialize fortran-66 mods
 /*
  * set flag to initialize fortran-66 mods

- *     @(#)libI66.c    1.2
+ *     @(#)libI66.c    1.3

  * usage: f77 ... -lI66 ...
  */
 
  * usage: f77 ... -lI66 ...
  */
 

-short ccntrl_ = 1;     /* carriage control on all units */
-short blzero_ = 1;     /* blanks are zero input, 0 => 0.0 on output */
-short opnbof_ = 1;     /* open files at beginning */
+#include       "fiodefs.h"
+
+struct ioiflg  ioiflg_ = {
+        1,             /* open files at beginning */
+        1,             /* carriage control on all units */
+        1,             /* blanks are zero on input; 0 => 0.0 on output */
+};

diff --git a/usr/src/usr.bin/f77/libI77/util.c b/usr/src/usr.bin/f77/libI77/util.c
index eb22cb5..1d6bf8b 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/util.c
+++ b/usr/src/usr.bin/f77/libI77/util.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_util[] = "@(#)util.c   1.6";
+char id_util[] = "@(#)util.c   1.7";

  *
  * utility routines
  */
  *
  * utility routines
  */


@@ -19,8 +19,8 @@ ini_std(u,F,w) FILE *F;
        p->ufmt = YES;
        p->uwrt = (w==WRITE)? YES : NO;
        p->uscrtch = p->uend = NO;
        p->ufmt = YES;
        p->uwrt = (w==WRITE)? YES : NO;
        p->uscrtch = p->uend = NO;

-       p->ublnk = blzero_;
-       p->uprnt = ccntrl_;
+       p->ublnk = blzero;
+       p->uprnt = ccntrl;

        p->url = 0;
        p->uinode = finode(F);
 }
        p->url = 0;
        p->uinode = finode(F);
 }