[src/trunk]: src/gnu/dist/libf2c Import libf2c from egcs 1.1.2.

[tv <tv%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/73e9e5268c32
branches:  trunk
changeset: 471634:73e9e5268c32
user:      tv <tv%NetBSD.org@localhost>
date:      Tue Apr 06 16:20:26 1999 +0000

description:
Import libf2c from egcs 1.1.2.

diffstat:

 gnu/dist/libf2c/libI77/Version.c   |  2 +-
 gnu/dist/libf2c/libU77/Version.c   |  2 +-
 gnu/dist/libf2c/libU77/datetime_.c |  8 +++++++-
 gnu/dist/libf2c/libU77/lstat_.c    |  1 -
 gnu/dist/libf2c/libU77/vxtidate_.c |  2 +-
 5 files changed, 10 insertions(+), 5 deletions(-)

diffs (71 lines):

diff -r 22c404460aa8 -r 73e9e5268c32 gnu/dist/libf2c/libI77/Version.c
--- a/gnu/dist/libf2c/libI77/Version.c  Tue Apr 06 16:04:00 1999 +0000
+++ b/gnu/dist/libf2c/libI77/Version.c  Tue Apr 06 16:20:26 1999 +0000
@@ -3,7 +3,7 @@
 /*
 */
 
-char __G77_LIBI77_VERSION__[] = "0.5.24-19980920";
+char __G77_LIBI77_VERSION__[] = "0.5.24-19981021";
 
 /*
 2.01   $ format added
diff -r 22c404460aa8 -r 73e9e5268c32 gnu/dist/libf2c/libU77/Version.c
--- a/gnu/dist/libf2c/libU77/Version.c  Tue Apr 06 16:04:00 1999 +0000
+++ b/gnu/dist/libf2c/libU77/Version.c  Tue Apr 06 16:20:26 1999 +0000
@@ -1,6 +1,6 @@
 static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
 
-char __G77_LIBU77_VERSION__[] = "0.5.24";
+char __G77_LIBU77_VERSION__[] = "0.5.24-19990305";
 
 #include <stdio.h>
 
diff -r 22c404460aa8 -r 73e9e5268c32 gnu/dist/libf2c/libU77/datetime_.c
--- a/gnu/dist/libf2c/libU77/datetime_.c        Tue Apr 06 16:04:00 1999 +0000
+++ b/gnu/dist/libf2c/libU77/datetime_.c        Tue Apr 06 16:20:26 1999 +0000
@@ -32,6 +32,12 @@
 #endif
 #include "f2c.h"
 
+#ifdef KR_headers
+VOID s_copy ();
+#else
+void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+#endif
+
 int G77_date_and_time_0 (char *date, char *fftime, char *zone,
                         integer *values, ftnlen date_len,
                         ftnlen fftime_len, ftnlen zone_len)
@@ -58,7 +64,7 @@
     struct timeval tp;
     struct timezone tzp;
     if (! gettimeofday (&tp, &tzp))
-      vals[7] = tp.tv_usec;
+      vals[7] = tp.tv_usec/1000;
   }
 #endif
   if (values)                  /* null pointer for missing optional */
diff -r 22c404460aa8 -r 73e9e5268c32 gnu/dist/libf2c/libU77/lstat_.c
--- a/gnu/dist/libf2c/libU77/lstat_.c   Tue Apr 06 16:04:00 1999 +0000
+++ b/gnu/dist/libf2c/libU77/lstat_.c   Tue Apr 06 16:20:26 1999 +0000
@@ -69,7 +69,6 @@
   statb[8] = buf.st_atime;
   statb[9] = buf.st_mtime;
   statb[10] = buf.st_ctime;
-  statb[6] = 0;
 #if HAVE_ST_BLKSIZE
   statb[11] = buf.st_blksize;
 #else
diff -r 22c404460aa8 -r 73e9e5268c32 gnu/dist/libf2c/libU77/vxtidate_.c
--- a/gnu/dist/libf2c/libU77/vxtidate_.c        Tue Apr 06 16:04:00 1999 +0000
+++ b/gnu/dist/libf2c/libU77/vxtidate_.c        Tue Apr 06 16:20:26 1999 +0000
@@ -48,7 +48,7 @@
   time_t tim;
   tim = time(NULL);
   lt = localtime(&tim);
-  *y = lt->tm_year;
+  *y = lt->tm_year % 100;
   *m = lt->tm_mon+1;
   *d = lt->tm_mday;
   return 0;