From 024cf35d46d753b4b36ec8c1d7d041d8e66d038f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 26 May 1987 14:47:22 +0000 Subject: [PATCH] Record pop in these rules. --- v7/src/compiler/machines/bobcat/lapgen.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 6d2d7f6bb..45c19ac60 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.167 1987/05/22 00:12:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.168 1987/05/26 14:47:22 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -564,10 +564,12 @@ MIT in each case. |# (define-rule predicate (EQ-TEST (POST-INCREMENT (REGISTER 15) 1) (REGISTER (? register))) + (record-pop!) (eq-test/register*memory register '(@A+ 7))) (define-rule predicate (EQ-TEST (REGISTER (? register)) (POST-INCREMENT (REGISTER 15) 1)) + (record-pop!) (eq-test/register*memory register '(@A+ 7))) (define-rule predicate -- 2.25.1