From 428338b39508ff2e50a4234dc0ad879dc20ff317 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 23 Mar 1988 18:31:25 +0000 Subject: [PATCH] Make Entity application check for interrupts to avoid blowing machine away in the case of an entity's procedure being that entity. This will allow you to abort if you are quick enough, but no stack check is currently being done, so errors here would probably blow scheme away anyhow. --- v7/src/microcode/interp.c | 4 ++-- v8/src/microcode/interp.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index f92f26f2b..0ce0040a5 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.41 1988/03/13 15:52:28 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.42 1988/03/23 18:31:25 jrm Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -1379,7 +1379,7 @@ Perform_Application: Push(Fast_Vector_Ref(Function, ENTITY_OPERATOR)); Push(nargs + 1); /* No interrupts, etc. */ - goto Perform_Application; + goto Apply_Non_Trapping; } /* Interpret() continues on the next page */ diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index 3a69a8b73..c542948f8 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.41 1988/03/13 15:52:28 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.42 1988/03/23 18:31:25 jrm Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -1379,7 +1379,7 @@ Perform_Application: Push(Fast_Vector_Ref(Function, ENTITY_OPERATOR)); Push(nargs + 1); /* No interrupts, etc. */ - goto Perform_Application; + goto Apply_Non_Trapping; } /* Interpret() continues on the next page */ -- 2.25.1