From 5ad6139161b6ee46b0e2ce04c7014ca8f989f8f4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 7 Aug 1987 22:52:30 +0000 Subject: [PATCH] Implement rule for cache-unassigned? trap. --- v7/src/compiler/machines/bobcat/rules4.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/rules4.scm b/v7/src/compiler/machines/bobcat/rules4.scm index 125b085cb..8756b74b3 100644 --- a/v7/src/compiler/machines/bobcat/rules4.scm +++ b/v7/src/compiler/machines/bobcat/rules4.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules4.scm,v 1.3 1987/07/16 10:12:01 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules4.scm,v 1.4 1987/08/07 22:52:30 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -173,6 +173,15 @@ MIT in each case. |# (MOV L ,reg:temp (A 1)) (JSR ,entry:compiler-assignment-trap) ,@(make-external-label (generate-label))))))) + +(define-rule statement + (INTERPRETER-CALL:CACHE-UNASSIGNED? (? extension)) + (let ((set-extension (expression->machine-register! extension a0))) + (let ((clear-map (clear-map!))) + (LAP ,@set-extension + ,@clear-map + (JSR ,entry:compiler-unassigned?-trap) + ,@(make-external-label (generate-label)))))) ;;;; Poppers -- 2.25.1