From 8f60b01824bf219469d648a76bcd755fee8c1018 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 20 Jul 1996 22:57:13 +0000 Subject: [PATCH] Added %fixnum->flonum. --- v8/src/compiler/midend/fakeprim.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm index ca3523c57..0a922864d 100644 --- a/v8/src/compiler/midend/fakeprim.scm +++ b/v8/src/compiler/midend/fakeprim.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: fakeprim.scm,v 1.26 1996/07/19 02:27:59 adams Exp $ +$Id: fakeprim.scm,v 1.27 1996/07/20 22:57:13 adams Exp $ Copyright (c) 1994-96 Massachusetts Institute of Technology @@ -757,6 +757,11 @@ MIT in each case. |# (make-operator/simple* "#[flo:multicell-set!]" '(UNSPECIFIC-RESULT))) +(define %fixnum->flonum + ;; (CALL ',%fixnum->flonum '#F fixnum) + ;; Convert a fixnum into a flonum. + (make-operator/simple "#[fixnum->flonum]" '(RESULT-TYPE FLONUM))) + ;; Tuples are collections of values. Each slot is named. LAYOUT ;; describes the arrangment of the slots in memory. Currently it is ;; just a vector of names. Tuples are immutable. The intention is -- 2.25.1