Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
a5b95b1f
Commit
a5b95b1f
authored
Jul 10, 2008
by
Simon Marlow
Browse files
oops, fix more register clobberage
fixes crash with -threaded -debug for me
parent
366614a9
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/PrimOps.cmm
View file @
a5b95b1f
...
...
@@ -1740,7 +1740,7 @@ putMVarzh_fast
/* actually perform the takeMVar */
tso
=
StgMVar_head
(
mvar
);
PerformTake
(
tso
,
R2
);
PerformTake
(
tso
,
val
);
if
(
TO_W_
(
StgTSO_flags
(
tso
))
&
TSO_DIRTY
==
0
)
{
foreign
"
C
"
dirty_TSO
(
MyCapability
()
"
ptr
"
,
tso
"
ptr
"
)
[];
}
...
...
@@ -1763,7 +1763,7 @@ putMVarzh_fast
else
{
/* No further takes, the MVar is now full. */
StgMVar_value
(
mvar
)
=
R2
;
StgMVar_value
(
mvar
)
=
val
;
#if
defined
(
THREADED_RTS
)
unlockClosure
(
mvar
,
stg_MVAR_DIRTY_info
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment