projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dbade27
)
Use __PIC__ and ming32_TARGET_OS to turn on windows DLL support, not ENABLE_WIN32_DLL...
author
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 6 Oct 2009 05:40:32 +0000
(
05:40
+0000)
committer
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 6 Oct 2009 05:40:32 +0000
(
05:40
+0000)
rts/RetainerProfile.c
patch
|
blob
|
history
diff --git
a/rts/RetainerProfile.c
b/rts/RetainerProfile.c
index
adec3fc
..
fdddd8d
100644
(file)
--- a/
rts/RetainerProfile.c
+++ b/
rts/RetainerProfile.c
@@
-1278,9
+1278,9
@@
retainSRT (StgClosure **srt, nat srt_bitmap, StgClosure *c, retainer c_child_r)
while (bitmap != 0) {
if ((bitmap & 1) != 0) {
-#ifdef ENABLE_WIN32_DLL_SUPPORT
+#if defined(__PIC__) && defined(mingw32_TARGET_OS)
if ( (unsigned long)(*srt) & 0x1 ) {
- retainClosure(*stgCast(StgClosure**,(stgCast(unsigned long, *srt) & ~0x1)),
+ retainClosure(* (StgClosure**) ((unsigned long) (*srt) & ~0x1),
c, c_child_r);
} else {
retainClosure(*srt,c,c_child_r);