mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 05:30:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update to Netlib version of 1999-05-10

Browse Source 
From-SVN: r26864
This commit is contained in:
Craig Burley 1999-05-10 14:40:59 +00:00 committed by Craig Burley
parent 9733e4ee31
commit 8e2b8d136c
11 changed files with 64 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libf2c/ChangeLog
View File

@ -1,3 +1,11 @@
Mon May 10 17:33:45 1999 Craig Burley <craig@jcb-sc.com>
Update to Netlib version of 1999-05-10:
* changes.netlib, libF77/Version.c, libF77/abort_.c,
libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c,
libF77/s_stop.c, libI77/Version.c, libI77/open.c,
readme.netlib: See changes.netlib for info.
Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com)
* libU77/dtime_.c (G77_dtime_0): Standard-conforming error check.

15
libf2c/changes.netlib
View File

@ -3003,7 +3003,14 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by
illegal use of equivalence); open.c: get "external" versus "internal"
right in the error message if a file cannot be opened; err.c: cast a
pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
that could be overwritten by formats Inn or Lnn with nn > 83.
inappropriate use of equivalence); open.c: get "external" versus
"internal" right in the error message if a file cannot be opened;
err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
fixed-length buffer that could be overwritten by formats Inn or Lnn
with nn > 83.
Mon May 3 13:14:07 EDT 1999
"Invisible" changes to omit a few compiler warnings in f2c and
libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
and one more tweak (libf2c/c_log.c) for pathological equivalences.
Minor update to "fc" script: new -L flag and comment correction.

4
libf2c/libF77/Version.c
View File

@ -1,4 +1,4 @@
static char junk[] = "\n@(#)LIBF77 VERSION 19990502\n";
static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
/*
*/
@ -59,6 +59,8 @@ char __G77_LIBF77_VERSION__[] = "0.5.24";
c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
overlapping arguments caused by equivalence.
3 May 1999: "invisible" tweaks to omit compiler warnings in
abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
*/
#include <stdio.h>

4
libf2c/libF77/abort_.c
View File

@ -12,7 +12,5 @@ int G77_abort_0 (void)
#endif
{
sig_die("Fortran abort routine called", 1);
#ifdef __cplusplus
return 0;
#endif
return 0; /* not reached */
}

6
libf2c/libF77/c_log.c
View File

@ -11,7 +11,7 @@ extern double f__cabs(double, double);
void c_log(complex *r, complex *z)
#endif
{
double zi = z->i, zr = z->r;
r->i = atan2(zi, zr);
r->r = log( f__cabs( zr, zi ) );
double zi, zr;
r->i = atan2(zi = z->i, zr = z->r);
r->r = log( f__cabs(zr, zi) );
}

4
libf2c/libF77/ef1asc_.c
View File

@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
#endif
{
s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
#ifdef __cplusplus
return 0;
#endif
return 0; /* ignored return value */
}

4
libf2c/libF77/s_rnge.c
View File

@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1
while((i = *varn) && i != ' ')
putc(*varn++, stderr);
sig_die(".", 1);
#ifdef __cplusplus
return 0;
#endif
return 0; /* not reached */
}

9
libf2c/libF77/s_stop.c
View File

@ -30,8 +30,13 @@ if(n > 0)
f_exit();
#endif
exit(0);
#ifdef __cplusplus
/* We cannot avoid (useless) compiler diagnostics here: */
/* some compilers complain if there is no return statement, */
/* and others complain that this one cannot be reached. */
return 0; /* NOT REACHED */
}
#endif
#ifdef __cplusplus
}
#endif

3
libf2c/libI77/Version.c
View File

@ -1,4 +1,4 @@
static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990502\n";
static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
/*
*/
@ -300,6 +300,7 @@ wrtfmt.c:
err.c: cast a pointer difference to (int) for %d.
rdfmt.c: omit fixed-length buffer that could be overwritten
by formats Inn or Lnn with nn > 83. */
/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */

4
libf2c/libI77/open.c
View File

@ -187,7 +187,7 @@ integer f_open(olist *a)
opnerr(a->oerr,107,"open");
}
else
sprintf(buf, "fort.%ld", a->ounit);
sprintf(buf, "fort.%ld", (long)a->ounit);
b->uscrtch = 0;
b->uend=0;
b->uwrt = 0;
@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n)
int rtn;
int save_init;
(void) sprintf(nbuf,"fort.%ld",n);
(void) sprintf(nbuf,"fort.%ld",(long)n);
a.oerr=1;
a.ounit=n;
a.ofnm=nbuf;

39
libf2c/readme.netlib
View File

@ -698,10 +698,21 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by
illegal use of equivalence); open.c: get "external" versus "internal"
right in the error message if a file cannot be opened; err.c: cast a
pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
that could be overwritten by formats Inn or Lnn with nn > 83.
inappropriate use of equivalence); open.c: get "external" versus
"internal" right in the error message if a file cannot be opened;
err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
fixed-length buffer that could be overwritten by formats Inn or Lnn
with nn > 83.
Mon May 3 13:14:07 EDT 1999
"Invisible" changes to omit a few compiler warnings in f2c and
libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
and one more tweak (libf2c/c_log.c) for pathological equivalences.
Minor update to "fc" script: new -L flag and comment correction.
Tue May 4 10:06:26 EDT 1999
libf77, libf2c.zip: forgot to copy yesterday's latest updates to
netlib.
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,
@ -709,17 +720,22 @@ 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:
3/28/1999 13:16:27 xsum0.out
3/26/1999 23:18:20 version.c
5/03/1999 12:46:15 version.c
5/03/1999 12:39:35 formatdata.c
5/03/1999 12:31:14 format.c
5/03/1999 12:27:17 p1output.c
5/03/1999 12:27:17 data.c
5/03/1999 10:01:12 xsum0.out
5/03/1999 9:59:36 io.c
5/03/1999 9:59:36 misc.c
5/03/1999 9:59:36 init.c
3/26/1999 23:18:11 lex.c
3/11/1999 16:44:17 expr.c
3/11/1999 16:42:42 exec.c
2/10/1999 17:43:01 defs.h
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
@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below:
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 init.c
10/01/1996 14:36:17 data.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
@ -741,12 +755,9 @@ timestamp of the source module that immediately follows version.c below:
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:36 memset.c
7/04/1996 9:55:35 main.c
7/04/1996 9:55:33 io.c
7/04/1996 9:55:29 error.c
7/04/1996 9:55:27 cds.c
7/03/1996 15:47:49 xsum.c