Structure alignment fixes

2008-02-11 16:56:48 -06:00 · 2008-02-11 16:56:48 -06:00 · 41c85c7edc
parent a6ba0cb392
commit 41c85c7edc
2 changed files with 7 additions and 3 deletions
--- a/core/cpu/ppc/ppc.factor
+++ b/core/cpu/ppc/ppc.factor
@ -13,3 +13,7 @@ namespaces alien.c-types kernel system combinators ;
 } cond

 T{ ppc-backend } compiler-backend set-global
+
+macosx? [
+    4 "double" c-type set-c-type-align
+] when
--- a/core/cpu/x86/32/32.factor
+++ b/core/cpu/x86/32/32.factor
@ -261,9 +261,9 @@ windows? [
    cell "ulonglong" c-type set-c-type-align
 ] unless

-macosx? [
-    cell "double" c-type set-c-type-align
-] when
+windows? [
+    4 "double" c-type set-c-type-align
+] unless

 T{ x86-backend f 4 } compiler-backend set-global