From 793027ca58a942b8e4200762cd593010566b1f56 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 5 Oct 1987 21:48:32 +0000 Subject: [PATCH] Minor bug: compiler_cache_assignment was passing the wrong kind argument to compiler_cache_reference. --- v7/src/microcode/lookup.c | 4 ++-- v8/src/microcode/lookup.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c index ed7f7bec0..7fb8d0535 100644 --- a/v7/src/microcode/lookup.c +++ b/v7/src/microcode/lookup.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/lookup.c,v 9.35 1987/10/05 19:25:33 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.36 1987/10/05 21:48:32 jinx Exp $ * * This file contains symbol lookup and modification routines. See * Hal Abelson for a paper describing and justifying the algorithm. @@ -1915,7 +1915,7 @@ compiler_cache_assignment(name, block, offset) { return compiler_cache_reference(compiled_block_environment(block), name, block, offset, - TRAP_REFERENCES_LOOKUP); + TRAP_REFERENCES_ASSIGNMENT); } long diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c index eafdaf316..08edcefa2 100644 --- a/v8/src/microcode/lookup.c +++ b/v8/src/microcode/lookup.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/lookup.c,v 9.35 1987/10/05 19:25:33 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.36 1987/10/05 21:48:32 jinx Exp $ * * This file contains symbol lookup and modification routines. See * Hal Abelson for a paper describing and justifying the algorithm. @@ -1915,7 +1915,7 @@ compiler_cache_assignment(name, block, offset) { return compiler_cache_reference(compiled_block_environment(block), name, block, offset, - TRAP_REFERENCES_LOOKUP); + TRAP_REFERENCES_ASSIGNMENT); } long -- 2.25.1