<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Word 12 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EmailStyle17
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-size:10.0pt;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
        {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-GB" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D">Did you try 7.2?&nbsp; As I mentioned, the issue should have gone away entirely because there is no shared cache any more<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D">Simon<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D"><o:p>&nbsp;</o:p></span></p>
<div style="border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt">
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> glasgow-haskell-users-bounces@haskell.org [mailto:glasgow-haskell-users-bounces@haskell.org]
<b>On Behalf Of </b>Jean-Marie Gaillourdet<br>
<b>Sent:</b> 12 October 2011 07:19<br>
<b>To:</b> wagnerdm@seas.upenn.edu; Daniel Fischer<br>
<b>Cc:</b> glasgow-haskell-users@haskell.org<br>
<b>Subject:</b> Re: Is this a concurrency bug in base?<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p>&nbsp;</o:p></p>
<div>
<div>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span style="font-size:10.0pt">Hi,
<br>
<br>
I've continued my search for a proper workaround. Again, I did find some unexpected results. See below.<br>
<br>
On 09.10.2011, at 17:56, wagnerdm@seas.upenn.edu wrote:<br>
<br>
&gt; Quoting Jean-Marie Gaillourdet &lt;jmg@gaillourdet.net&gt;:<br>
&gt; <br>
&gt;&gt; That sounds plausible. Do you see any workaround? Perhaps repeatedly evaluating typeOf?<br>
&gt; <br>
&gt; If there's a concurrency bug, surely the workaround is to protect calls to the non-thread-safe function with a lock.<br>
&gt; <br>
&gt;&nbsp; typeOfWorkaround lock v = do<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; () &lt;- takeMVar lock<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x &lt;- evaluate (typeOf v)<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; putMVar lock ()<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return x<br>
&gt; <br>
&gt; ~d<br>
<br>
This is my previous program with your workaround, it is also attached as TypeRepEqLock.hs<br>
<br>
import Control.Concurrent<br>
import Control.Exception<br>
import Control.Monad<br>
import Data.Typeable<br>
import System.IO.Unsafe<br>
<br>
main :: IO ()<br>
main =<br>
do { fin1 &lt;- newEmptyMVar<br>
&nbsp; ; fin2 &lt;- newEmptyMVar<br>
<br>
&nbsp; ; forkIO $ typeOf' () &gt;&gt;= putMVar fin1 <br>
&nbsp; ; forkIO $ typeOf' () &gt;&gt;= putMVar fin2 <br>
<br>
&nbsp; ; t1 &lt;- takeMVar fin1<br>
&nbsp; ; t2 &lt;- takeMVar fin2<br>
&nbsp; ; if (t1 /= t2)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; then putStrLn $ &quot;typeOf &quot; &#43;&#43; show t1 &#43;&#43; &quot; /= typeOf &quot; &#43;&#43; show t2<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else putStrLn &quot;Ok&quot;<br>
&nbsp; }<br>
<br>
<br>
{-# NOINLINE lock #-}<br>
lock :: MVar ()<br>
lock = unsafePerformIO $ newMVar ()<br>
<br>
-- Ugly workaround to <a href="http://hackage.haskell.org/trac/ghc/ticket/5540">http://hackage.haskell.org/trac/ghc/ticket/5540</a><br>
typeOf' :: Typeable a =&gt; a -&gt; IO TypeRep<br>
typeOf' x =<br>
do { () &lt;- takeMVar lock<br>
&nbsp; ; t &lt;- evaluate $ typeOf x<br>
&nbsp; ; putMVar lock ()<br>
&nbsp; ; return t<br>
&nbsp; }<br>
<br>
<br>
Compile and execute:<br>
<br>
$ ghc-7.0.3 -threaded -rtsopts TypeRepEqLock.hs<br>
&lt;snip&gt;<br>
$ while true ; do ./TypeRepEqLock &#43;RTS -N ; done<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
TypeRepEqLock: thread blocked indefinitely in an MVar operation<br>
Ok<br>
Ok<br>
Ok<br>
^C^C<br>
<br>
I'm sorry but I don't see how this program could ever deadlock, unless there is some more locking in typeOf and (==) on TypeReps.
<br>
<br>
On the other side, my admittedly ugly workaround works fine for hours and hours.<br>
<br>
import Control.Concurrent<br>
import Control.Exception<br>
import Control.Monad<br>
import Data.Typeable<br>
<br>
main :: IO ()<br>
main =<br>
do { fin1 &lt;- newEmptyMVar<br>
&nbsp; ; fin2 &lt;- newEmptyMVar<br>
<br>
&nbsp; ; forkIO $ return (typeOf' ()) &gt;&gt;= evaluate &gt;&gt;= putMVar fin1 <br>
&nbsp; ; forkIO $ return (typeOf' ()) &gt;&gt;= evaluate &gt;&gt;= putMVar fin2 <br>
<br>
&nbsp; ; t1 &lt;- takeMVar fin1<br>
&nbsp; ; t2 &lt;- takeMVar fin2<br>
&nbsp; ; if (t1 /= t2)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; then putStrLn $ &quot;typeOf &quot; &#43;&#43; show t1 &#43;&#43; &quot; /= typeOf &quot; &#43;&#43; show t2<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else putStrLn &quot;Ok&quot;<br>
&nbsp; }<br>
<br>
typeOf' val<br>
&nbsp; | t1 == t2 = t1<br>
&nbsp; | otherwise = typeOf' val<br>
where<br>
&nbsp; t1 = typeOf'' val<br>
&nbsp; t2 = typeOf''' val<br>
{-# NOINLINE typeOf' #-}<br>
<br>
<br>
typeOf'' x = typeOf x<br>
{-# NOINLINE typeOf'' #-}<br>
typeOf''' x = typeOf x<br>
{-# NOINLINE typeOf''' #-}<br>
<br>
<br>
$ ghc-7.0.3 -threaded -rtsopts TypeRepEq.hs<br>
&lt;snip&gt;<br>
$ while true ; do ./TypeRepEq &#43;RTS -N ; done<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
Ok<br>
…<br>
<br>
Any hints how to avoid the &quot;thread blocked indefinitely in an MVar operation&quot; exception?<br>
<br>
Cheers,<br>
Jean<br>
<br>
<o:p></o:p></span></p>
</div>
</div>
<div>
<div>
<p class="MsoNormal"><span style="font-size:10.0pt">_______________________________________________<br>
Glasgow-haskell-users mailing list<br>
Glasgow-haskell-users@haskell.org<br>
<a href="http://www.haskell.org/mailman/listinfo/glasgow-haskell-users">http://www.haskell.org/mailman/listinfo/glasgow-haskell-users</a><o:p></o:p></span></p>
</div>
</div>
</div>
</div>
</body>
</html>