Add a rule which implements consing of unassigned objects.

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 8597a5401b860b5d1e84a83b19cd40480e22640b..3fd28bd5d564ead29e857521a4ce25d7dd70e812 100644 (file)
--- 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))))