fix LSTAT intrinsic per Krister Walfridsson <cato@df.lth.se>

From-SVN: r25339

fix LSTAT intrinsic per Krister Walfridsson <cato@df.lth.se>
From-SVN: r25339
9074cde5 · Craig Burley · Craig Burley · 04be6346 · 9074cde5 · 9074cde5
Commit 9074cde5 authored Feb 20, 1999 by Craig Burley Committed by Craig Burley Feb 20, 1999
Show whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

libf2c/ChangeLog
+6 -0

libf2c/libU77/lstat_.c
+0 -1

No files found.
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
+1999-02-20  Craig Burley  <craig@jcb-sc.com>
+
+	From Krister Walfridsson <cato@df.lth.se>:
+	* libU77/lstat_.c (G77_lstat_0): Kill spurious setting
+	of element 6 to zero, as it undid the previous setting.
+
 1999-02-15  Craig Burley  <craig@jcb-sc.com>

 	* f2c.h: Delete my (old) email address.

--- a/libf2c/libU77/lstat_.c
+++ b/libf2c/libU77/lstat_.c
@@ -69,7 +69,6 @@ integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
  statb[8] = buf.st_atime;
  statb[9] = buf.st_mtime;
  statb[10] = buf.st_ctime;
-  statb[6] = 0;
 #if HAVE_ST_BLKSIZE
  statb[11] = buf.st_blksize;
 #else