diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-13 14:10:34 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-13 14:10:34 +0000 |
| commit | d15229b75a07cf1092402f87950a1887c6429f3a (patch) | |
| tree | ef7fba6dd0e221ecf97093996083f4252c647afc /rts/RetainerProfile.c | |
| parent | df1fecb95e3a0cf901184605da96dc8ae092b173 (diff) | |
| download | haskell-d15229b75a07cf1092402f87950a1887c6429f3a.tar.gz | |
Change some TARGET tests to HOST tests in the RTS
Which was being used seemed to be random
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 07a3db435b..e80a588e86 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -366,7 +366,7 @@ find_srt( stackPos *info ) bitmap = info->next.srt.srt_bitmap; while (bitmap != 0) { if ((bitmap & 1) != 0) { -#if defined(__PIC__) && defined(mingw32_TARGET_OS) +#if defined(__PIC__) && defined(mingw32_HOST_OS) if ((unsigned long)(*(info->next.srt.srt)) & 0x1) c = (* (StgClosure **)((unsigned long)*(info->next.srt.srt)) & ~0x1); else @@ -1229,7 +1229,7 @@ retainSRT (StgClosure **srt, nat srt_bitmap, StgClosure *c, retainer c_child_r) while (bitmap != 0) { if ((bitmap & 1) != 0) { -#if defined(__PIC__) && defined(mingw32_TARGET_OS) +#if defined(__PIC__) && defined(mingw32_HOST_OS) if ( (unsigned long)(*srt) & 0x1 ) { retainClosure(* (StgClosure**) ((unsigned long) (*srt) & ~0x1), c, c_child_r); |