This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Update libg2c to netlib f2c-19990317


Committed.

        tq vm, (burley)


1999-03-17  Craig Burley  <craig@jcb-sc.com>

	Update to Netlib version of 1999-03-17:
	* libF77/F77_aloc.c, libF77/README.netlib, libF77/dtime_.c,
	libF77/etime_.c, libF77/signal1.h0, libI77/Version.c,
	libI77/dfe.c, libI77/endfile.c, libI77/lread.c,
	libI77/sfe.c, readme.netlib, changes.netlib:
	See changes.netlib for info.

*** g77-e/libf2c/changes.netlib.~1~	Tue Jun 23 10:37:06 1998
--- g77-e/libf2c/changes.netlib	Wed Mar 17 08:44:58 1999
*************** either a decimal point or an exponent fi
*** 2928,2929 ****
--- 2928,2982 ----
  when they appear as list input for integer data.  Compile lread.c with
  -DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior.
+ 
+ Mon Aug 31 10:38:54 EDT 1998
+   formatdata.c: if possible, and assuming doubles must be aligned on
+ double boundaries, use existing holes in DATA for common blocks to
+ force alignment of the block.  For example,
+ 	block data
+ 	common /abc/ a, b
+ 	double precision a
+ 	integer b(2)
+ 	data b(2)/1/
+ 	end
+ used to generate
+ 	struct {
+ 	    integer fill_1[3];
+ 	    integer e_2;
+ 	    doublereal e_3;
+ 	    } abc_ = { {0}, 1, 0. };
+ and now generates
+ 	struct {
+ 	    doublereal fill_1[1];
+ 	    integer fill_2[1];
+ 	    integer e_3;
+ 	    } abc_ = { {0}, {0}, 1 };
+ In the old generated C, e_3 was added to force alignment; in the new C,
+ fill_1 does this job.
+ 
+ Mon Sep  7 19:48:51 EDT 1998
+   libi77: move e_wdfe from sfe.c to dfe.c, where it was originally.
+ Why did it ever move to sfe.c?
+ 
+ Tue Sep  8 10:22:50 EDT 1998
+   Treat dreal as a synonym for dble unless -cd is specified on the
+ command line.
+ 
+ Sun Sep 13 22:23:41 EDT 1998
+   format.c: fix bug in writing prototypes under f2c -A ... *.P:
+ under some circumstances involving external functions with no known
+ type, a null pointer was passed to printf.
+ 
+ Tue Oct 20 23:25:54 EDT 1998
+   Comments added to libf2c/README and libF77/README, pointing out
+ the need to modify signal1.h on some systems.
+ 
+ Wed Feb 10 22:59:52 EST 1999
+   defs.h lex.c: permit long names (up to at least roughly
+ MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only
+ matters under -g).
+   fc: add -U option; recognize .so files.
+ 
+ Sat Feb 13 10:18:27 EST 1999
+  libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some
+ (C++) compilers happier; f77_aloc.c: make exit_() visible to C++
+ compilers.  Version strings not changed.
*** g77-e/libf2c/libF77/F77_aloc.c.~1~	Sat Jan 31 20:37:05 1998
--- g77-e/libf2c/libF77/F77_aloc.c	Wed Mar 17 08:46:53 1999
*************** F77_aloc(Len, whence) integer Len; char 
*** 15,19 ****
--- 15,25 ----
  #else
  #include <stdlib.h>
+ #ifdef __cplusplus
+ extern "C" {
+ #endif
  extern void G77_exit_0 (integer*);
+ #ifdef __cplusplus
+ 	}
+ #endif
  
   char *
*** g77-e/libf2c/libF77/README.netlib.~1~	Sat Jan 31 20:37:05 1998
--- g77-e/libf2c/libF77/README.netlib	Wed Mar 17 08:44:58 1999
*************** or (on some systems)
*** 107,108 ****
--- 107,112 ----
  
  	exec /usr/bin/ar lts $1 >/dev/null
+ 
+ If your compiler complains about the signal calls in main.c, s_paus.c,
+ and signal_.c, you may need to adjust signal1.h suitably.  See the
+ comments in signal1.h.
*** g77-e/libf2c/libF77/dtime_.c.~1~	Tue May 19 06:50:52 1998
--- g77-e/libf2c/libF77/dtime_.c	Wed Mar 17 08:44:58 1999
***************
*** 1,3 ****
--- 1,8 ----
  #include "time.h"
+ 
+ #ifdef MSDOS
+ #define USE_CLOCK
+ #endif
+ 
  #ifndef USE_CLOCK
  #define _INCLUDE_POSIX_SOURCE	/* for HP-UX */
*** g77-e/libf2c/libF77/etime_.c.~1~	Tue May 19 06:50:53 1998
--- g77-e/libf2c/libF77/etime_.c	Wed Mar 17 08:44:58 1999
***************
*** 1,3 ****
--- 1,8 ----
  #include "time.h"
+ 
+ #ifdef MSDOS
+ #define USE_CLOCK
+ #endif
+ 
  #ifndef USE_CLOCK
  #define _INCLUDE_POSIX_SOURCE	/* for HP-UX */
*** g77-e/libf2c/libF77/signal1.h0.~1~	Tue May 19 06:51:00 1998
--- g77-e/libf2c/libF77/signal1.h0	Wed Mar 17 08:44:58 1999
***************
*** 4,7 ****
--- 4,9 ----
  /* type SIG_PF for the signal function's second argument. */
  
+ /* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */
+ 
  #include <signal.h>
  
***************
*** 13,21 ****
  #define Sigarg_t
  #else
- #ifdef __cplusplus
- #define Sigarg_t ...
- #else
  #define Sigarg_t int
- #endif
  #endif
  #endif /*Sigarg_t*/
--- 15,19 ----
*** g77-e/libf2c/libI77/Version.c.~1~	Sun Feb 14 22:05:28 1999
--- g77-e/libf2c/libI77/Version.c	Wed Mar 17 08:47:28 1999
***************
*** 1,3 ****
! static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n";
  
  /*
--- 1,3 ----
! static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980907\n";
  
  /*
*************** wrtfmt.c:
*** 294,297 ****
--- 294,299 ----
  		 or an exponent field) as errors when they appear as list
  		 input for integer data. */
+ /* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally.
+ 		 Why did it ever move to sfe.c? */
  
  
*** g77-e/libf2c/libI77/dfe.c.~1~	Sun Sep  6 22:45:10 1998
--- g77-e/libf2c/libI77/dfe.c	Wed Mar 17 08:42:43 1999
*************** integer e_rdfe(Void)
*** 139,140 ****
--- 139,146 ----
  	return(0);
  }
+ 
+ integer e_wdfe(Void)
+ {
+ 	f__init = 1;
+ 	return en_fio();
+ }
*** g77-e/libf2c/libI77/endfile.c.~1~	Tue May 19 06:51:05 1998
--- g77-e/libf2c/libI77/endfile.c	Wed Mar 17 08:44:58 1999
*************** t_runc(alist *a)
*** 88,92 ****
--- 88,94 ----
  	if (!(bf = fopen(b->ufnm, f__r_mode[0]))
  	 || !(tf = tmpfile())) {
+ #ifdef NON_UNIX_STDIO
   bad:
+ #endif
  		rc = 1;
  		goto done;
*** g77-e/libf2c/libI77/lread.c.~1~	Tue Jun 23 10:37:11 1998
--- g77-e/libf2c/libI77/lread.c	Wed Mar 17 08:44:58 1999
*************** int (*f__lioproc)(), (*l_getc)(), (*l_un
*** 25,30 ****
  #undef max
  #include <stdlib.h>
- int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
- 	(*l_ungetc)(int,FILE*);
  #endif
  
--- 25,28 ----
*************** int (*f__lioproc)(ftnint*, char*, ftnlen
*** 32,35 ****
--- 30,38 ----
  #include "lio.h"
  #include "fp.h"
+ 
+ #ifndef KR_headers
+ int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
+ 	(*l_ungetc)(int,FILE*);
+ #endif
  
  int l_eof;
*** g77-e/libf2c/libI77/sfe.c.~1~	Sun Sep 20 06:51:55 1998
--- g77-e/libf2c/libI77/sfe.c	Wed Mar 17 08:42:27 1999
*************** integer e_wsfe(Void)
*** 33,40 ****
  	return n;
  }
- 
- integer e_wdfe(Void)
- {
- 	f__init = 1;
- 	return en_fio();
- }
--- 33,34 ----
*** g77-e/libf2c/readme.netlib.~1~	Thu Jul 16 18:51:15 1998
--- g77-e/libf2c/readme.netlib	Wed Mar 17 08:44:58 1999
*************** when they appear as list input for integ
*** 620,623 ****
--- 620,680 ----
  -DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior.
  
+ Mon Aug 31 10:38:54 EDT 1998
+   formatdata.c: if possible, and assuming doubles must be aligned on
+ double boundaries, use existing holes in DATA for common blocks to
+ force alignment of the block.  For example,
+ 	block data
+ 	common /abc/ a, b
+ 	double precision a
+ 	integer b(2)
+ 	data b(2)/1/
+ 	end
+ used to generate
+ 	struct {
+ 	    integer fill_1[3];
+ 	    integer e_2;
+ 	    doublereal e_3;
+ 	    } abc_ = { {0}, 1, 0. };
+ and now generates
+ 	struct {
+ 	    doublereal fill_1[1];
+ 	    integer fill_2[1];
+ 	    integer e_3;
+ 	    } abc_ = { {0}, {0}, 1 };
+ In the old generated C, e_3 was added to force alignment; in the new C,
+ fill_1 does this job.
+ 
+ Mon Sep  7 19:48:51 EDT 1998
+   libi77: move e_wdfe from sfe.c to dfe.c, where it was originally.
+ Why did it ever move to sfe.c?
+ 
+ Tue Sep  8 10:22:50 EDT 1998
+   Treat dreal as a synonym for dble unless -cd is specified on the
+ command line.
+ 
+ Sun Sep 13 22:23:41 EDT 1998
+   format.c: fix bug in writing prototypes under f2c -A ... *.P:
+ under some circumstances involving external functions with no known
+ type, a null pointer was passed to printf.
+ 
+ Tue Oct 20 23:25:54 EDT 1998
+   Comments added to libf2c/README and libF77/README, pointing out
+ the need to modify signal1.h on some systems.
+ 
+ Thu Nov 12 15:34:09 EST 1998
+   libf77, libf2c.zip: minor tweaks to [de]time_.c and the makefiles,
+ so makefile.sy, makefile.vc, and makefile.wat deal with [de]time_.c.
+ 
+ Wed Feb 10 22:59:52 EST 1999
+   defs.h lex.c: permit long names (up to at least roughly
+ MAX_SHARPLINE_LEN = 1000 characters long) in #line lines (which only
+ matters under -g).
+   fc: add -U option; recognize .so files.
+ 
+ Sat Feb 13 10:18:27 EST 1999
+  libf2c: endfile.c, lread.c, signal1.h0: minor tweaks to make some
+ (C++) compilers happier; f77_aloc.c: make exit_() visible to C++
+ compilers.  Version strings not changed.
+ 
  Current timestamps of files in "all from f2c/src", sorted by time,
  appear below (mm/dd/year hh:mm:ss).  To bring your source up to date,
*************** version.c.  Note that the time shown in 
*** 626,633 ****
  timestamp of the source module that immediately follows version.c below:
  
!  5/16/1998  19:07:45  xsum0.out
!  5/16/1998  17:17:01  f2c.1
!  5/16/1998  17:16:53  f2c.1t
!  5/16/1998  16:56:15  version.c
   5/16/1998  16:55:49  output.c
   4/03/1998  17:15:05  gram.c
--- 683,695 ----
  timestamp of the source module that immediately follows version.c below:
  
!  2/10/1999  22:07:05  version.c
!  2/10/1999  22:06:59  lex.c
!  2/10/1999  17:43:01  defs.h
!  9/13/1998  22:23:35  xsum0.out
!  9/13/1998  22:18:21  format.c
!  9/08/1998  10:16:51  f2c.1
!  9/08/1998  10:16:48  f2c.1t
!  9/08/1998  10:14:53  intr.c
!  8/31/1998  10:13:22  formatdata.c
   5/16/1998  16:55:49  output.c
   4/03/1998  17:15:05  gram.c
*************** timestamp of the source module that imme
*** 635,641 ****
   3/09/1998   0:30:23  putpcc.c
   2/25/1998   8:18:04  makefile
- 12/04/1997  17:44:11  format.c
  12/04/1997  17:44:11  niceprintf.c
- 12/04/1997  17:14:05  lex.c
   8/05/1997  10:31:26  malloc.c
   7/24/1997  17:10:55  README
--- 697,701 ----
*************** timestamp of the source module that imme
*** 644,664 ****
   2/11/1997  23:39:14  vax.c
  12/04/1996  13:07:53  gram.exec
- 10/01/1996  14:36:18  defs.h
  10/01/1996  14:36:18  init.c
  10/01/1996  14:36:17  data.c
   9/17/1996  17:29:44  expr.c
   9/12/1996  12:12:46  equiv.c
-  8/27/1996   8:30:32  intr.c
   8/26/1996   9:41:13  sysdep.c
   7/09/1996  10:40:45  names.c
-  7/04/1996   9:58:31  formatdata.c
   7/04/1996   9:55:45  sysdep.h
   7/04/1996   9:55:43  put.c
   7/04/1996   9:55:41  pread.c
-  7/04/1996   9:55:40  parse_args.c
   7/04/1996   9:55:40  p1output.c
   7/04/1996   9:55:37  misc.c
-  7/04/1996   9:55:36  memset.c
   7/04/1996   9:55:36  mem.c
   7/04/1996   9:55:35  main.c
   7/04/1996   9:55:33  io.c
--- 704,721 ----
   2/11/1997  23:39:14  vax.c
  12/04/1996  13:07:53  gram.exec
  10/01/1996  14:36:18  init.c
  10/01/1996  14:36:17  data.c
   9/17/1996  17:29:44  expr.c
   9/12/1996  12:12:46  equiv.c
   8/26/1996   9:41:13  sysdep.c
   7/09/1996  10:40:45  names.c
   7/04/1996   9:55:45  sysdep.h
   7/04/1996   9:55:43  put.c
   7/04/1996   9:55:41  pread.c
   7/04/1996   9:55:40  p1output.c
+  7/04/1996   9:55:40  parse_args.c
   7/04/1996   9:55:37  misc.c
   7/04/1996   9:55:36  mem.c
+  7/04/1996   9:55:36  memset.c
   7/04/1996   9:55:35  main.c
   7/04/1996   9:55:33  io.c


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]