32 and 64 bit Linux PPC support

[factor.git] / basis / cpu / x86 / 64 / unix / unix.factor

diff --git a/basis/cpu/x86/64/unix/unix.factor b/basis/cpu/x86/64/unix/unix.factor
index 2ce959d29a85c2de7bb4d41e6fd0e8fd91709974..c5c7da6ac9ea7b9bcab50b8de6e718a7bebe3168 100644 (file)
--- a/basis/cpu/x86/64/unix/unix.factor
+++ b/basis/cpu/x86/64/unix/unix.factor
@@ -29,12 +29,12 @@ M: x86.64 reserved-stack-space 0 ;
     struct-types&offset split-struct [
         [ c-type c-type-rep reg-class-of ] map
         int-regs swap member? int-rep double-rep ?
-        f 2array
+        f f 3array
     ] map ;
 
 M: x86.64 flatten-struct-type ( c-type -- seq )
     dup heap-size 16 <=
-    [ flatten-small-struct ] [ call-next-method [ first t 2array ] map ] if ;
+    [ flatten-small-struct ] [ call-next-method [ first t f 3array ] map ] if ;
 
 M: x86.64 return-struct-in-registers? ( c-type -- ? )
     heap-size 2 cells <= ;