Changes between Version 117 and Version 118 of LightweightConcurrency


Ignore:
Timestamp:
May 30, 2012 3:38:33 PM (3 years ago)
Author:
kc
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • LightweightConcurrency

    v117 v118  
    162162  -- Append current SCont to scheduler
    163163  ssa <- getSSA
    164   enque :: PTM () <- ssa a
    165   enque
     164  ssa a
    166165  -- Switch to next SCont from scheduler
    167166  switchToNext :: PTM () <- getYCA
     
    189188    setYCA ns yca;
    190189    -- Append the new SCont to current SCont's scheduler
    191     appendAct <- ssa ns;
    192     appendAct
     190    ssa ns
    193191  }
    194192  return ns
     
    218216        s <- getCurrentSCont
    219217        ssa <- getSSA
    220         wakeup <- ssa s
     218        let wakeup = ssa s
    221219        writePVar ref $ v
    222220          where v = Empty $ ts++[(hole, wakeup)]