Changes between Version 39 and Version 40 of LightweightConcurrency


Ignore:
Timestamp:
May 18, 2012 5:06:44 PM (2 years ago)
Author:
kc
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • LightweightConcurrency

    v39 v40  
    141141 
    142142{{{ 
     143 
     144getSSA = getScheduleSContAction 
     145setSSA = setScheduleSContAction 
     146getYCA = getYieldControlAction 
     147setYCA = setYieldControlAction 
     148 
    143149yield :: IO () 
    144150yield = atomically $ do 
    145151  s <- getCurrentSCont 
    146152  -- Append current SCont to scheduler 
    147   ssa <- getScheduleSContAction s 
     153  ssa <- getSSA s 
    148154  enque :: PTM () <- ssa a 
    149155  enque 
    150156  -- Switch to next SCont from scheduler 
    151   switchToNext :: PTM () <- getYieldControlAction s 
     157  switchToNext :: PTM () <- getYCA s 
    152158  switchToNext 
    153159 
     
    158164    s <- getCurrentSCont; 
    159165    -- Initialize scheduler actions 
    160     ssa <- getScheduleSContAction s; 
    161     setScheduleSContAction ns ssa; 
    162     yca <- getYieldControlAction s; 
    163     setYieldControlAction ns yca; 
     166    ssa <- getSSA s; 
     167    setSSA ns ssa; 
     168    yca <- getYCA s; 
     169    setYCA ns yca; 
    164170    -- Append the new SCont to current SCont's scheduler 
    165171    appendAct <- ssa ns;