Structure alignment fixes

db4
Slava Pestov 2008-02-11 16:56:48 -06:00
parent a6ba0cb392
commit 41c85c7edc
2 changed files with 7 additions and 3 deletions

View File

@ -13,3 +13,7 @@ namespaces alien.c-types kernel system combinators ;
} cond } cond
T{ ppc-backend } compiler-backend set-global T{ ppc-backend } compiler-backend set-global
macosx? [
4 "double" c-type set-c-type-align
] when

View File

@ -261,9 +261,9 @@ windows? [
cell "ulonglong" c-type set-c-type-align cell "ulonglong" c-type set-c-type-align
] unless ] unless
macosx? [ windows? [
cell "double" c-type set-c-type-align 4 "double" c-type set-c-type-align
] when ] unless
T{ x86-backend f 4 } compiler-backend set-global T{ x86-backend f 4 } compiler-backend set-global