From: ssmith <ssmith>
Date: Wed, 1 Nov 1995 20:43:25 +0000 (+0000)
Subject: Copied PRED-1-ARG INDEX-FIXNUM? verbatim from Spectrum.
X-Git-Tag: 20090517-FFI~5796
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f87efeb789ab010732684ab457f30b48b0d17b4a;p=mit-scheme.git

Copied PRED-1-ARG INDEX-FIXNUM? verbatim from Spectrum.
---

diff --git a/v8/src/compiler/machines/i386/rulrew.scm b/v8/src/compiler/machines/i386/rulrew.scm
index 1755f8e56..130e99674 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.3 1995/05/24 00:22:09 ssmith Exp $
+$Id: rulrew.scm,v 1.4 1995/11/01 20:43:25 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -389,3 +389,10 @@ MIT in each case. |#
   (COERCE-VALUE-CLASS (REGISTER (? frob register-known-expression)) (? class))
   class					; ignored
   frob)
+
+(define-rule add-pre-cse-rewriting-rule!
+  (PRED-1-ARG INDEX-FIXNUM? (? source))
+
+  ;; This is a predicate so we can't use rtl:make-type-test
+
+  (list 'TYPE-TEST (rtl:make-object->type source) (ucode-type positive-fixnum)))