Mercurial > repos > rhope

comparison nworker_c.rhope @ 112:fd23ab2c1a73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small changes to make profile data a little cleaner
author Mike Pavone <pavone@retrodev.com>
date Mon, 11 Oct 2010 21:53:27 -0400
parents 2f6f0867fd68
children 04148770c229
comparison
equal deleted inserted replaced
111:13dfe8214254 112:fd23ab2c1a73
851 } 851 }
852 } 852 }
853 after save <- Fold[Save Result[?, ?, node index], with call, Range[0, save outs]] 853 after save <- Fold[Save Result[?, ?, node index], with call, Range[0, save outs]]
854 } 854 }
855 855
856 Compile Node@NWorker[worker,program,func,nodes,current:out,out worker] 856 Compile Node[worker,program,func,nodes,current:out,out worker]
857 { 857 {
858 node index <- [nodes]Index[current] 858 node index <- [nodes]Index[current]
859 node <- [[worker]Nodes >>]Index[node index] 859 node <- [[worker]Nodes >>]Index[node index]
860 conditions <- [node]Conditions >> 860 conditions <- [node]Conditions >>
861 [("call","getfield","setfield")]Find[=[[node]Type >>, ?]] 861 [("call","getfield","setfield")]Find[=[[node]Type >>, ?]]
917 out <- Val[nfunc] 917 out <- Val[nfunc]
918 out worker <- Val[worker] 918 out worker <- Val[worker]
919 } 919 }
920 } 920 }
921 921
922 Save Node Conditions@NWorker[worker,node index:out] 922 Save Node Conditions[worker,node index:out]
923 { 923 {
924 node <- [[worker]Nodes >>]Index[node index] 924 node <- [[worker]Nodes >>]Index[node index]
925 conditions <- [worker]Collect Conditions[node] 925 conditions <- [worker]Collect Conditions[node]
926 out <- [worker]Nodes <<[ [[worker]Nodes >>]Set[node index, [node]Conditions <<[conditions]] ] 926 out <- [worker]Nodes <<[ [[worker]Nodes >>]Set[node index, [node]Conditions <<[conditions]] ]
927 927
928 } 928 }
929 929
930 Save Group Conditions@NWorker[worker, groups,current:out] 930 Save Group Conditions[worker, groups,current:out]
931 { 931 {
932 nodes <- [groups]Index[current] 932 nodes <- [groups]Index[current]
933 nworker <- Fold[Save Node Conditions[?], worker, nodes] 933 nworker <- Fold[Save Node Conditions[?], worker, nodes]
934 934
935 [groups]Next[current] 935 [groups]Next[current]
938 }{ 938 }{
939 out <- Val[nworker] 939 out <- Val[nworker]
940 } 940 }
941 } 941 }
942 942
943 Compile Group@NWorker[worker,program,func,groups,current:out,out worker] 943 Compile Group[worker,program,func,groups,current:out,out worker]
944 { 944 {
945 nodes <- [groups]Index[current] 945 nodes <- [groups]Index[current]
946 [nodes]First 946 [nodes]First
947 { 947 {
948 nfunc,nworker <- [worker]Compile Node[program,func,nodes,~] 948 nfunc,nworker <- [worker]Compile Node[program,func,nodes,~]