Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl
changeset 252:88f71110f1a9 Common_Ancestor
works, with test app sending in a chain, in mult-threaded mode
author | Sean Halle <seanhalle@yahoo.com> |
---|---|
date | Sat, 25 Aug 2012 12:22:21 -0700 |
parents | 88fd330feef3 |
children | e7539330735a 5c9b9967b423 |
files | Services_Offered_by_VMS/Debugging/DEBUG__macros.h VMS__int.c |
diffstat | 2 files changed, 12 insertions(+), 3 deletions(-) [+] |
line diff
1.1 --- a/Services_Offered_by_VMS/Debugging/DEBUG__macros.h Fri Aug 17 17:15:45 2012 -0700 1.2 +++ b/Services_Offered_by_VMS/Debugging/DEBUG__macros.h Sat Aug 25 12:22:21 2012 -0700 1.3 @@ -40,6 +40,15 @@ 1.4 }\ 1.5 }while(0);/*macro magic to isolate var-names*/ 1.6 1.7 + #define DEBUG__printf3( bool, msg, p1, p2, p3) \ 1.8 + do{\ 1.9 + if(bool)\ 1.10 + { printf(msg, p1, p2, p3); \ 1.11 + printf(" | function: %s\n", __FUNCTION__);\ 1.12 + fflush(stdin);\ 1.13 + }\ 1.14 + }while(0);/*macro magic to isolate var-names*/ 1.15 + 1.16 #else 1.17 #define DEBUG__printf( bool, msg) 1.18 #define DEBUG__printf1( bool, msg, param)
2.1 --- a/VMS__int.c Fri Aug 17 17:15:45 2012 -0700 2.2 +++ b/VMS__int.c Sat Aug 25 12:22:21 2012 -0700 2.3 @@ -108,7 +108,7 @@ 2.4 _VMSMasterEnv->numSlavesAlive -= 1; 2.5 if( _VMSMasterEnv->numSlavesAlive == 0 ) 2.6 { //no more work, so shutdown 2.7 - VMS_SS__shutdown(); //note, creates 4 shut-down slaves 2.8 + VMS_SS__shutdown(); //note, creates shut-down slaves on each core 2.9 } 2.10 2.11 //NOTE: dataParam was given to the processor, so should either have 2.12 @@ -143,13 +143,13 @@ 2.13 void 2.14 VMS_int__dissipate_slaveVP( SlaveVP *animatingSlv ) 2.15 { 2.16 - DEBUG__printf2(dbgRqstHdlr, "dissipate: %d, alive: %d",animatingSlv->slaveID, _VMSMasterEnv->numSlavesAlive-1); 2.17 + DEBUG__printf2(dbgRqstHdlr, "VMS int dissipate slaveID: %d, alive: %d",animatingSlv->slaveID, _VMSMasterEnv->numSlavesAlive-1); 2.18 //dis-own all locations owned by this processor, causing to be freed 2.19 // any locations that it is (was) sole owner of 2.20 _VMSMasterEnv->numSlavesAlive -= 1; 2.21 if( _VMSMasterEnv->numSlavesAlive == 0 ) 2.22 { //no more work, so shutdown 2.23 - VMS_SS__shutdown(); //note, creates 4 shut-down processors 2.24 + VMS_SS__shutdown(); //note, creates shut-down processor on each core 2.25 } 2.26 2.27 //NOTE: dataParam was given to the processor, so should either have