From: Craig Burley Date: Fri, 26 Feb 1999 13:04:18 +0000 (-0500) Subject: Fix DATE_AND_TIME and LSTAT intrinsics, plus related docs X-Git-Tag: prereleases/egcs-1.1.2-prerelease-3~27 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9d7ff94653ed64662d2b468fdaaae7704509cdc;p=thirdparty%2Fgcc.git Fix DATE_AND_TIME and LSTAT intrinsics, plus related docs From-SVN: r25465 --- diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 814b7070ef2d..0c4c61b0f350 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,14 @@ +1999-02-26 Craig Burley + + * 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 + + * 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 * intdoc.in (DATE_AND_TIME): Explain that VALUES(7) holds diff --git a/gcc/f/intdoc.in b/gcc/f/intdoc.in index 697e1ec1335c..f1af2139f66c 100644 --- a/gcc/f/intdoc.in +++ b/gcc/f/intdoc.in @@ -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. diff --git a/gcc/f/news.texi b/gcc/f/news.texi index 3044c2471ba6..35d87dbb1cd1 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -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 diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index af53fd04fa6b..dd29c51bcf40 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,7 +1,23 @@ +1999-02-26 Craig Burley + + * libU77/Version.c: Bump version. + +1999-02-20 Craig Burley + + From Krister Walfridsson : + * 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 * libI77/Version.c: Bump ("update" below) to date of last change. +1999-01-15 Dave Love + + * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as + such, not as microseconds. + (s_copy): Declare. + 1998-10-21 Dave Love * libI77/open.c (_XOPEN_SOURCE): Define. diff --git a/libf2c/libU77/Version.c b/libf2c/libU77/Version.c index fd2527ce859b..a9689cfc04fb 100644 --- a/libf2c/libU77/Version.c +++ b/libf2c/libU77/Version.c @@ -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 diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c index 4b5d28ae36cb..35f0d1cdf74a 100644 --- a/libf2c/libU77/datetime_.c +++ b/libf2c/libU77/datetime_.c @@ -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 */ diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c index e3efce7c55bb..801f6aad1af6 100644 --- 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