From 19c8c0ec16adb49f224b489feda4cd8b45c38c85 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 10 Nov 1988 06:14:18 +0000 Subject: [PATCH] Fix self evaluation of compiled entries which are not compiled expressions. --- v7/src/microcode/interp.c | 4 ++-- v7/src/microcode/version.h | 4 ++-- v8/src/microcode/interp.c | 4 ++-- v8/src/microcode/version.h | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index 6492ced72..87ae0d6ff 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.46 1988/09/29 04:58:42 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.47 1988/11/10 06:14:18 jinx Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -664,7 +664,7 @@ Eval_Non_Trapping: compiled_expression = (Fetch_Expression ()); execute_compiled_setup(); - Store_Expression ((Pointer) (Get_Pointer (compiled_expression))); + Store_Expression (compiled_expression); Export_Registers(); Which_Way = enter_compiled_expression(); goto return_from_compiled_code; diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h index 73d89f988..7d1124e2b 100644 --- a/v7/src/microcode/version.h +++ b/v7/src/microcode/version.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.61 1988/11/08 07:30:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.62 1988/11/10 06:13:19 jinx Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -46,7 +46,7 @@ MIT in each case. */ #define VERSION 10 #endif #ifndef SUBVERSION -#define SUBVERSION 61 +#define SUBVERSION 62 #endif #ifndef UCODE_TABLES_FILENAME diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index 3d631cf6c..11141c1c6 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.46 1988/09/29 04:58:42 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.47 1988/11/10 06:14:18 jinx Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -664,7 +664,7 @@ Eval_Non_Trapping: compiled_expression = (Fetch_Expression ()); execute_compiled_setup(); - Store_Expression ((Pointer) (Get_Pointer (compiled_expression))); + Store_Expression (compiled_expression); Export_Registers(); Which_Way = enter_compiled_expression(); goto return_from_compiled_code; diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h index 2db752e06..48ffd73b4 100644 --- a/v8/src/microcode/version.h +++ b/v8/src/microcode/version.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.61 1988/11/08 07:30:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.62 1988/11/10 06:13:19 jinx Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -46,7 +46,7 @@ MIT in each case. */ #define VERSION 10 #endif #ifndef SUBVERSION -#define SUBVERSION 61 +#define SUBVERSION 62 #endif #ifndef UCODE_TABLES_FILENAME -- 2.25.1