如何检测 GHC 默认设置为生成 32 位还是 64 位代码？

Question

我的makefile中有以下位：

GLFW_FLAG := -m32 -O2 -Iglfw/include -Iglfw/lib -Iglfw/lib/cocoa $(CFLAGS)
...
$(BUILD_DIR)/%.o : %.c
    $(CC) -c $(GLFW_FLAG) $< -o $@
$(BUILD_DIR)/%.o : %.m
    $(CC) -c $(GLFW_FLAG) $< -o $@

-m32指示 GCC 生成 32 位代码。 它存在是因为在某些配置中，GHC 设置为构建 32 位代码，但 GCC 的默认值有时是 64 位。 我想概括一下，以便它自动检测 GHC 是在构建 32 位还是 64 位代码，然后将正确的标志传递给 GCC。

问题：我如何询问 GHC 它将构建什么类型的代码（32 位与 64 位）？

PS：我的 cabal 文件在构建期间调用此 makefile 以解决 cabal 中的限制。 我真希望我可以在我的 cabal 文件中将这些列为 c 源。

Answer 1

我看到的常用技巧是询问Int或Word的字节或位大小，因为这在 GHC 中会根据机器的字大小而有所不同，

Prelude> :m + Foreign
Prelude Foreign> sizeOf (undefined :: Int)
8
Prelude Foreign> bitSize (undefined :: Int)
64

或者使用系统工具：

$ cat A.hs
main = print ()

$ ghc --make A.hs
[1 of 1] Compiling Main             ( A.hs, A.o )
Linking A ...

$ file A
A: ELF 64-bit LSB executable, x86-64, version 1 (SYSV), 
     dynamically linked (uses shared libs), for GNU/Linux 2.6.27, not stripped

Answer 2

感谢 Ed'ka，我现在知道正确答案了。

Makefile 现在有这样的规则：

GCCFLAGS  := $(shell ghc --info | ghc -e "fmap read getContents >>= putStrLn . unwords . read . Data.Maybe.fromJust . lookup \"Gcc Linker flags\"")

它有点长，但它所做的只是从 ghc 的 output 中提取“Gcc Linker 标志”。 注意：这是ghc --info的 output 而不是ghc +RTS --info 。

这比其他建议的方式更好，因为它给了我所有需要指定的标志，而不仅仅是 -m 标志。 当不需要标志时它也是空的。

谢谢大家！

Answer 3

根据我的评论，应该可以编译测试程序并读取生成的二进制文件。

$ cabal install elf

代码只是

readElf testFile'sPath >>= \e -> if elfClass e == ELFCLASS64 then print 64 else print 32

或者在 GHCi 中我们看到：

> e <- readElf "/bin/ls"
> elfClass e
ELFCLASS64