1.1.2: egcs/libf2c/ fixes, egcs/gcc/f/ doc sources

craig@jcb-sc.com craig@jcb-sc.com
Fri Feb 26 11:15:00 GMT 1999


I plan on committing this patch to the egcs_1_1_branch branch,
after I successfully test the result of these patches.

        tq vm, (burley)


In egcs/gcc/f/:

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.

In egcs/libf2c/:

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-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.

*** g77-d0/gcc/f/intdoc.in.~1~	Fri Feb 26 13:34:48 1999
--- g77-d0/gcc/f/intdoc.in	Fri Feb 26 13:38:10 1999
*************** extracted from the @code{stat} structure
*** 1552,1556 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1552,1556 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1558,1565 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1558,1562 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1573,1576 ****
--- 1570,1577 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1585,1592 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1586,1593 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*************** extracted from the @code{stat} structure
*** 1606,1610 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1607,1611 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1612,1619 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1613,1617 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1627,1630 ****
--- 1625,1632 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1639,1646 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1641,1648 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*************** The values in this array are extracted f
*** 1670,1674 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1672,1676 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1676,1683 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1678,1682 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1691,1694 ****
--- 1690,1697 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1703,1710 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1706,1713 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*************** The values in this array are extracted f
*** 1730,1734 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1733,1737 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1736,1743 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1739,1743 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1751,1754 ****
--- 1751,1758 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1763,1770 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1767,1774 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*************** The values in this array are extracted f
*** 1792,1796 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1796,1800 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1798,1805 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1802,1806 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1813,1816 ****
--- 1814,1821 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1825,1832 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1830,1837 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*************** The values in this array are extracted f
*** 1848,1852 ****
  @enumerate
  @item
! File mode
  
  @item
--- 1853,1857 ----
  @enumerate
  @item
! Device ID
  
  @item
*************** Inode number
*** 1854,1861 ****
  
  @item
! ID of device containing directory entry for file
! 
! @item
! Device id (if relevant)
  
  @item
--- 1859,1863 ----
  
  @item
! File mode
  
  @item
*************** Owner's gid
*** 1869,1872 ****
--- 1871,1878 ----
  
  @item
+ ID of device containing directory entry for file
+ (0 if not available)
+ 
+ @item
  File size (bytes)
  
*************** Last file status change time
*** 1881,1888 ****
  
  @item
! Preferred I/O block size
  
  @item
! Number of blocks allocated
  @end enumerate
  
--- 1887,1894 ----
  
  @item
! Preferred I/O block size (-1 if not available)
  
  @item
! Number of blocks allocated (-1 if not available)
  @end enumerate
  
*** g77-d0/gcc/f/news.texi.~1~	Sun Feb 14 08:07:31 1999
--- g77-d0/gcc/f/news.texi	Fri Feb 26 13:38:10 1999
***************
*** 6,10 ****
  @c in the G77 distribution, as well as in the G77 manual.
  
! @c 1999-02-14
  
  @ifclear NEWSONLY
--- 6,10 ----
  @c in the G77 distribution, as well as in the G77 manual.
  
! @c 1999-02-26
  
  @ifclear NEWSONLY
*************** though this can make getting a complete 
*** 58,61 ****
--- 58,77 ----
  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 @val{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):

*** g77-d0/libf2c/libU77/Version.c.~1~	Tue Sep  1 05:07:47 1998
--- g77-d0/libf2c/libU77/Version.c	Fri Feb 26 13:38:10 1999
***************
*** 1,5 ****
  static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
  
! char __G77_LIBU77_VERSION__[] = "0.5.24";
  
  #include <stdio.h>
--- 1,5 ----
  static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
  
! char __G77_LIBU77_VERSION__[] = "0.5.24-19990220";
  
  #include <stdio.h>
*** g77-d0/libf2c/libU77/datetime_.c.~1~	Mon Jul  6 05:03:28 1998
--- g77-d0/libf2c/libU77/datetime_.c	Fri Feb 26 13:38:10 1999
*************** Boston, MA 02111-1307, USA.  */
*** 33,36 ****
--- 33,42 ----
  #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,
*************** int G77_date_and_time_0 (char *date, cha
*** 59,63 ****
      struct timezone tzp;
      if (! gettimeofday (&tp, &tzp))
!       vals[7] = tp.tv_usec;
    }
  #endif
--- 65,69 ----
      struct timezone tzp;
      if (! gettimeofday (&tp, &tzp))
!       vals[7] = tp.tv_usec/1000;
    }
  #endif
*** g77-d0/libf2c/libU77/lstat_.c.~1~	Sat Jan 31 20:37:08 1998
--- g77-d0/libf2c/libU77/lstat_.c	Fri Feb 26 13:38:10 1999
*************** integer G77_lstat_0 (const char *name, i
*** 70,74 ****
    statb[9] = buf.st_mtime;
    statb[10] = buf.st_ctime;
-   statb[6] = 0;
  #if HAVE_ST_BLKSIZE
    statb[11] = buf.st_blksize;
--- 70,73 ----


More information about the Gcc-patches mailing list