From: Guillermo J. Rozas Date: Fri, 19 Jun 1987 15:54:29 +0000 (+0000) Subject: Changes for VMS. X-Git-Tag: 20090517-FFI~13347 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=787dc855366aa50ece775dcf6c8ed6bb006597b7;p=mit-scheme.git Changes for VMS. --- diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h index 056a65bac..a1e558f30 100644 --- 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 84fd16256..d5ebf9f34 100644 --- 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) case RC_REENTER_COMPILED_CODE: diff --git a/v7/src/microcode/returns.h b/v7/src/microcode/returns.h index 3733428a1..f4a23d2e3 100644 --- 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 326dd3312..2ef351fbb 100644 --- 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) case RC_REENTER_COMPILED_CODE: diff --git a/v8/src/microcode/returns.h b/v8/src/microcode/returns.h index d90dc88f2..e7b07ffed 100644 --- 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