[Openmcl-cvs-notifications] r16355 - in /trunk/source/compiler: X86/x862.lisp reg.lisp

gb at clozure.com gb at clozure.com
Wed Mar 4 13:06:32 UTC 2015


Author: gb
Date: Wed Mar  4 13:06:32 2015
New Revision: 16355

Log:
typo comples ->complex

Modified:
    trunk/source/compiler/X86/x862.lisp
    trunk/source/compiler/reg.lisp

Modified: trunk/source/compiler/X86/x862.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/X86/x862.lisp	(original)
+++ trunk/source/compiler/X86/x862.lisp	Wed Mar  4 13:06:32 2015
@@ -2685,7 +2685,7 @@
                   (let* ((reg (make-unwired-lreg next-fp-target :mode hard=
-reg-class-fpr-mode-complex-single-float)))
                     (if safe
                       (! trap-unless-complex-single-float result-reg))
-                    (! get-comples-single-float reg result-reg)
+                    (! get-complex-single-float reg result-reg)
                     reg))
                  ((:s64-vector :fixnum-vector)
                   (let* ((reg (make-unwired-lreg next-imm-target :mode har=
d-reg-class-gpr-mode-s64)))
@@ -2704,7 +2704,7 @@
                (let* ((reg (make-unwired-lreg next-fp-target :mode hard-re=
g-class-fpr-mode-complex-double-float)))
                  (if safe
                    (! trap-unless-complex-double-float result-reg))
-                 (! get-comples-double-float reg result-reg)
+                 (! get-complex-double-float reg result-reg)
                  reg))
               (is-32-bit
                ;; Generally better to use a GPR for the :SINGLE-FLOAT-VECT=
OR

Modified: trunk/source/compiler/reg.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/reg.lisp	(original)
+++ trunk/source/compiler/reg.lisp	Wed Mar  4 13:06:32 2015
@@ -93,7 +93,7 @@
 ; "type" values for FPRs - type of SOURCE may be encoded herein
 (defconstant hard-reg-class-fpr-type-double 0)          ;  IEEE double
 (defconstant hard-reg-class-fpr-type-single 1)          ; IEEE single
-(defconstant hard-reg-class-fpr-type-comples-double-float 2)
+(defconstant hard-reg-class-fpr-type-complex-double-float 2)
 (defconstant hard-reg-class-fpr-type-complex-single-float 3)
   =

 =




More information about the Openmcl-cvs-notifications mailing list