From 855205faa95fdeb9e50355f7067e806f87608e6b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 20 Mar 1987 05:16:16 +0000 Subject: [PATCH] Add a rule which implements consing of unassigned objects. --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 8597a5401..3fd28bd5d 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.154 1987/03/19 00:53:33 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.155 1987/03/20 05:16:16 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -335,6 +335,10 @@ MIT in each case. |# (ASSIGN (POST-INCREMENT (REGISTER 13) 1) (CONSTANT (? object))) `(,(load-constant object '(@A+ 5)))) +(define-rule statement + (ASSIGN (POST-INCREMENT (REGISTER 13) 1) (UNASSIGNED)) + `(,(load-non-pointer type-code:unassigned 0 '(@A+ 5)))) + (define-rule statement (ASSIGN (POST-INCREMENT (REGISTER 13) 1) (REGISTER (? r))) `((MOVE L ,(coerce->any r) (@A+ 5)))) -- 2.25.1