From: ssmith Date: Wed, 11 Jan 1995 22:09:38 +0000 (+0000) Subject: Copied CLOSURE and EXPRESSION rules verbatim. X-Git-Tag: 20090517-FFI~6761 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1960f8e12c7ce9b5b11718694cb8ca6c5643e4e6;p=mit-scheme.git 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 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)))