From: ssmith <ssmith>
Date: Wed, 11 Jan 1995 16:24:26 +0000 (+0000)
Subject: Added trivial closures -- copied from Spectrum's.
X-Git-Tag: 20090517-FFI~6769
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=30203e70aa0e7e759cc686becc3d3b71d1e38669;p=mit-scheme.git

Added trivial closures -- copied from Spectrum's.
---

diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm
index 0a6820885..57b505aa2 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.1 1995/01/10 20:53:05 adams Exp $
+$Id: rules3.scm,v 1.2 1995/01/11 16:24:26 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -808,6 +808,25 @@ MIT in each case. |#
       '()
       (cons (cons false (allocate-constant-label)) 	; relocation address
 	    (do-rest uuos))))
+
+
+;; The following rules were created specifically for the new version
+;; and therefore are required (unlike the rules above, which may or may not
+;; be obsolete in the new version 8.0)
+
+;; Copied from the Spectrum's rules3.scm
+;; NOTE that make-external-label is in i386/lapgen, but in spectrum/rules3
+;;   also, there are some differences ** potential bug
+;; 
+(define-rule statement
+  (TRIVIAL-CLOSURE (? label)
+		   (? dbg-info)
+		   (MACHINE-CONSTANT (? min))
+		   (MACHINE-CONSTANT (? max)))
+  dbg-info				; ignored
+  (make-external-label (make-procedure-code-word min max)
+		       label))
+
 
 ;;; Local Variables: ***
 ;;; eval: (put 'declare-constants 'scheme-indent-hook 2) ***