diff options
| author | Clemens Fruhwirth <clemens@endorphin.org> | 2007-08-08 06:50:43 +0000 |
|---|---|---|
| committer | Clemens Fruhwirth <clemens@endorphin.org> | 2007-08-08 06:50:43 +0000 |
| commit | 006a18ea83799c0d4255071a2f8c08d3e9c7d84f (patch) | |
| tree | bf73abdd6f0d50df5dc991a0d8c39d6c6a8a1be6 /rts/RetainerProfile.c | |
| parent | 90ef8ab26efb2fc4172944f1066f122d3a6e7c7d (diff) | |
| download | haskell-006a18ea83799c0d4255071a2f8c08d3e9c7d84f.tar.gz | |
Build RTS as dynamic library
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 2613b9e4bc..553f7e7ad1 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -364,8 +364,7 @@ find_srt( stackPos *info ) bitmap = info->next.srt.srt_bitmap; while (bitmap != 0) { if ((bitmap & 1) != 0) { -#ifdef ENABLE_WIN32_DLL_SUPPORT - +#if defined(__PIC__) && defined(mingw32_TARGET_OS) if ((unsigned long)(*(info->next.srt.srt)) & 0x1) c = (* (StgClosure **)((unsigned long)*(info->next.srt.srt)) & ~0x1); else |