Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/common/strand-util.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/common/strand-util.sml

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

revision 2297, Fri Mar 15 22:05:31 2013 UTC revision 2298, Fri Mar 15 22:18:22 2013 UTC
# Line 31  Line 31 
31        | propToString GlobalReduce = "GlobalReduce"        | propToString GlobalReduce = "GlobalReduce"
32        | propToString GridIs2D = "GridIs2D"        | propToString GridIs2D = "GridIs2D"
33    
34      fun hasProp (prop : program_prop) = List.exists (fn p => (case (p,prop)      fun hasProp (prop : program_prop) = List.exists (fn p => prop = p)
                             of (StrandsMayDie,StrandsMayDie) => true  
                              | (NewStrands,NewStrands) => true  
                              | (StrandCommunication,StrandCommunication) => true  
                              | (GlobalReduce,GlobalRedue) => true  
                              | (GridIs2D, GridIs2D) => true  
                              |  (_,_) => false))  
   
   
35    
36    end    end

Legend:
Removed from v.2297  
changed lines
  Added in v.2298

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