From: ssmith <ssmith>
Date: Wed, 11 Jan 1995 20:53:51 +0000 (+0000)
Subject: Added COERCE-VALUE-CLASS rules.  Copied verbatim from Spectrum without
X-Git-Tag: 20090517-FFI~6765
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ac07d9c402dc4733eeb2654f716b18f3be658638;p=mit-scheme.git

Added COERCE-VALUE-CLASS rules.  Copied verbatim from Spectrum without
understanding their purpose or function.
---

diff --git a/v8/src/compiler/machines/i386/rulrew.scm b/v8/src/compiler/machines/i386/rulrew.scm
index cf4766309..960025bad 100644
--- a/v8/src/compiler/machines/i386/rulrew.scm
+++ b/v8/src/compiler/machines/i386/rulrew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulrew.scm,v 1.1 1995/01/10 20:53:08 adams Exp $
+$Id: rulrew.scm,v 1.2 1995/01/11 20:53:51 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -377,3 +377,15 @@ MIT in each case. |#
 	  (rtl:register? sub)))))
 
 
+;; New rules added for Scheme 8.0
+
+(define-rule add-pre-cse-rewriting-rule!
+  (COERCE-VALUE-CLASS (? frob) (? class))
+  class					; ignored
+  (error "Unknown expression for " frob)
+  frob)
+
+(define-rule add-pre-cse-rewriting-rule!
+  (COERCE-VALUE-CLASS (REGISTER (? frob register-known-expression)) (? class))
+  class					; ignored
+  frob)