basis: removing unnecessary method stack effects.

[factor.git] / basis / cpu / ppc / 64 / linux / linux.factor

diff --git a/basis/cpu/ppc/64/linux/linux.factor b/basis/cpu/ppc/64/linux/linux.factor
index 6b4df01173559fe3d385ab5be29494a6cb590e9c..d2f29a7d3a16b697382fdf51703b6f6648b23418 100644 (file)
--- a/basis/cpu/ppc/64/linux/linux.factor
+++ b/basis/cpu/ppc/64/linux/linux.factor
@@ -7,11 +7,11 @@ IN: cpu.ppc.64.linux
 
 M: linux lr-save 2 cells ;
 
-M: linux has-toc ( -- ? ) t ;
+M: linux has-toc t ;
 
-M: linux reserved-area-size ( -- n ) 6 cells ;
+M: linux reserved-area-size 6 cells ;
 
-M: linux allows-null-dereference ( -- ? ) f ;
+M: linux allows-null-dereference f ;
 
 M: ppc param-regs
     drop {
@@ -33,7 +33,7 @@ M: ppc long-long-odd-register? f ;
 
 M: ppc float-right-align-on-stack? t ;
 
-M: ppc flatten-struct-type ( type -- seq )
+M: ppc flatten-struct-type
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { double-rep f f } { double-rep f f } } ] }
@@ -42,7 +42,7 @@ M: ppc flatten-struct-type ( type -- seq )
         [ heap-size cell align cell /i { int-rep f f } <repetition> ]
     } cond ;
 
-M: ppc flatten-struct-type-return ( type -- seq )
+M: ppc flatten-struct-type-return
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { double-rep f f } { double-rep f f } } ] }