[Openmcl-cvs-notifications] r16257 - /trunk/source/compiler/vreg.lisp

gb at clozure.com gb at clozure.com
Fri Sep 26 22:52:30 UTC 2014


Author: gb
Date: Fri Sep 26 22:52:30 2014
New Revision: 16257

Log:
Note that complex float args/results  are "used" in MATCH-VREG.

Modified:
    trunk/source/compiler/vreg.lisp

Modified: trunk/source/compiler/vreg.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/vreg.lisp	(original)
+++ trunk/source/compiler/vreg.lisp	Fri Sep 26 22:52:30 2014
@@ -295,7 +295,7 @@
                  (note-vinsn-sets-gpr vinsn vreg-value)
                  (note-vinsn-refs-gpr vinsn vreg-value))
 	       (use-imm-temp vreg-value))
-	      ((:single-float :double-float)
+	      ((:single-float :double-float :complex-single-float :complex-double=
-float)
 	       (use-fp-reg vreg)
 	       (if result-p
                  (note-vinsn-sets-fpr-lreg vinsn vreg)



More information about the Openmcl-cvs-notifications mailing list