]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
Fix DATE_AND_TIME and LSTAT intrinsics, plus related docs
authorCraig Burley <burley@gcc.gnu.org>
Fri, 26 Feb 1999 13:04:18 +0000 (08:04 -0500)
committerCraig Burley <burley@gcc.gnu.org>
Fri, 26 Feb 1999 13:04:18 +0000 (08:04 -0500)
From-SVN: r25465

gcc/f/ChangeLog
gcc/f/intdoc.in
gcc/f/news.texi
libf2c/ChangeLog
libf2c/libU77/Version.c
libf2c/libU77/datetime_.c
libf2c/libU77/lstat_.c

index 814b7070ef2d8a601ee01aa081061367c80d2795..0c4c61b0f3503629450500f241a6e807066204b2 100644 (file)
@@ -1,3 +1,14 @@
+1999-02-26  Craig Burley  <craig@jcb-sc.com>
+
+       * news.texi: List fixes to Date_and_Time and LStat, plus
+       the docs, under a new heading for egcs 1.1.2.
+
+1999-02-26  Craig Burley  <craig@jcb-sc.com>
+
+       * intdoc.in (STAT_func, STAT_subr,
+       FSTAT_func, FSTAT_subr, LSTAT_func, LSTAT_subr):
+       Properly order array elements.  Specify N/A return values.
+
 1999-02-26  Craig Burley  <craig@jcb-sc.com>
 
        * intdoc.in (DATE_AND_TIME): Explain that VALUES(7) holds
index 697e1ec1335ce3c5c75e3cf4ba11c5dd397bf019..f1af2139f66c5c65bcf77a89ed16388804f69963 100644 (file)
@@ -1551,16 +1551,13 @@ extracted from the @code{stat} structure as returned by
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1571,6 +1568,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1584,10 +1585,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
@@ -1605,16 +1606,13 @@ extracted from the @code{stat} structure as returned by
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1625,6 +1623,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1638,10 +1640,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
@@ -1669,16 +1671,13 @@ The values in this array are extracted from the
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1689,6 +1688,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1702,10 +1705,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
@@ -1729,16 +1732,13 @@ The values in this array are extracted from the
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1749,6 +1749,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1762,10 +1766,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
@@ -1791,16 +1795,13 @@ The values in this array are extracted from the
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1811,6 +1812,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1824,10 +1829,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
@@ -1847,16 +1852,13 @@ The values in this array are extracted from the
 
 @enumerate
 @item
-File mode
+Device ID
 
 @item
 Inode number
 
 @item
-ID of device containing directory entry for file
-
-@item
-Device id (if relevant)
+File mode
 
 @item
 Number of links
@@ -1867,6 +1869,10 @@ Owner's uid
 @item
 Owner's gid
 
+@item
+ID of device containing directory entry for file
+(0 if not available)
+
 @item
 File size (bytes)
 
@@ -1880,10 +1886,10 @@ Last modification time
 Last file status change time
 
 @item
-Preferred I/O block size
+Preferred I/O block size (-1 if not available)
 
 @item
-Number of blocks allocated
+Number of blocks allocated (-1 if not available)
 @end enumerate
 
 Not all these elements are relevant on all systems.
index 3044c2471ba6bc69b956e8e56f50d6bc598e112b..35d87dbb1cd1968e1962c16fcd2a82881e894efe 100644 (file)
@@ -5,7 +5,7 @@
 @c The text of this file appears in the file BUGS
 @c in the G77 distribution, as well as in the G77 manual.
 
-@c 1999-02-14
+@c 1999-02-26
 
 @ifclear NEWSONLY
 @node News
@@ -58,6 +58,22 @@ though this can make getting a complete picture
 of what a particular @code{egcs} version contains
 somewhat more difficult.
 
+@heading In 0.5.24 and @code{egcs} 1.1.2 (versus 0.5.23 and 1.1.1):
+@itemize @bullet
+@item
+Fix the @samp{Date_and_Time} intrinsic (in @code{libg2c})
+to return the milliseconds value properly
+in @var{Values}(8).
+
+@item
+Fix the @samp{LStat} intrinsic (in @code{libg2c})
+to return device-ID information properly
+in @var{SArray}(7).
+
+@item
+Improve documentation.
+@end itemize
+
 @heading In 0.5.24 and @code{egcs} 1.1.1 (versus 0.5.23 and 1.1):
 @itemize @bullet
 @item
index af53fd04fa6b6ea8301f8ee00c5de6a027cb4c61..dd29c51bcf40bb77aacbe8df532923ee3a0cb488 100644 (file)
@@ -1,7 +1,23 @@
+1999-02-26  Craig Burley  <craig@jcb-sc.com>
+
+       * libU77/Version.c: Bump version.
+
+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-14  Craig Burley  <craig@jcb-sc.com>
 
        * libI77/Version.c: Bump ("update" below) to date of last change.
 
+1999-01-15  Dave Love  <fx@gnu.org>
+
+       * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as
+       such, not as microseconds.
+       (s_copy): Declare.
+
 1998-10-21  Dave Love  <fx@gnu.org>
 
        * libI77/open.c (_XOPEN_SOURCE): Define.
index fd2527ce859bb8fa54eed1497268a92d545ac5c3..a9689cfc04fb65de371df54e203bd359af1fd2ec 100644 (file)
@@ -1,6 +1,6 @@
 static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
 
-char __G77_LIBU77_VERSION__[] = "0.5.24";
+char __G77_LIBU77_VERSION__[] = "0.5.24-19990220";
 
 #include <stdio.h>
 
index 4b5d28ae36cbc6161d13345b1ba7a1518f264041..35f0d1cdf74a9388becc07604b517bdd75669b93 100644 (file)
@@ -32,6 +32,12 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
+#ifdef KR_headers
+VOID s_copy ();
+#else
+void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+#endif
+
 int G77_date_and_time_0 (char *date, char *fftime, char *zone,
                         integer *values, ftnlen date_len,
                         ftnlen fftime_len, ftnlen zone_len)
@@ -58,7 +64,7 @@ int G77_date_and_time_0 (char *date, char *fftime, char *zone,
     struct timeval tp;
     struct timezone tzp;
     if (! gettimeofday (&tp, &tzp))
-      vals[7] = tp.tv_usec;
+      vals[7] = tp.tv_usec/1000;
   }
 #endif
   if (values)                  /* null pointer for missing optional */
index e3efce7c55bbea0b7236281e9e55e64820e6cb03..801f6aad1af65066849b684c882fb3f2ae0d0b94 100644 (file)
@@ -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