BSD 4_3 release

[unix-history] / usr / src / usr.lib / libI77 / rewind.c

diff --git a/usr/src/usr.lib/libI77/rewind.c b/usr/src/usr.lib/libI77/rewind.c
index c774c9f..0b169ac 100644 (file)
--- a/usr/src/usr.lib/libI77/rewind.c
+++ b/usr/src/usr.lib/libI77/rewind.c
@@ -1,6 +1,12 @@
 /*
 /*

-char id_rewind[] = "@(#)rewind.c       1.3";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.

  *
  *

+ *     @(#)rewind.c    5.2     7/30/85
+ */
+
+/*

  * rewind.c  -  f77 file rewind
  */
 
  * rewind.c  -  f77 file rewind
  */
 


@@ -19,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;