Copied CLOSURE and EXPRESSION rules verbatim.

diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm
index f40e9f30d1ea7b2e157f8ae4c303b83d090615b4..ea125e13c58e370afb26ccf68779c0cca81ddf26 100644 (file)
--- a/v8/src/compiler/machines/i386/rules3.scm
+++ b/v8/src/compiler/machines/i386/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.5 1995/01/11 22:02:45 ssmith Exp $
+$Id: rules3.scm,v 1.6 1995/01/11 22:09:38 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -827,6 +827,20 @@ MIT in each case. |#
   (make-external-label (make-procedure-code-word min max)
                       label))
 
+(define-rule statement
+  (CLOSURE (? label) (? dbg-info) (MACHINE-CONSTANT (? frame-size)))
+  dbg-info frame-size                  ; ignored
+  (LAP ,@(make-external-label internal-closure-code-word label)))
+
+(define-rule statement
+  (EXPRESSION (? label) (? dbg-info))
+  #|
+  ;; Prefix takes care of this
+  (LAP ,@(make-external-label expression-code-word label))
+  |#
+  label dbg-info                       ; ignored
+  (LAP))
+
 (define-rule statement
   (INTERRUPT-CHECK:PROCEDURE (? intrpt) (? heap) (? stack) (? label)
                             (MACHINE-CONSTANT (? frame-size)))