Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl

comparison MasterLoop.c @ 29:0e008278fe3c

find changesets by author, revision, files, or words in the commit message
Works Sequentially -- took out all threads and debugged -- works
author Me
date Wed, 28 Jul 2010 13:12:10 -0700
parents 5a2068cbc28b
children c8823e0bb2b4
comparison
equal deleted inserted replaced
6:709d10a79429 7:f406a2edf225
131 { currSlot->procrAssignedToSlot = schedVirtPr; 131 { currSlot->procrAssignedToSlot = schedVirtPr;
132 schedVirtPr->schedSlot = currSlot; 132 schedVirtPr->schedSlot = currSlot;
133 currSlot->needsProcrAssigned = FALSE; 133 currSlot->needsProcrAssigned = FALSE;
134 134
135 filledSlots[ numFilled ] = currSlot; 135 filledSlots[ numFilled ] = currSlot;
136
137 writeVMSQ( schedVirtPr, workQ );
136 numFilled += 1; 138 numFilled += 1;
137 139
138 writeVMSQ( schedVirtPr, workQ );
139 if( numFilled == masterEnv->numToPrecede ) 140 if( numFilled == masterEnv->numToPrecede )
140 { 141 {
141 writeVMSQ( masterEnv->masterVirtPr, workQ ); 142 writeVMSQ( masterEnv->masterVirtPr, workQ );
142 masterHasBeenQueued = TRUE; 143 masterHasBeenQueued = TRUE;
143 } 144 }
156 // want something working for the moment, look at dynamic behavior 157 // want something working for the moment, look at dynamic behavior
157 // later 158 // later
158 //TODO: look at dynamic behavior -- time-average numToPrecede or something 159 //TODO: look at dynamic behavior -- time-average numToPrecede or something
159 if( numFilled < NUM_CORES - 1 ) 160 if( numFilled < NUM_CORES - 1 )
160 { 161 {
161 masterEnv->numToPrecede = 0; 162 masterEnv->numToPrecede = 1;
162 } 163 }
163 else 164 else
164 { masterEnv->numToPrecede = numFilled - NUM_CORES + 1; 165 { masterEnv->numToPrecede = numFilled - NUM_CORES + 1;
165 } 166 }
166 167