Update libg2c to netlib f2c-19990317
authorCraig Burley <craig@jcb-sc.com>
Wed, 17 Mar 1999 08:21:44 +0000 (08:21 +0000)
committerCraig Burley <burley@gcc.gnu.org>
Wed, 17 Mar 1999 08:21:44 +0000 (03:21 -0500)
From-SVN: r25818

13 files changed:
libf2c/ChangeLog
libf2c/changes.netlib
libf2c/libF77/F77_aloc.c
libf2c/libF77/README.netlib
libf2c/libF77/dtime_.c
libf2c/libF77/etime_.c
libf2c/libF77/signal1.h0
libf2c/libI77/Version.c
libf2c/libI77/dfe.c
libf2c/libI77/endfile.c
libf2c/libI77/lread.c
libf2c/libI77/sfe.c
libf2c/readme.netlib

index 8eb564b64d508fe37d83bc7e183ae03afe1f841c..d58c540fee0ca43a40ef728b08c9bd3b8d4320b3 100644 (file)
@@ -1,3 +1,12 @@
+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.
+
 1999-03-06  Craig Burley  <craig@jcb-sc.com>
 
        Mon Dec 21 23:03:54 1998 Hans-Peter Nilsson <hp@axis.se>:
index 47d51d748e8d57018c423d928b729186a8c9fef5..048ea942b99bbca5bd2646cd44350283d23e9a2c 100644 (file)
@@ -2927,3 +2927,56 @@ Thu Jun 18 01:22:52 EDT 1998
 either a decimal point or an exponent field) are treated as errors
 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.
index 8754fe2ef70e817d8ad36e0a585be0ecc49f8e7c..e329a1bfb3415847d8fe3e60cfd5e06f775f9b25 100644 (file)
@@ -14,7 +14,13 @@ extern void G77_exit_0 ();
 F77_aloc(Len, whence) integer Len; char *whence;
 #else
 #include <stdlib.h>
+#ifdef __cplusplus
+extern "C" {
+#endif
 extern void G77_exit_0 (integer*);
+#ifdef __cplusplus
+       }
+#endif
 
  char *
 F77_aloc(integer Len, char *whence)
index 766821525517e93533c9e1a0a13939d09908abb1..5e532ee0990258b92cbe3a5fcd3e2a0d13236213 100644 (file)
@@ -106,3 +106,7 @@ one-line shell script
 or (on some systems)
 
        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.
index 95db94f4874b395b11970ecb666727b6b6017287..09755fc586fe7f991fd8f97d89a0d752f5bfc9e2 100644 (file)
@@ -1,4 +1,9 @@
 #include "time.h"
+
+#ifdef MSDOS
+#define USE_CLOCK
+#endif
+
 #ifndef USE_CLOCK
 #define _INCLUDE_POSIX_SOURCE  /* for HP-UX */
 #define _INCLUDE_XOPEN_SOURCE  /* for HP-UX */
index 7ed3fce6b271cd6123ed137d0b898ffc8b093d2a..043bf6996f3398b80c0a547e114e46713d5f3429 100644 (file)
@@ -1,4 +1,9 @@
 #include "time.h"
+
+#ifdef MSDOS
+#define USE_CLOCK
+#endif
+
 #ifndef USE_CLOCK
 #define _INCLUDE_POSIX_SOURCE  /* for HP-UX */
 #define _INCLUDE_XOPEN_SOURCE  /* for HP-UX */
index 662cae450dc4cedec2d43e991ad828cfa71981e9..a383774b82d2f53661d1119f093aec1e2409b401 100644 (file)
@@ -3,6 +3,8 @@
 /* compiler-dependent.   The #define below assumes signal.h declares */
 /* type SIG_PF for the signal function's second argument. */
 
+/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */
+
 #include <signal.h>
 
 #ifndef Sigret_t
 #ifdef KR_headers
 #define Sigarg_t
 #else
-#ifdef __cplusplus
-#define Sigarg_t ...
-#else
 #define Sigarg_t int
 #endif
-#endif
 #endif /*Sigarg_t*/
 
 #ifdef USE_SIG_PF      /* compile with -DUSE_SIG_PF under IRIX */
index 8c4662d78ee25a0e7e59108610453435bf17febd..360b966a96fbdcc6af2f511474f79c8f1d220d2a 100644 (file)
@@ -1,4 +1,4 @@
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980907\n";
 
 /*
 */
@@ -293,6 +293,8 @@ wrtfmt.c:
                 floating-point numbers (containing either a decimal point
                 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? */
 
 
 
index bcf2c8016a66b68e302c4bfc285308f1a5bf94f8..f639ab51ce7c84bbf116584267a997150734d5ed 100644 (file)
@@ -138,3 +138,9 @@ integer e_rdfe(Void)
        en_fio();
        return(0);
 }
+
+integer e_wdfe(Void)
+{
+       f__init = 1;
+       return en_fio();
+}
index 0b785a95165d972b9a86c99b17737805d5586c48..0e4ac0318e9f76173607fb9aa9037b8a9f37bc6f 100644 (file)
@@ -87,7 +87,9 @@ t_runc(alist *a)
                }
        if (!(bf = fopen(b->ufnm, f__r_mode[0]))
         || !(tf = tmpfile())) {
+#ifdef NON_UNIX_STDIO
  bad:
+#endif
                rc = 1;
                goto done;
                }
index 24b621db15ba97c2eb0342873acfc7bac3c9b1fa..3d4005962246c8dcbdf3003819e12c2a32381151 100644 (file)
@@ -24,14 +24,17 @@ int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
 #undef min
 #undef max
 #include <stdlib.h>
-int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
-       (*l_ungetc)(int,FILE*);
 #endif
 
 #include "fmt.h"
 #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;
 
 #define isblnk(x) (f__ltab[x+1]&B)
index eb6260fec0872c7c9cdaaf918b1f96ff3632d04c..f7c3b83b734f3069da894156105b5b7be9eee200 100644 (file)
@@ -32,9 +32,3 @@ integer e_wsfe(Void)
        f__fmtbuf=NULL;
        return n;
 }
-
-integer e_wdfe(Void)
-{
-       f__init = 1;
-       return en_fio();
-}
index 8ad697c5d5cad7e74ae872fa421b6161a5d5bc11..f87aae431d2664a6d324a9c3a3ff319d1f4084df 100644 (file)
@@ -619,47 +619,104 @@ either a decimal point or an exponent field) are treated as errors
 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.
+
+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,
 obtain source files with a timestamp later than the time shown in your
 version.c.  Note that the time shown in the current version.c is the
 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
+ 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
  4/03/1998  17:14:59  gram.dcl
  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
  7/24/1997  16:06:19  Notice
  7/21/1997  12:58:44  proc.c
  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:40  parse_args.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:36  memset.c
  7/04/1996   9:55:35  main.c
  7/04/1996   9:55:33  io.c
  7/04/1996   9:55:30  exec.c