modified for 4.2bsd. DLW

SCCS-vsn: usr.bin/f77/libU77/stat_.c 1.2
SCCS-vsn: usr.bin/f77/libU77/fstat_.c 1.3

diff --git a/usr/src/usr.bin/f77/libU77/fstat_.c b/usr/src/usr.bin/f77/libU77/fstat_.c
index b18ed8a..b60166c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fstat_.c
+++ b/usr/src/usr.bin/f77/libU77/fstat_.c
@@ -1,10 +1,10 @@
 /*
 /*

-char id_fstat[] = "@(#)fstat_.c        1.2";
+char id_fstat[] = "@(#)fstat_.c        1.3";

  *
  * get file status
  *
  * calling sequence:
  *
  * get file status
  *
  * calling sequence:

- *     integer fstat, statb(11)
+ *     integer fstat, statb(12)

  *     call fstat (name, statb)
  * where:
  *     'statb' will receive the stat structure for file 'name'.
  *     call fstat (name, statb)
  * where:
  *     'statb' will receive the stat structure for file 'name'.


@@ -39,6 +39,7 @@ long *lunit, *stbuf;
                *stbuf++ = statb.st_atime;
                *stbuf++ = statb.st_mtime;
                *stbuf++ = statb.st_ctime;
                *stbuf++ = statb.st_atime;
                *stbuf++ = statb.st_mtime;
                *stbuf++ = statb.st_ctime;

+               *stbuf++ = statb.st_blksize;

                return(0L);
        }
        return ((long)errno);
                return(0L);
        }
        return ((long)errno);

diff --git a/usr/src/usr.bin/f77/libU77/stat_.c b/usr/src/usr.bin/f77/libU77/stat_.c
index ea0dcb6..087ec9e 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/stat_.c
+++ b/usr/src/usr.bin/f77/libU77/stat_.c
@@ -1,10 +1,10 @@
 /*
 /*

-char id_stat[] = "@(#)stat_.c  1.1";
+char id_stat[] = "@(#)stat_.c  1.2";

  *
  * get file status
  *
  * calling sequence:
  *
  * get file status
  *
  * calling sequence:

- *     integer stat, statb(11)
+ *     integer stat, statb(12)

  *     call stat (name, statb)
  * where:
  *     'statb' will receive the stat structure for file 'name'.
  *     call stat (name, statb)
  * where:
  *     'statb' will receive the stat structure for file 'name'.


@@ -17,7 +17,7 @@ char id_stat[] = "@(#)stat_.c 1.1";
 long stat_(name, stbuf, namlen)
 char *name; long *stbuf, namlen;
 {
 long stat_(name, stbuf, namlen)
 char *name; long *stbuf, namlen;
 {

-       char buf[128];
+       char buf[256];

        struct stat statb;
 
        if (namlen >= sizeof buf)
        struct stat statb;
 
        if (namlen >= sizeof buf)


@@ -36,6 +36,7 @@ char *name; long *stbuf, namlen;
                *stbuf++ = statb.st_atime;
                *stbuf++ = statb.st_mtime;
                *stbuf++ = statb.st_ctime;
                *stbuf++ = statb.st_atime;
                *stbuf++ = statb.st_mtime;
                *stbuf++ = statb.st_ctime;

+               *stbuf++ = statb.st_blksize;

                return(0L);
        }
        return ((long)errno);
                return(0L);
        }
        return ((long)errno);