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