blob: ba635b0d95d0c12fa83e60f11e7cbb91e6b87524 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#include <Rts.h>
// 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.
static void keepCAFsForGHCi(void) __attribute__((constructor));
static void keepCAFsForGHCi(void)
{
keepCAFs = 1;
}
|
