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:
abc6d6f
)
Use C syntax for casting. 'stgCast' appears to have gone away.
author
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 6 Oct 2009 05:34:14 +0000
(
05:34
+0000)
committer
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 6 Oct 2009 05:34:14 +0000
(
05:34
+0000)
rts/sm/Scav.c
patch
|
blob
|
history
diff --git
a/rts/sm/Scav.c
b/rts/sm/Scav.c
index
5e38777
..
c799de7
100644
(file)
--- a/
rts/sm/Scav.c
+++ b/
rts/sm/Scav.c
@@
-261,7
+261,7
@@
scavenge_srt (StgClosure **srt, nat srt_bitmap)
// If the SRT entry hasn't got bit 0 set, the SRT entry points to a
// closure that's fixed at link-time, and no extra magic is required.
if ( (unsigned long)(*srt) & 0x1 ) {
// If the SRT entry hasn't got bit 0 set, the SRT entry points to a
// closure that's fixed at link-time, and no extra magic is required.
if ( (unsigned long)(*srt) & 0x1 ) {
- evacuate(stgCast(StgClosure**,(stgCast(unsigned long, *srt) & ~0x1)));
+ evacuate( (StgClosure**) ((unsigned long) (*srt) & ~0x1));
} else {
evacuate(p);
}
} else {
evacuate(p);
}