Commit 5ed93b10 authored by Simon Marlow's avatar Simon Marlow
Browse files

eliminate a warning

parent 24fd303c
...@@ -121,7 +121,7 @@ lockClosure(StgClosure *p) ...@@ -121,7 +121,7 @@ lockClosure(StgClosure *p)
do { do {
nat i = 0; nat i = 0;
do { do {
info = xchg((P_)&p->header.info, (W_)&stg_WHITEHOLE_info); info = xchg((P_)(void *)&p->header.info, (W_)&stg_WHITEHOLE_info);
if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info; if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info;
} while (++i < SPIN_COUNT); } while (++i < SPIN_COUNT);
yieldThread(); yieldThread();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment