From: David Terei <davidterei@gmail.com>
Date: Fri, 18 Jun 2010 13:17:33 +0000 (+0000)
Subject: Add win32 datalayout support to llvm backend
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a0e32f1151a9bc765527bd9ee48a54a27ce1750e

Add win32 datalayout support to llvm backend
---

diff --git a/compiler/llvmGen/LlvmCodeGen/Ppr.hs b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
index cdf968a..689be6c 100644
--- a/compiler/llvmGen/LlvmCodeGen/Ppr.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
@@ -28,12 +28,15 @@ import Util
 -- | LLVM module layout description for the host target
 moduleLayout :: Doc
 moduleLayout =
-#ifdef i386_TARGET_ARCH
+#if i386_TARGET_ARCH
 
-#ifdef darwin_TARGET_OS
+#if darwin_TARGET_OS
     text "target datalayout = \"e-p:32:32:32-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:32:64-f32:32:32-f64:32:64-v64:64:64-v128:128:128-a0:0:64-f80:128:128\""
     $+$ text "target triple = \"i386-apple-darwin9.8\""
-#else
+#elif mingw32_TARGET_OS
+    text "target datalayout = \"e-p:32:32:32-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-f80:128:128-v64:64:64-v128:128:128-a0:0:64-f80:32:32-n8:16:32\""
+    $+$ text "target triple = \"i686-pc-win32\""
+#else /* Linux */
     text "target datalayout = \"e-p:32:32:32-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:32:64-f32:32:32-f64:32:64-v64:64:64-v128:128:128-a0:0:64-f80:32:32\""
     $+$ text "target triple = \"i386-linux-gnu\""
 #endif