Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cml/src/core-cml/event.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/core-cml/event.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1900, Tue Feb 28 01:41:00 2006 UTC revision 1901, Tue Feb 28 03:18:52 2006 UTC
# Line 307  Line 307 
307    
308    (* walk the event group tree, collecting the base events (with associated    (* walk the event group tree, collecting the base events (with associated
309     * ack flags), and a list of flag sets.  A flag set is a (cvar * ack flag list)     * ack flags), and a list of flag sets.  A flag set is a (cvar * ack flag list)
310     * pairs, where the flags are those associated with the events covered by the     * pair, where the flags are those associated with the events covered by the
311     * nack cvar.     * nack cvar.
312     *)     *)
313      fun collect grp = let      fun collect grp = let
# Line 417  Line 417 
417                    | _ => extRdy (r, doFns, n)                    | _ => extRdy (r, doFns, n)
418                  (* end case *))                  (* end case *))
419            in            in
420              case bl              S.atomicBegin(); ext (bl, [])
              of [(bev, _)] => syncOnOneEvt bev  
               | _ => (S.atomicBegin(); ext (bl, []))  
             (* end case *)  
421            end            end
422    
423      fun sync ev = (case (force ev)      fun sync ev = (case (force ev)

Legend:
Removed from v.1900  
changed lines
  Added in v.1901

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0