basis: removing unnecessary method stack effects.

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

diff --git a/basis/cpu/ppc/32/linux/linux.factor b/basis/cpu/ppc/32/linux/linux.factor
index 187de4e7842d8d76fc17ae45c9e9188f47bfffae..18e7f5670a0a658fb1ab397b49ee758f043a9dd6 100644 (file)
--- a/basis/cpu/ppc/32/linux/linux.factor
+++ b/basis/cpu/ppc/32/linux/linux.factor
@@ -5,13 +5,13 @@ compiler.cfg.builder.alien.boxing sequences arrays
 alien.c-types cpu.architecture cpu.ppc alien.complex ;
 IN: cpu.ppc.32.linux
 
-M: linux lr-save ( -- n ) 1 cells ;
+M: linux lr-save 1 cells ;
 
-M: linux has-toc ( -- ? ) f ;
+M: linux has-toc f ;
 
-M: linux reserved-area-size ( -- n ) 2 cells ;
+M: linux reserved-area-size 2 cells ;
 
-M: linux allows-null-dereference ( -- ? ) f ;
+M: linux allows-null-dereference f ;
 
 M: ppc param-regs
     drop {
@@ -35,7 +35,7 @@ M: ppc long-long-odd-register? t ;
 
 M: ppc float-right-align-on-stack? f ;
 
-M: ppc flatten-struct-type ( type -- seq )
+M: ppc flatten-struct-type
     {
         { [ dup lookup-c-type complex-double lookup-c-type = ]
           [ drop { { int-rep f f } { int-rep f f }