GHC：如何使用64位GHC构建32位DLL？ （从c ++调用函数）

Question

我想用64位GHC构建32位DLL。这是最小的例子。

Test.hs

{-# LANGUAGE ForeignFunctionInterface #-}
module Test where

import Foreign.C.Types

foreign export ccall c_hello :: IO()
foreign export ccall boo :: CInt

c_hello :: IO()
c_hello = do
    print "Hello!" 

init_exit.cpp

#include "Test_stub.h"
#include <C:\Program Files\Haskell Platform\8.0.1\lib\include\Rts.h>

#define DLLExport extern "C" __declspec(dllexport)

DLLExport void hello()
{
    c_hello();    
}

DLLExport int HsStart()
{
    int argc = 1;
    char* argv[] = {"ghcDLL", NULL};

    char** args = argv;
    hs_init(&argc, &args);

    printf("Haskell library has been initialized!\n");
    return 0;
}

DLLExport int HsEnd()
{
    hs_exit();

    printf("Haskell library has been finalized!\n");
    return 0;
}

然后我使用以下命令构建库：

ghc -c -O Test.hs 
ghc -c init_exit.cpp 
ghc -shared -o Test.dll Test.o init_exit.o

我应该将哪些标志传递给ghc或者gcc来构建32位DLL而不是64位？或许还有另一种方法可以做到这一点。

Answer 1

正常的Windows 64位GHC版本（例如您可以从GHC网站下载的版本）只能构建64位目标文件。例如，它不包括GHC附带的任何库的32位版本。

您的选择是构建Windows 64位到Windows 32位交叉编译器，或者只运行正常的Windows 32位GHC版本（可能更容易）。