+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.
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.
-static char junk[] = "\n@(#)LIBF77 VERSION 19990502\n";
+static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
/*
*/
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>
#endif
{
sig_die("Fortran abort routine called", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* not reached */
}
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) );
}
#endif
{
s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* ignored return value */
}
while((i = *varn) && i != ' ')
putc(*varn++, stderr);
sig_die(".", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* not reached */
}
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
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990502\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
/*
*/
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. */
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;
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;
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,
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
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
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
OSDN Git Service
