projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-10-21 14:02:17 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
StgMiscClosures.cmm
diff --git
a/ghc/rts/StgMiscClosures.cmm
b/ghc/rts/StgMiscClosures.cmm
index
72c5824
..
628e0f1
100644
(file)
--- a/
ghc/rts/StgMiscClosures.cmm
+++ b/
ghc/rts/StgMiscClosures.cmm
@@
-338,6
+338,10
@@
INFO_TABLE(stg_BLACKHOLE,0,1,BLACKHOLE,"BLACKHOLE","BLACKHOLE")
TICK_ENT_BH();
TICK_ENT_BH();
+#ifdef SMP
+ // foreign "C" debugBelch("BLACKHOLE entry\n");
+#endif
+
/* Actually this is not necessary because R1 is about to be destroyed. */
LDV_ENTER(R1);
/* Actually this is not necessary because R1 is about to be destroyed. */
LDV_ENTER(R1);
@@
-403,6
+407,10
@@
INFO_TABLE(stg_CAF_BLACKHOLE,0,1,CAF_BLACKHOLE,"CAF_BLACKHOLE","CAF_BLACKHOLE")
LDV_ENTER(R1);
#if defined(SMP)
LDV_ENTER(R1);
#if defined(SMP)
+ // foreign "C" debugBelch("BLACKHOLE entry\n");
+#endif
+
+#if defined(SMP)
foreign "C" ACQUIRE_LOCK(sched_mutex "ptr");
// released in stg_block_blackhole_finally
#endif
foreign "C" ACQUIRE_LOCK(sched_mutex "ptr");
// released in stg_block_blackhole_finally
#endif