[Openmcl-cvs-notifications] r16183 - in /release/1.10/source: ./ compiler/ARM/arm2.lisp compiler/X86/X8664/x8664-vinsns.lisp

rme at clozure.com rme at clozure.com
Tue Sep 2 15:34:09 UTC 2014


Author: rme
Date: Tue Sep  2 15:34:09 2014
New Revision: 16183

Log:
Merge fixes from trunk (refs ticket:1222, ticket:1223).

Modified:
    release/1.10/source/   (props changed)
    release/1.10/source/compiler/ARM/arm2.lisp
    release/1.10/source/compiler/X86/X8664/x8664-vinsns.lisp

Propchange: release/1.10/source/
---------------------------------------------------------------------------=
---
--- svn:mergeinfo	(original)
+++ svn:mergeinfo	Tue Sep  2 15:34:09 2014
@@ -4,4 +4,4 @@
 /branches/rme-logops:13875-13886
 /branches/working-0711/ccl:7970-13192,13197-13198,13202,13208,13214,13235-=
13236,13239,13263,13277-13278,13290,13293-13294,13302-13306,13331-13332,133=
39,13361-13364,13379,13383,13386,13388,13409,13435-13436,13438,13440-13442,=
13460-13461,13465,13467,13476,13487,13490,13492-13493,13502-13528,13545-135=
47,13549,13557-13558
 /release/1.5/source:13667
-/trunk/source:16167,16171,16173,16176-16177
+/trunk/source:16167,16171,16173,16176-16177,16181-16182

Modified: release/1.10/source/compiler/ARM/arm2.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
--- release/1.10/source/compiler/ARM/arm2.lisp	(original)
+++ release/1.10/source/compiler/ARM/arm2.lisp	Tue Sep  2 15:34:09 2014
@@ -2602,6 +2602,12 @@
                                                     vector src
                                                     index unscaled-idx
                                                     value (arm2-target-reg=
-for-aset vreg type-keyword)))))
+          (let* ((*available-backend-imm-temps* *available-backend-imm-tem=
ps*)
+                 (value (if (eql (hard-regspec-class result-reg)
+                                 hard-reg-class-gpr)
+                          (hard-regspec-value result-reg))))
+            (when (and value (logbitp value *available-backend-imm-temps*))
+              (setq *available-backend-imm-temps* (bitclr value *available=
-backend-imm-temps*)))
         (with-crf-target () crf
           (! set-z-if-vector-header crf src)
           (arm2-branch seg (arm2-make-compound-cd simple-case 0) crf arm::=
arm-cond-eq nil))
@@ -2621,7 +2627,7 @@
           (@ common-case)
 =

 =

-        (arm2-vset1 seg vreg xfer type-keyword src unscaled-idx index-know=
n-fixnum result-reg (arm2-unboxed-reg-for-aset seg type-keyword result-reg =
safe constval) constval needs-memoization)))))
+        (arm2-vset1 seg vreg xfer type-keyword src unscaled-idx index-know=
n-fixnum result-reg (arm2-unboxed-reg-for-aset seg type-keyword result-reg =
safe constval) constval needs-memoization))))))
 =

 =

 (defun arm2-tail-call-alias (immref sym &optional arglist)

Modified: release/1.10/source/compiler/X86/X8664/x8664-vinsns.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
--- release/1.10/source/compiler/X86/X8664/x8664-vinsns.lisp	(original)
+++ release/1.10/source/compiler/X86/X8664/x8664-vinsns.lisp	Tue Sep  2 15:=
34:09 2014
@@ -2405,7 +2405,7 @@
 (define-x8664-vinsn (nfp-load-complex-single-float :nfp :ref) (((val :comp=
lex-single-float))
                                                                ((offset :u=
16const)
                                                                 (nfp :imm)=
))
-  (movq (:@ (:apply + 8 offset) (:% nfp)) (:%xmm val)))
+  (movq (:@ (:apply + 16 offset) (:% nfp)) (:%xmm val)))
 =

 =

 (define-x8664-vinsn (nfp-store-complex-double-float :nfp :set) (()



More information about the Openmcl-cvs-notifications mailing list