From 24a5f9eb4cf99c5c8f83541afa9654db54dc77ac Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 22 Jul 1996 16:24:01 +0000
Subject: [PATCH] Added open-coder for %fixnum->flonum.

---
 v8/src/compiler/midend/rtlgen.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index f77ec9b68..19fcd59f7 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.47 1996/07/19 02:27:15 adams Exp $
+$Id: rtlgen.scm,v 1.48 1996/07/22 16:24:01 adams Exp $
 
 Copyright (c) 1994-96 Massachusetts Institute of Technology
 
@@ -3848,6 +3848,17 @@ MIT in each case. |#
   (define-flonum-primitive/2 'FLONUM-MULTIPLY 'FLONUM-MULTIPLY)
   (define-flonum-primitive/2 'FLONUM-SUBTRACT 'FLONUM-SUBTRACT))
 
+
+(define-open-coder/value %fixnum->flonum 1
+  (lambda (state rands open-coder)
+    open-coder				; ignored
+    (let* ((rand (rtlgen/->register (first rands))))
+      (rtlgen/value-assignment
+       state
+       `(FLOAT->OBJECT
+	 ,(rtlgen/->register
+	   `(FLONUM-1-ARG FIXNUM->FLONUM ,rand #F)))))))
+
 (let ((char-tag   (machine-tag 'CHARACTER))
       (fixnum-tag (machine-tag 'POSITIVE-FIXNUM)))
   (let ((define-datum-conversion
-- 
2.25.1