From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Sep 1991 20:37:33 +0000 (+0000)
Subject: Add `time_t' and change type of argument to `ctime' to be a pointer to
X-Git-Tag: 20090517-FFI~10184
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bdc4d64b403a35c13a453a58e649fe7308fd7050;p=mit-scheme.git

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 5ec1883f8..9604ee660 100644
--- 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 eaa68ad52..4647c5521 100644
--- 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));