Changes for VMS.

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 056a65bac764367e96e1f0d53de47734ba6299da..a1e558f308b98114c72362f0f8d7293f5f0f8354 100644 (file)
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.28 1987/06/18 22:12:42 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.29 1987/06/19 15:53:28 jinx Rel $
  *
  * This file contains the configuration information and the information
  * given on the command line on Unix.
@@ -247,7 +247,8 @@ typedef unsigned long Pointer;
 
 #ifdef vms
 
-#define VMS_VERSION 4.5
+#define VMS_VERSION            4
+#define VMS_SUBVERSION         5
 
 /* Name conflict in VMS with system variable */
 #define Free                   Free_Register

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 84fd162568f1d03f020c420cefe2974df8fa0a29..d5ebf9f34bda8d920bbac28eeb6e0350f8ddbb85 100644 (file)
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.27 1987/06/09 18:48:44 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.28 1987/06/19 15:53:44 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -879,13 +879,13 @@ Pop_Return:
       define_compiler_restart (RC_COMP_UUO_LINK_TRAP_RESTART,
                               comp_uuo_link_trap_restart)
 
-      define_compiler_restart (RC_COMP_CACHE_REFERENCE_APPLY_RESTART,
+      define_compiler_restart (RC_COMP_CACHE_REF_APPLY_RESTART,
                               comp_cache_reference_apply_restart)
 
-      define_compiler_restart (RC_COMP_SAFE_REFERENCE_TRAP_RESTART,
+      define_compiler_restart (RC_COMP_SAFE_REF_TRAP_RESTART,
                               comp_safe_reference_trap_restart)
 
-      define_compiler_restart (RC_COMP_UNASSIGNED_P_TRAP_RESTART,
+      define_compiler_restart (RC_COMP_UNASSIGNED_TRAP_RESTART,
                               comp_unassigned_p_trap_restart)
 \f
     case RC_REENTER_COMPILED_CODE:

diff --git a/v7/src/microcode/returns.h b/v7/src/microcode/returns.h
index 3733428a12ffde7e453fb3e773b760b204fc0374..f4a23d2e37f313e0e6b9ce015098cfecb650f223 100644 (file)
--- a/v7/src/microcode/returns.h
+++ b/v7/src/microcode/returns.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/returns.h,v 9.25 1987/05/31 16:37:34 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/returns.h,v 9.26 1987/06/19 15:54:29 jinx Rel $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -118,9 +118,9 @@ MIT in each case. */
 #define RC_COMP_ASSIGNMENT_TRAP_RESTART 0x54
 #define RC_COMP_UUO_LINK_RESTART        0x55
 #define RC_COMP_UUO_LINK_TRAP_RESTART   0x56
-#define RC_COMP_CACHE_REFERENCE_APPLY_RESTART 0x57
-#define RC_COMP_SAFE_REFERENCE_TRAP_RESTART 0x58
-#define RC_COMP_UNASSIGNED_P_TRAP_RESTART 0x59
+#define RC_COMP_CACHE_REF_APPLY_RESTART 0x57
+#define RC_COMP_SAFE_REF_TRAP_RESTART   0x58
+#define RC_COMP_UNASSIGNED_TRAP_RESTART 0x59
 
 #define MAX_RETURN_CODE                        0x59
 

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 326dd3312a7daf13f11d6ff18e75208e6a14b6a5..2ef351fbbab0ebb0b1d819c5670e7685bcc15ab9 100644 (file)
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.27 1987/06/09 18:48:44 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.28 1987/06/19 15:53:44 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -879,13 +879,13 @@ Pop_Return:
       define_compiler_restart (RC_COMP_UUO_LINK_TRAP_RESTART,
                               comp_uuo_link_trap_restart)
 
-      define_compiler_restart (RC_COMP_CACHE_REFERENCE_APPLY_RESTART,
+      define_compiler_restart (RC_COMP_CACHE_REF_APPLY_RESTART,
                               comp_cache_reference_apply_restart)
 
-      define_compiler_restart (RC_COMP_SAFE_REFERENCE_TRAP_RESTART,
+      define_compiler_restart (RC_COMP_SAFE_REF_TRAP_RESTART,
                               comp_safe_reference_trap_restart)
 
-      define_compiler_restart (RC_COMP_UNASSIGNED_P_TRAP_RESTART,
+      define_compiler_restart (RC_COMP_UNASSIGNED_TRAP_RESTART,
                               comp_unassigned_p_trap_restart)
 \f
     case RC_REENTER_COMPILED_CODE:

diff --git a/v8/src/microcode/returns.h b/v8/src/microcode/returns.h
index d90dc88f2a318218fe4eeff674b9abd74ad48098..e7b07ffed38e3ed130ec38ece7fcb4ba0de5fb72 100644 (file)
--- a/v8/src/microcode/returns.h
+++ b/v8/src/microcode/returns.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/returns.h,v 9.25 1987/05/31 16:37:34 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/returns.h,v 9.26 1987/06/19 15:54:29 jinx Rel $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -118,9 +118,9 @@ MIT in each case. */
 #define RC_COMP_ASSIGNMENT_TRAP_RESTART 0x54
 #define RC_COMP_UUO_LINK_RESTART        0x55
 #define RC_COMP_UUO_LINK_TRAP_RESTART   0x56
-#define RC_COMP_CACHE_REFERENCE_APPLY_RESTART 0x57
-#define RC_COMP_SAFE_REFERENCE_TRAP_RESTART 0x58
-#define RC_COMP_UNASSIGNED_P_TRAP_RESTART 0x59
+#define RC_COMP_CACHE_REF_APPLY_RESTART 0x57
+#define RC_COMP_SAFE_REF_TRAP_RESTART   0x58
+#define RC_COMP_UNASSIGNED_TRAP_RESTART 0x59
 
 #define MAX_RETURN_CODE                        0x59