Add new OS-dependent mechanism for building the system-call names

tables that the runtime system uses for detecting and reporting
system-call errors.  This change is upwards compatible with previous
versions of the microcode and also with previous versions of the
runtime system.

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index f25acc27e5037732de25b293922b179ebdd62253..af3ac9d6dc3c8c6a155458cb62570af122b2c1f2 100644 (file)
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.89 1994/10/04 22:01:13 cph Exp $
+$Id: boot.c,v 9.90 1994/10/04 22:02:19 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -365,8 +365,6 @@ DEFUN_VOID (initialize_fixed_objects_vector)
     NT_initialize_fov (fixed_objects_vector);
   }
 #endif /* WINNT */
-
-  return (fixed_objects_vector);
 }
 \f
 /* Boot Scheme */

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index e853e55fe97e63da4b5517068b57c131bfcb39e6..1c878ce7f70f9686f29436f18d23fd3038df979d 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.75 1994/10/04 21:08:02 cph Exp $
+;;; $Id: utabmd.scm,v 9.76 1994/10/04 22:05:53 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987-1994 Massachusetts Institute of Technology
 ;;;
@@ -592,8 +592,8 @@
 \f
 ;;; [] System-call names
 
-(define-macro (ucode-primitive name)
-  (make-primitive-procedure name))
+(define-macro (ucode-primitive . args)
+  (apply make-primitive-procedure args))
 
 (vector-set! (get-fixed-objects-vector)
             #x09 ;(fixed-objects-vector-slot 'SYSTEM-CALL-NAMES)
@@ -725,4 +725,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.75 1994/10/04 21:08:02 cph Exp $"
+"$Id: utabmd.scm,v 9.76 1994/10/04 22:05:53 cph Exp $"

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 1247f7de9162cc936988fee5265da1e9eafc5342..30d1a1fc24ddf44d0e27207c74c1c7139b1d5f5d 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: version.h,v 11.147 1993/12/07 20:35:21 gjr Exp $
+$Id: version.h,v 11.148 1994/10/04 22:02:52 cph Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,7 +37,7 @@ MIT in each case. */
 /* Scheme system release version */
 
 #ifndef RELEASE
-#define RELEASE                "7.3.0 (beta)"
+#define RELEASE                "7.4.0 (alpha)"
 #endif
 
 /* Microcode release version */
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     147
+#define SUBVERSION     148
 #endif

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index e853e55fe97e63da4b5517068b57c131bfcb39e6..1c878ce7f70f9686f29436f18d23fd3038df979d 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.75 1994/10/04 21:08:02 cph Exp $
+;;; $Id: utabmd.scm,v 9.76 1994/10/04 22:05:53 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987-1994 Massachusetts Institute of Technology
 ;;;
@@ -592,8 +592,8 @@
 \f
 ;;; [] System-call names
 
-(define-macro (ucode-primitive name)
-  (make-primitive-procedure name))
+(define-macro (ucode-primitive . args)
+  (apply make-primitive-procedure args))
 
 (vector-set! (get-fixed-objects-vector)
             #x09 ;(fixed-objects-vector-slot 'SYSTEM-CALL-NAMES)
@@ -725,4 +725,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.75 1994/10/04 21:08:02 cph Exp $"
+"$Id: utabmd.scm,v 9.76 1994/10/04 22:05:53 cph Exp $"

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 1247f7de9162cc936988fee5265da1e9eafc5342..30d1a1fc24ddf44d0e27207c74c1c7139b1d5f5d 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: version.h,v 11.147 1993/12/07 20:35:21 gjr Exp $
+$Id: version.h,v 11.148 1994/10/04 22:02:52 cph Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,7 +37,7 @@ MIT in each case. */
 /* Scheme system release version */
 
 #ifndef RELEASE
-#define RELEASE                "7.3.0 (beta)"
+#define RELEASE                "7.4.0 (alpha)"
 #endif
 
 /* Microcode release version */
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     147
+#define SUBVERSION     148
 #endif