Add new rule.

diff --git a/v7/src/compiler/machines/bobcat/rules1.scm b/v7/src/compiler/machines/bobcat/rules1.scm
index 153fe01ca391a6645a94fad529c8c8ed95f1a294..7c1c2dd5bfb4a1edac86291cc3df885106cce8c3 100644 (file)
--- a/v7/src/compiler/machines/bobcat/rules1.scm
+++ b/v7/src/compiler/machines/bobcat/rules1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 1.3 1987/06/15 22:44:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules1.scm,v 1.4 1987/06/18 01:08:51 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -136,6 +136,11 @@ MIT in each case. |#
          (CONSTANT (? object)))
   `(,(load-constant object (indirect-reference! a n))))
 
+(define-rule statement
+  (ASSIGN (OFFSET (REGISTER (? a)) (? n))
+         (UNASSIGNED))
+  `(,(load-non-pointer type-code:unassigned 0 (indirect-reference! a n))))
+
 (define-rule statement
   (ASSIGN (OFFSET (REGISTER (? a)) (? n))
          (REGISTER (? r)))