[Git][cmucl/cmucl][issue-175-simplify-float-compare-vops] Remove unused mover arg from the macro for < comparisons

[Raymond Toy (@rtoy)]

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


Commits:
5ad9f2d8 by Raymond Toy at 2023-03-10T09:25:46-08:00
Remove unused mover arg from the macro for < comparisons

We don't need the mover arg anymore since we've changed x to be a
descriptor instead of y.

- - - - -


1 changed file:

- src/compiler/x86/float-sse2.lisp


Changes:

=====================================
src/compiler/x86/float-sse2.lisp
=====================================
@@ -978,7 +978,7 @@
   (frob > double comisd))
 
 (macrolet
-    ((frob (op size inst mover)
+    ((frob (op size inst)
        (let ((ea (ecase size
 		   (single
 		    'ea-for-sf-desc)
@@ -1004,8 +1004,8 @@
 		(descriptor-reg
 		 (inst ,inst y (,ea x))))
 	      (inst jmp (if (not not-p) :a :be) target))))))
-  (frob < single comiss movss)
-  (frob < double comisd movsd))
+  (frob < single comiss)
+  (frob < double comisd))
 
 
 ;;;; Conversion:



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5ad9f2d825f2e986e04fa2da1fa8006edf4c164f

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5ad9f2d825f2e986e04fa2da1fa8006edf4c164f
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230310/4e3b36e8/attachment-0001.html>