parent
331fff42f7
commit
dbf18916e7
|
@ -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>
|
1999-03-06 Craig Burley <craig@jcb-sc.com>
|
||||||
|
|
||||||
Mon Dec 21 23:03:54 1998 Hans-Peter Nilsson <hp@axis.se>:
|
Mon Dec 21 23:03:54 1998 Hans-Peter Nilsson <hp@axis.se>:
|
||||||
|
|
|
@ -2927,3 +2927,56 @@ Thu Jun 18 01:22:52 EDT 1998
|
||||||
either a decimal point or an exponent field) are treated as errors
|
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
|
when they appear as list input for integer data. Compile lread.c with
|
||||||
-DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior.
|
-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.
|
||||||
|
|
|
@ -14,7 +14,13 @@ extern void G77_exit_0 ();
|
||||||
F77_aloc(Len, whence) integer Len; char *whence;
|
F77_aloc(Len, whence) integer Len; char *whence;
|
||||||
#else
|
#else
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
#ifdef __cplusplus
|
||||||
|
extern "C" {
|
||||||
|
#endif
|
||||||
extern void G77_exit_0 (integer*);
|
extern void G77_exit_0 (integer*);
|
||||||
|
#ifdef __cplusplus
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
char *
|
char *
|
||||||
F77_aloc(integer Len, char *whence)
|
F77_aloc(integer Len, char *whence)
|
||||||
|
|
|
@ -106,3 +106,7 @@ one-line shell script
|
||||||
or (on some systems)
|
or (on some systems)
|
||||||
|
|
||||||
exec /usr/bin/ar lts $1 >/dev/null
|
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.
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
#include "time.h"
|
#include "time.h"
|
||||||
|
|
||||||
|
#ifdef MSDOS
|
||||||
|
#define USE_CLOCK
|
||||||
|
#endif
|
||||||
|
|
||||||
#ifndef USE_CLOCK
|
#ifndef USE_CLOCK
|
||||||
#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
|
#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
|
||||||
#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
|
#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
#include "time.h"
|
#include "time.h"
|
||||||
|
|
||||||
|
#ifdef MSDOS
|
||||||
|
#define USE_CLOCK
|
||||||
|
#endif
|
||||||
|
|
||||||
#ifndef USE_CLOCK
|
#ifndef USE_CLOCK
|
||||||
#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
|
#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
|
||||||
#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
|
#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
|
||||||
|
|
|
@ -3,6 +3,8 @@
|
||||||
/* compiler-dependent. The #define below assumes signal.h declares */
|
/* compiler-dependent. The #define below assumes signal.h declares */
|
||||||
/* type SIG_PF for the signal function's second argument. */
|
/* type SIG_PF for the signal function's second argument. */
|
||||||
|
|
||||||
|
/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */
|
||||||
|
|
||||||
#include <signal.h>
|
#include <signal.h>
|
||||||
|
|
||||||
#ifndef Sigret_t
|
#ifndef Sigret_t
|
||||||
|
@ -12,12 +14,8 @@
|
||||||
#ifdef KR_headers
|
#ifdef KR_headers
|
||||||
#define Sigarg_t
|
#define Sigarg_t
|
||||||
#else
|
#else
|
||||||
#ifdef __cplusplus
|
|
||||||
#define Sigarg_t ...
|
|
||||||
#else
|
|
||||||
#define Sigarg_t int
|
#define Sigarg_t int
|
||||||
#endif
|
#endif
|
||||||
#endif
|
|
||||||
#endif /*Sigarg_t*/
|
#endif /*Sigarg_t*/
|
||||||
|
|
||||||
#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */
|
#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */
|
||||||
|
|
|
@ -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
|
floating-point numbers (containing either a decimal point
|
||||||
or an exponent field) as errors when they appear as list
|
or an exponent field) as errors when they appear as list
|
||||||
input for integer data. */
|
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? */
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -138,3 +138,9 @@ integer e_rdfe(Void)
|
||||||
en_fio();
|
en_fio();
|
||||||
return(0);
|
return(0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
integer e_wdfe(Void)
|
||||||
|
{
|
||||||
|
f__init = 1;
|
||||||
|
return en_fio();
|
||||||
|
}
|
||||||
|
|
|
@ -87,7 +87,9 @@ t_runc(alist *a)
|
||||||
}
|
}
|
||||||
if (!(bf = fopen(b->ufnm, f__r_mode[0]))
|
if (!(bf = fopen(b->ufnm, f__r_mode[0]))
|
||||||
|| !(tf = tmpfile())) {
|
|| !(tf = tmpfile())) {
|
||||||
|
#ifdef NON_UNIX_STDIO
|
||||||
bad:
|
bad:
|
||||||
|
#endif
|
||||||
rc = 1;
|
rc = 1;
|
||||||
goto done;
|
goto done;
|
||||||
}
|
}
|
||||||
|
|
|
@ -24,14 +24,17 @@ int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
|
||||||
#undef min
|
#undef min
|
||||||
#undef max
|
#undef max
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
|
|
||||||
(*l_ungetc)(int,FILE*);
|
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include "fmt.h"
|
#include "fmt.h"
|
||||||
#include "lio.h"
|
#include "lio.h"
|
||||||
#include "fp.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;
|
int l_eof;
|
||||||
|
|
||||||
#define isblnk(x) (f__ltab[x+1]&B)
|
#define isblnk(x) (f__ltab[x+1]&B)
|
||||||
|
|
|
@ -32,9 +32,3 @@ integer e_wsfe(Void)
|
||||||
f__fmtbuf=NULL;
|
f__fmtbuf=NULL;
|
||||||
return n;
|
return n;
|
||||||
}
|
}
|
||||||
|
|
||||||
integer e_wdfe(Void)
|
|
||||||
{
|
|
||||||
f__init = 1;
|
|
||||||
return en_fio();
|
|
||||||
}
|
|
||||||
|
|
|
@ -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
|
when they appear as list input for integer data. Compile lread.c with
|
||||||
-DALLOW_FLOAT_IN_INTEGER_LIST_INPUT to restore the old behavior.
|
-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,
|
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,
|
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
|
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
|
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:
|
timestamp of the source module that immediately follows version.c below:
|
||||||
|
|
||||||
5/16/1998 19:07:45 xsum0.out
|
2/10/1999 22:07:05 version.c
|
||||||
5/16/1998 17:17:01 f2c.1
|
2/10/1999 22:06:59 lex.c
|
||||||
5/16/1998 17:16:53 f2c.1t
|
2/10/1999 17:43:01 defs.h
|
||||||
5/16/1998 16:56:15 version.c
|
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
|
5/16/1998 16:55:49 output.c
|
||||||
4/03/1998 17:15:05 gram.c
|
4/03/1998 17:15:05 gram.c
|
||||||
4/03/1998 17:14:59 gram.dcl
|
4/03/1998 17:14:59 gram.dcl
|
||||||
3/09/1998 0:30:23 putpcc.c
|
3/09/1998 0:30:23 putpcc.c
|
||||||
2/25/1998 8:18:04 makefile
|
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:44:11 niceprintf.c
|
||||||
12/04/1997 17:14:05 lex.c
|
|
||||||
8/05/1997 10:31:26 malloc.c
|
8/05/1997 10:31:26 malloc.c
|
||||||
7/24/1997 17:10:55 README
|
7/24/1997 17:10:55 README
|
||||||
7/24/1997 16:06:19 Notice
|
7/24/1997 16:06:19 Notice
|
||||||
7/21/1997 12:58:44 proc.c
|
7/21/1997 12:58:44 proc.c
|
||||||
2/11/1997 23:39:14 vax.c
|
2/11/1997 23:39:14 vax.c
|
||||||
12/04/1996 13:07:53 gram.exec
|
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:18 init.c
|
||||||
10/01/1996 14:36:17 data.c
|
10/01/1996 14:36:17 data.c
|
||||||
9/17/1996 17:29:44 expr.c
|
9/17/1996 17:29:44 expr.c
|
||||||
9/12/1996 12:12:46 equiv.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
|
8/26/1996 9:41:13 sysdep.c
|
||||||
7/09/1996 10:40:45 names.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:45 sysdep.h
|
||||||
7/04/1996 9:55:43 put.c
|
7/04/1996 9:55:43 put.c
|
||||||
7/04/1996 9:55:41 pread.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 p1output.c
|
||||||
|
7/04/1996 9:55:40 parse_args.c
|
||||||
7/04/1996 9:55:37 misc.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 mem.c
|
||||||
|
7/04/1996 9:55:36 memset.c
|
||||||
7/04/1996 9:55:35 main.c
|
7/04/1996 9:55:35 main.c
|
||||||
7/04/1996 9:55:33 io.c
|
7/04/1996 9:55:33 io.c
|
||||||
7/04/1996 9:55:30 exec.c
|
7/04/1996 9:55:30 exec.c
|
||||||
|
|
Loading…
Reference in New Issue