From 1960f8e12c7ce9b5b11718694cb8ca6c5643e4e6 Mon Sep 17 00:00:00 2001
From: ssmith <ssmith>
Date: Wed, 11 Jan 1995 22:09:38 +0000
Subject: [PATCH] Copied CLOSURE and EXPRESSION rules verbatim.

---
 v8/src/compiler/machines/i386/rules3.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm
index f40e9f30d..ea125e13c 100644
--- 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)))
-- 
2.25.1