summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libU77/vxtidate_.c
diff options
context:
space:
mode:
authorMarc Espie <espie@cvs.openbsd.org>2004-12-30 17:35:29 +0000
committerMarc Espie <espie@cvs.openbsd.org>2004-12-30 17:35:29 +0000
commit157d4bd650a3e421c5bac48da7e528af9a6a76e2 (patch)
tree0379fb2c85e183c3c5669d425b3e42ae4592791b /gnu/lib/libf2c/libU77/vxtidate_.c
parent791194721fec8918406191b62da6dc41f2d690e5 (diff)
Actual synch with 3.3.5.
Changes in Makefile.bsd-wrapper to avoid prereq. Fix in lib*/config.h.in to include the right ones and get the correct definitions. Bump of shlib_version accordingly.
Diffstat (limited to 'gnu/lib/libf2c/libU77/vxtidate_.c')
-rw-r--r--gnu/lib/libf2c/libU77/vxtidate_.c28
1 files changed, 11 insertions, 17 deletions
diff --git a/gnu/lib/libf2c/libU77/vxtidate_.c b/gnu/lib/libf2c/libU77/vxtidate_.c
index e5963af42e6..0563a9120d6 100644
--- a/gnu/lib/libf2c/libU77/vxtidate_.c
+++ b/gnu/lib/libf2c/libU77/vxtidate_.c
@@ -38,34 +38,28 @@ Boston, MA 02111-1307, USA. */
/* VMS style: */
/* Subroutine */
-#ifdef KR_headers
-int G77_vxtidate_y2kbug_0 (m, d, y)
- integer *y, *m, *d;
-#else
-int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y)
-#endif
+int
+G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y)
{
struct tm *lt;
time_t tim;
- tim = time(NULL);
- lt = localtime(&tim);
+ tim = time (NULL);
+ lt = localtime (&tim);
*y = lt->tm_year % 100;
- *m = lt->tm_mon+1;
+ *m = lt->tm_mon + 1;
*d = lt->tm_mday;
return 0;
}
#ifdef PIC
extern const char *G77_Non_Y2K_Compliance_Message;
-# ifdef KR_headers
-int G77_vxtidate_y2kbuggy_0 (m, d, y)
- integer *y, *m, *d;
-# else
-int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y)
-# endif
+int
+G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)),
+ integer * d __attribute__ ((__unused__)),
+ integer * y __attribute__ ((__unused__)))
{
- extern int G77_abort_0();
+ extern int G77_abort_0 ();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
- G77_abort_0();
+ G77_abort_0 ();
}
#endif