rewind and backspace unconnected unit -> no-op.

SCCS-vsn: usr.bin/f77/libI77/rewind.c 5.2
SCCS-vsn: usr.bin/f77/libI77/backspace.c 5.2

diff --git a/usr/src/usr.bin/f77/libI77/backspace.c b/usr/src/usr.bin/f77/libI77/backspace.c
index 4cb1d3e..1ee4d1d 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/backspace.c
+++ b/usr/src/usr.bin/f77/libI77/backspace.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)backspace.c 5.1     %G%
+ *     @(#)backspace.c 5.2     %G%

  */
 
 /*
  */
 
 /*


@@ -29,8 +29,7 @@ alist *a;
        if (not_legal(lunit))
                err(errflag, F_ERUNIT, bksp)
        b= &units[lunit];
        if (not_legal(lunit))
                err(errflag, F_ERUNIT, bksp)
        b= &units[lunit];

-       if(!b->ufd && (n = fk_open(READ, SEQ, FMT, (ftnint)lunit)) )
-               err(errflag, n, bksp)
+       if(!b->ufd) return(OK);

        lfname = b->ufnm;
        if(b->uend)
        {       b->uend = NO;
        lfname = b->ufnm;
        if(b->uend)
        {       b->uend = NO;

diff --git a/usr/src/usr.bin/f77/libI77/rewind.c b/usr/src/usr.bin/f77/libI77/rewind.c
index 69090d3..fd01db0 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rewind.c
+++ b/usr/src/usr.bin/f77/libI77/rewind.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)rewind.c    5.1     %G%
+ *     @(#)rewind.c    5.2     %G%

  */
 
 /*
  */
 
 /*


@@ -25,8 +25,7 @@ f_rew(a) alist *a;
        errflag = a->aerr;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,rwnd)
        b = &units[lunit];
        errflag = a->aerr;
        if(not_legal(lunit)) err(errflag,F_ERUNIT,rwnd)
        b = &units[lunit];

-       if(!b->ufd && (n=fk_open(READ,SEQ,FMT,(ftnint)lunit)) )
-               err(errflag,n,rwnd)
+       if(!b->ufd) return(OK);

        lfname = b->ufnm;
        if(!b->useek) err(errflag,F_ERNOBKSP,rwnd)
        b->uend = NO;
        lfname = b->ufnm;
        if(!b->useek) err(errflag,F_ERNOBKSP,rwnd)
        b->uend = NO;