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:
f8dd6b4
)
[project @ 2006-01-19 02:15:38 by sof]
author
sof
<unknown>
Thu, 19 Jan 2006 02:15:38 +0000
(
02:15
+0000)
committer
sof
<unknown>
Thu, 19 Jan 2006 02:15:38 +0000
(
02:15
+0000)
tryPutMVarzh_fast: make it work in the non-full case.
Merge to STABLE.
ghc/rts/PrimOps.cmm
patch
|
blob
|
history
diff --git
a/ghc/rts/PrimOps.cmm
b/ghc/rts/PrimOps.cmm
index
ff95943
..
67d3767
100644
(file)
--- a/
ghc/rts/PrimOps.cmm
+++ b/
ghc/rts/PrimOps.cmm
@@
-1729,7
+1729,6
@@
tryPutMVarzh_fast
#if defined(SMP)
foreign "C" unlockClosure(mvar "ptr", stg_EMPTY_MVAR_info);
#endif
- jump %ENTRY_CODE(Sp(0));
}
else
{
@@
-1741,9
+1740,9
@@
tryPutMVarzh_fast
#else
SET_INFO(mvar,stg_FULL_MVAR_info);
#endif
- jump %ENTRY_CODE(Sp(0));
}
+ RET_N(1);
/* ToDo: yield afterward for better communication performance? */
}