declare init66_ in err.c. DLW

[unix-history] / usr / src / usr.bin / f77 / libI77 / err.c

diff --git a/usr/src/usr.bin/f77/libI77/err.c b/usr/src/usr.bin/f77/libI77/err.c
index 81c317d..f367676 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/err.c
+++ b/usr/src/usr.bin/f77/libI77/err.c
@@ -1,5 +1,5 @@
 /*
 /*

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

  *
  * file i/o error and initialization routines
  */
  *
  * file i/o error and initialization routines
  */


@@ -157,8 +157,9 @@ FILE        *f;
 }
 
 /*initialization routine*/
 }
 
 /*initialization routine*/

+short  init66_;

 f_init()
 f_init()

-{      extern short init66_;
+{

        ini_std(STDERR, stderr, WRITE, 0);
        ini_std(STDIN, stdin, READ, 0);
        ini_std(STDOUT, stdout, WRITE, init66_);
        ini_std(STDERR, stderr, WRITE, 0);
        ini_std(STDIN, stdin, READ, 0);
        ini_std(STDOUT, stdout, WRITE, init66_);