mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2025-01-22 20:36:20 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update libg2c to netlib f2c-19990317

Browse Source 
From-SVN: r25818
This commit is contained in:
Craig Burley 1999-03-17 08:21:44 +00:00 committed by Craig Burley
parent 331fff42f7
commit dbf18916e7
13 changed files with 168 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libf2c/ChangeLog
View 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>:

53
libf2c/changes.netlib
View 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.

6
libf2c/libF77/F77_aloc.c
View 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)

4
libf2c/libF77/README.netlib
View 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.

5
libf2c/libF77/dtime_.c
View 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 */

5
libf2c/libF77/etime_.c
View 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 */

6
libf2c/libF77/signal1.h0
View 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
@ -12,12 +14,8 @@
#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 */

4
libf2c/libI77/Version.c
View 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? */

6
libf2c/libI77/dfe.c
View File

@ -138,3 +138,9 @@ integer e_rdfe(Void)
en_fio();
return(0);
}
integer e_wdfe(Void)
{
f__init = 1;
return en_fio();
}

2
libf2c/libI77/endfile.c
View 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;
}

7
libf2c/libI77/lread.c
View 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)

6
libf2c/libI77/sfe.c
View File

@ -32,9 +32,3 @@ integer e_wsfe(Void)
f__fmtbuf=NULL;
return n;
}
integer e_wdfe(Void)
{
f__init = 1;
return en_fio();
}

79
libf2c/readme.netlib
View 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