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/cm/concur/concur.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/concur/concur.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 805, Thu Mar 22 20:08:01 2001 UTC
# Line 62  Line 62 
62      fun enqueue (x as (_, xu), qr as ref q) = let      fun enqueue (x as (_, xu), qr as ref q) = let
63          fun insert [] = [x]          fun insert [] = [x]
64            | insert ((h as (_, hu)) :: r) =            | insert ((h as (_, hu)) :: r) =
65              if xu > hu then x :: h :: r else h :: insert r              (* ">=" is important here. If we had used ">", then
66                 * the code in btcompile.sml would not perform as
67                 * desired.  In particular, the parser thread
68                 * would end up being scheduled first, effectively
69                 * preventing the "cmb" message to be sent to the
70                 * slaves. (With preemption this would not be a problem.) *)
71                if xu >= hu then x :: h :: r else h :: insert r
72      in      in
73          qr := insert q          qr := insert q
74      end      end

Legend:
Removed from v.651  
changed lines
  Added in v.805

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