basis: removing unnecessary method stack effects.

[factor.git] / basis / cpu / x86 / x87 / x87.factor

diff --git a/basis/cpu/x86/x87/x87.factor b/basis/cpu/x86/x87/x87.factor
index f8997b78f754528b7a891e3b2b3e0eee2f4319e3..640d3d7dbbc8216644dda812ac2bd8ca1af1eac7 100644 (file)
--- a/basis/cpu/x86/x87/x87.factor
+++ b/basis/cpu/x86/x87/x87.factor
@@ -86,14 +86,14 @@ M:: x86 %float>integer ( dst src -- )
     src2 shuffle-down quot call
     ST0 FSTP ; inline
 
-M: x86 %compare-float-ordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-ordered
     [ [ FCOMI ] compare-op ] (%compare-float) ;
 
-M: x86 %compare-float-unordered ( dst src1 src2 cc temp -- )
+M: x86 %compare-float-unordered
     [ [ FUCOMI ] compare-op ] (%compare-float) ;
 
-M: x86 %compare-float-ordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-ordered-branch
     [ [ FCOMI ] compare-op ] (%compare-float-branch) ;
 
-M: x86 %compare-float-unordered-branch ( label src1 src2 cc -- )
+M: x86 %compare-float-unordered-branch
     [ [ FUCOMI ] compare-op ] (%compare-float-branch) ;