From 41c85c7edc56d49aa11a04f7dd2891cd4e7085b3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 11 Feb 2008 16:56:48 -0600
Subject: [PATCH] Structure alignment fixes

---
 core/cpu/ppc/ppc.factor   | 4 ++++
 core/cpu/x86/32/32.factor | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/core/cpu/ppc/ppc.factor b/core/cpu/ppc/ppc.factor
index 901b339d7e..75de49acda 100755
--- 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
diff --git a/core/cpu/x86/32/32.factor b/core/cpu/x86/32/32.factor
index 4ed186d769..ecae55e69a 100755
--- 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