fixed t_runc of /dev/null ! DLW

SCCS-vsn: usr.bin/f77/libI77/endfile.c 1.5

diff --git a/usr/src/usr.bin/f77/libI77/endfile.c b/usr/src/usr.bin/f77/libI77/endfile.c
index 804dc54..0f1305a 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/endfile.c
+++ b/usr/src/usr.bin/f77/libI77/endfile.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_endfile[] = "@(#)endfile.c     1.4";
+char id_endfile[] = "@(#)endfile.c     1.5";

  *
  * endfile
  */
  *
  * endfile
  */


@@ -37,7 +37,7 @@ t_runc(b,flag) unit *b; ioflag flag;
        loc=ftell(b->ufd);
        fseek(b->ufd,0L,2);
        len=ftell(b->ufd);
        loc=ftell(b->ufd);
        fseek(b->ufd,0L,2);
        len=ftell(b->ufd);

-       if (loc==len) return(OK);
+       if (loc>=len) return(OK);

        strcpy(nm,tmplate);
        mktemp(nm);
        if(!(tmp=fopen(nm,"w"))) err(flag,errno,endf);
        strcpy(nm,tmplate);
        mktemp(nm);
        if(!(tmp=fopen(nm,"w"))) err(flag,errno,endf);