Add `time_t' and change type of argument to `ctime' to be a pointer to

that type.

diff --git a/v7/src/microcode/posixtyp.h b/v7/src/microcode/posixtyp.h
index 5ec1883f89899e73bdf2f34de38f66cd934eb30e..9604ee660f5038424e6ab09e9cc872f7d11a8449 100644 (file)
--- a/v7/src/microcode/posixtyp.h
+++ b/v7/src/microcode/posixtyp.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/posixtyp.h,v 1.3 1990/12/11 04:16:23 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/posixtyp.h,v 1.4 1991/09/25 20:37:24 cph Exp $
 
-Copyright (c) 1990 Massachusetts Institute of Technology
+Copyright (c) 1990-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,10 +62,17 @@ MIT in each case. */
 #define _NLINK_T
 #define _PID_T
 #define _CLOCK_T
+#define _TIME_T
 #define _SIZE_T
 #define _CC_T
 #endif
 
+#ifdef apollo
+#define _MODE_T
+#define _NLINK_T
+#define _PID_T
+#endif
+
 #endif
 
 #ifndef _MODE_T
@@ -101,6 +108,11 @@ typedef short gid_t;
 typedef unsigned long clock_t;
 #endif
 
+#ifndef _TIME_T
+#define _TIME_T
+typedef long time_t;
+#endif
+
 #ifndef _SIZE_T
 #define _SIZE_T
 typedef unsigned int size_t;

diff --git a/v7/src/microcode/pruxenv.c b/v7/src/microcode/pruxenv.c
index eaa68ad52959aeafac21c3b3029babe0607fabd4..4647c55212ceef12831157cda4b6e7a5c613a5f4 100644 (file)
--- a/v7/src/microcode/pruxenv.c
+++ b/v7/src/microcode/pruxenv.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxenv.c,v 1.3 1991/08/13 05:46:06 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxenv.c,v 1.4 1991/09/25 20:37:33 cph Exp $
 
-Copyright (c) 1990 Massachusetts Institute of Technology
+Copyright (c) 1990-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -61,7 +61,7 @@ DEFINE_PRIMITIVE ("FILE-TIME->STRING", Prim_file_time_to_string, 1, 1,
   PRIMITIVE_HEADER (1);
   CHECK_ARG (1, INTEGER_P);
   {
-    long clock = (arg_integer (1));
+    time_t clock = (arg_integer (1));
     char * time_string = (UX_ctime (&clock));
     (time_string[24]) = '\0';
     PRIMITIVE_RETURN (char_pointer_to_string (time_string));