From 939ba5f2ed0a63bd7bc6d6684441114550c7db78 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 1 Jun 1987 16:06:11 +0000 Subject: [PATCH] Change interpreter-call:cache-assignment to extract the type of the cache reference before testing it. --- v7/src/compiler/rtlgen/rgstmt.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlgen/rgstmt.scm b/v7/src/compiler/rtlgen/rgstmt.scm index aaa2ad815..9a5de5012 100644 --- a/v7/src/compiler/rtlgen/rgstmt.scm +++ b/v7/src/compiler/rtlgen/rgstmt.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgstmt.scm,v 1.4 1987/05/29 17:54:54 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgstmt.scm,v 1.5 1987/06/01 16:06:11 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -112,7 +112,8 @@ MIT in each case. |# (let ((cell (rtl:make-fetch temp))) (let ((contents (rtl:make-fetch cell))) (let ((n1 (rtl:make-assignment temp (rtl:make-variable-cache name))) - (n2 (rtl:make-type-test contents (ucode-type reference-trap))) + (n2 (rtl:make-type-test (rtl:make-object->type contents) + (ucode-type reference-trap))) (n3 (rtl:make-unassigned-test contents)) (n4 (rtl:make-assignment cell value)) (n5 (rtl:make-interpreter-call:cache-assignment cell value))) -- 2.25.1