[Openmcl-cvs-notifications] r16258 - /trunk/source/compiler/vinsn.lisp

gb at clozure.com gb at clozure.com
Fri Sep 26 22:58:09 UTC 2014


Author: gb
Date: Fri Sep 26 22:58:09 2014
New Revision: 16258

Log:
Register usage of float-typed vinsn temporary registers.

Modified:
    trunk/source/compiler/vinsn.lisp

Modified: trunk/source/compiler/vinsn.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/vinsn.lisp	(original)
+++ trunk/source/compiler/vinsn.lisp	Fri Sep 26 22:58:09 2014
@@ -491,9 +491,11 @@
 			    :class hard-reg-class-gpr
 			    :mode (gpr-mode-name-value class)))
         ((:double-float :single-float :complex-double-float :complex-singl=
e-float)
-         (make-unwired-lreg (select-fp-temp class)
-                            :class hard-reg-class-fpr
-                            :mode (fpr-mode-name-value class)))
+         (let* ((lreg (make-unwired-lreg (select-fp-temp class)
+                                         :class hard-reg-class-fpr
+                                         :mode (fpr-mode-name-value class)=
)))
+           (use-fp-reg lreg)
+           lreg))
         (:lisp =

          (make-unwired-lreg =

 	  (select-node-temp) =




More information about the Openmcl-cvs-notifications mailing list