Raymond Toy pushed to branch issue-175-simplify-float-compare-vops at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/x86/float-sse2.lisp
    ... ... @@ -978,7 +978,7 @@
    978 978
       (frob > double comisd))
    
    979 979
     
    
    980 980
     (macrolet
    
    981
    -    ((frob (op size inst mover)
    
    981
    +    ((frob (op size inst)
    
    982 982
            (let ((ea (ecase size
    
    983 983
     		   (single
    
    984 984
     		    'ea-for-sf-desc)
    
    ... ... @@ -1004,8 +1004,8 @@
    1004 1004
     		(descriptor-reg
    
    1005 1005
     		 (inst ,inst y (,ea x))))
    
    1006 1006
     	      (inst jmp (if (not not-p) :a :be) target))))))
    
    1007
    -  (frob < single comiss movss)
    
    1008
    -  (frob < double comisd movsd))
    
    1007
    +  (frob < single comiss)
    
    1008
    +  (frob < double comisd))
    
    1009 1009
     
    
    1010 1010
     
    
    1011 1011
     ;;;; Conversion: