Support the GHCi debugger with -fexternal-interpreter
[ghc.git] / compiler / ghci / keepCAFsForGHCi.c
index f125d4c..2348233 100644 (file)
@@ -1,16 +1,15 @@
 #include "Rts.h"
 
-// This file is only included when GhcBuildDylibs is set in mk/build.mk.
+// This file is only included in the dynamic library.
 // It contains an __attribute__((constructor)) function (run prior to main())
 // which sets the keepCAFs flag in the RTS, before any Haskell code is run.
 // This is required so that GHCi can use dynamic libraries instead of HSxyz.o
 // files.
 
-#ifdef DYNAMIC
-static void keepCAFsForGHCi() __attribute__((constructor));
+static void keepCAFsForGHCi(void) __attribute__((constructor));
 
-static void keepCAFsForGHCi()
+static void keepCAFsForGHCi(void)
 {
     keepCAFs = 1;
 }
-#endif
+