Bootstrap fix for PowerPC

TODO.FACTOR.txt

@@ -1,8 +1,8 @@
 + portability:
 
 - port ffi to win64
-- x86 %unbox-struct
+- update x86 for %unbox-struct and callbacks
-- amd64 %unbox-struct
+- update amd64 for %unbox-struct and callbacks
 - get factor running on mac intel
 
 + io:
@@ -54,7 +54,7 @@
 - remove literal table
 - callbacks
   - return values
-  - input values
+  - input values which get spilled
   - value type struct inputs
 - ffi unicode strings: null char security hole
 - utf16 string boxing

library/compiler/amd64/alien.factor

@@ -50,5 +50,3 @@ M: %alien-invoke generate-node
 
 M: %box generate-node ( vop -- )
     drop 0 input load-return-value 1 input f compile-c-call ;
-
-M: %cleanup generate-node ( vop -- ) drop ;

library/compiler/generator.factor

@@ -60,7 +60,11 @@ M: %target-label generate-node ( vop -- )
 
 M: %parameters generate-node ( vop -- ) drop ;
 
-M: %parameter generate-node ( vop -- ) drop ;
+M: %cleanup generate-node ( vop -- ) drop ;
+
+M: %freg>stack generate-node ( vop -- ) drop ;
+
+M: %stack>freg generate-node ( vop -- ) drop ;
 
 M: %alien-invoke generate-node
     #! call a C function.

library/compiler/ppc/alien.factor

@@ -58,8 +58,6 @@ M: %box generate-node ( vop -- )
     ] when*
     2 input f compile-c-call ;
 
-M: %cleanup generate-node ( vop -- ) drop ;
-
 M: %nullary-callback generate-node ( vop -- )
     drop
     3 0 input load-indirect