Mercurial > repos > rhope
comparison nworker_c.rhope @ 112:fd23ab2c1a73
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,~] |