haskell - 如何检测程序是否已使用 -thread 编译？

Question

我正在开发一个使用 POSIX fork/exec 和文件锁定机制的 Haskell 守护程序。我的实验表明在 executeFile 期间不会继承文件锁。与 -threaded运行时(另见 this thread )，无论我是否使用 +RTS -N或不。所以我想添加一个检查以确保守护进程没有使用 -threaded 编译。 .有没有一种便携的方法来检测它？

Answer 1

有一个value在 Control.Concurrent为此，例如:

module Main (main) where

import Control.Concurrent

main :: IO ()
main = print rtsSupportsBoundThreads

并测试:

$ ghc -fforce-recomp Test.hs; ./Test
[1 of 1] Compiling Main             ( Test.hs, Test.o )
Linking Test ...
False
$ ghc -fforce-recomp -threaded Test.hs; ./Test
[1 of 1] Compiling Main             ( Test.hs, Test.o )
Linking Test ...
True

它是 C 部分 source code :

HsBool
rtsSupportsBoundThreads(void)
{
#if defined(THREADED_RTS)
  return HS_BOOL_TRUE;
#else
  return HS_BOOL_FALSE;
#endif
}