From 1925c0af0219d3d02220328ed07a38287aac9c31 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 14:23:46 +0000
Subject: [PATCH] *** empty log message ***

---
 v8/src/compiler/machines/spectrum/rulfix.scm | 3 ++-
 v8/src/compiler/machines/spectrum/rulrew.scm | 8 +++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/v8/src/compiler/machines/spectrum/rulfix.scm b/v8/src/compiler/machines/spectrum/rulfix.scm
index 34e258b34..1a82d54a0 100644
--- a/v8/src/compiler/machines/spectrum/rulfix.scm
+++ b/v8/src/compiler/machines/spectrum/rulfix.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulfix.scm,v 1.2 1995/03/16 04:36:29 adams Exp $
+$Id: rulfix.scm,v 1.3 1995/07/27 14:23:08 adams Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -355,6 +355,7 @@ MIT in each case. |#
 			(LAP (COMICLR (=) 0 ,regnum:second-arg 0)))))))
       (if (machine-register? target)
 	  (begin
+	    (standard-target! target)
 	    (delete-dead-registers!)
 	    (core (copy regnum:first-arg target)))
 	  (begin
diff --git a/v8/src/compiler/machines/spectrum/rulrew.scm b/v8/src/compiler/machines/spectrum/rulrew.scm
index f4624dc84..c2c4c72ad 100644
--- a/v8/src/compiler/machines/spectrum/rulrew.scm
+++ b/v8/src/compiler/machines/spectrum/rulrew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulrew.scm,v 1.4 1995/03/17 03:46:53 adams Exp $
+$Id: rulrew.scm,v 1.5 1995/07/27 14:23:46 adams Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -318,6 +318,12 @@ MIT in each case. |#
 				   (rtl:object->address-expression
 				    base*)))))))))))
 
+(define-rule add-pre-cse-rewriting-rule!
+  ;; Prevent CSE of machine floating point constants with object flonums
+  (OBJECT->FLOAT (REGISTER (? value register-known-value)))
+  (QUALIFIER (and (rtl:constant? value)
+		  (flo:flonum? value)))
+  `(OBJECT->FLOAT ,value))
 
 ;;
 ;; (CONS-NON-POINTER (MACHINE-CONSTANT 0)
-- 
2.25.1