[GHC] #4001: Implement an atomic readMVar

[GHC]

#4001: Implement an atomic readMVar
----------------------------+----------------------------------------------
        Reporter:           |            Owner:  ezyang
  simonmar                  |           Status:  new
            Type:  task     |        Milestone:  7.6.2
        Priority:  low      |          Version:  6.12.2
       Component:  Runtime  |         Keywords:
  System                    |     Architecture:  Unknown/Multiple
      Resolution:           |       Difficulty:  Moderate (less than a day)
Operating System:           |       Blocked By:
  Unknown/Multiple          |  Related Tickets:
 Type of failure:           |
  None/Unknown              |
       Test Case:           |
        Blocking:           |
----------------------------+----------------------------------------------

Comment (by ezyang):

 New version of patch is much less invasive; the cost is an extra
 conditional in takeMVar/tryTakeMVar, no extra field.

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/4001#comment:16>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler