Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
37eae200
Commit
37eae200
authored
Jun 03, 2008
by
Simon Marlow
Browse files
fix some types for 64-bit platforms
parent
680e2ddc
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/PrimOps.cmm
View file @
37eae200
...
...
@@ -1587,7 +1587,7 @@ takeMVarzh_fast
tso
=
StgMVar_head
(
mvar
);
PerformPut
(
tso
,
StgMVar_value
(
mvar
));
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
==
0
)
{
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
::
I32
==
0
)
{
foreign
"
C
"
dirty_TSO
(
MyCapability
()
"
ptr
"
,
tso
"
ptr
"
)
[];
}
...
...
@@ -1663,7 +1663,7 @@ tryTakeMVarzh_fast
/* actually perform the putMVar for the thread that we just woke up */
tso
=
StgMVar_head
(
mvar
);
PerformPut
(
tso
,
StgMVar_value
(
mvar
));
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
==
0
)
{
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
::
I32
==
0
)
{
foreign
"
C
"
dirty_TSO
(
MyCapability
()
"
ptr
"
,
tso
"
ptr
"
)
[];
}
...
...
@@ -1737,7 +1737,7 @@ putMVarzh_fast
/* actually perform the takeMVar */
tso
=
StgMVar_head
(
mvar
);
PerformTake
(
tso
,
R2
);
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
==
0
)
{
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
::
I32
==
0
)
{
foreign
"
C
"
dirty_TSO
(
MyCapability
()
"
ptr
"
,
tso
"
ptr
"
)
[];
}
...
...
@@ -1806,7 +1806,7 @@ tryPutMVarzh_fast
/* actually perform the takeMVar */
tso
=
StgMVar_head
(
mvar
);
PerformTake
(
tso
,
R2
);
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
==
0
)
{
if
(
StgTSO_flags
(
tso
)
&
TSO_DIRTY
::
I32
==
0
)
{
foreign
"
C
"
dirty_TSO
(
MyCapability
()
"
ptr
"
,
tso
"
ptr
"
)
[];
}
...
...
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