Changes between Version 117 and Version 118 of LightweightConcurrency


Ignore:
Timestamp:
May 30, 2012 3:38:33 PM (2 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)]