diff options
| author | sof <unknown> | 2005-04-22 16:01:54 +0000 |
|---|---|---|
| committer | sof <unknown> | 2005-04-22 16:01:54 +0000 |
| commit | a584b4ffc67402ed3086f7acb8ff46f50dc787cc (patch) | |
| tree | 0b12666d41c0509ca88883e0e0669ed84516b51d /ghc/rts/Main.c | |
| parent | f4b456822742dc8b7afcd392f74f450a4d9c1c92 (diff) | |
| download | haskell-a584b4ffc67402ed3086f7acb8ff46f50dc787cc.tar.gz | |
[project @ 2005-04-22 16:01:53 by sof]
Until the GHCi linker is made capable of handling .ctors sections in
PEi object files, stick with __stginits. Being a bit sloppy by
using 'mingw32_HOST_OS' to test for this.
Diffstat (limited to 'ghc/rts/Main.c')
| -rw-r--r-- | ghc/rts/Main.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/rts/Main.c b/ghc/rts/Main.c index 182f589af0..0b937dfc9e 100644 --- a/ghc/rts/Main.c +++ b/ghc/rts/Main.c @@ -49,7 +49,8 @@ int main(int argc, char *argv[]) SchedulerStatus status; /* all GranSim/GUM init is done in startupHaskell; sets IAmMainThread! */ -#if defined(PROFILING) +#if defined(PROFILING) || defined(mingw32_HOST_OS) + /* mingw32 and PROFILING (still) define __stginits in .text */ startupHaskell(argc,argv,__stginit_ZCMain); #else startupHaskell(argc,argv,NULL); |