Added open-coder for %fixnum->flonum.

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index f77ec9b68b1202b0d9bd591e299b59058947ad7e..19fcd59f771d3313485a3dfca8fd545eb5df1c75 100644 (file)
--- 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))
 \f
+
+(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