Changes between Version 39 and Version 40 of LightweightConcurrency


Ignore:
Timestamp:
May 18, 2012 5:06:44 PM (3 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;