@@ -2419,6 +2419,13 @@ void CmiSyncVectorSendAndFree(int destPE, int n, int *sizes, char **msgs) {
24192419 * particular by the rank zero in each node.
24202420 ****************************************************************************/
24212421
2422+ #define REDUCTION_DEBUG 0
2423+ #if REDUCTION_DEBUG
2424+ #define REDN_DBG (...) CmiPrintf(__VA_ARGS__)
2425+ #else
2426+ #define REDN_DBG (...)
2427+ #endif
2428+
24222429CpvStaticDeclare (int , CmiReductionMessageHandler );
24232430CpvStaticDeclare (int , CmiReductionDynamicRequestHandler );
24242431
@@ -2640,7 +2647,7 @@ void CmiSendReduce(CmiReduction *red) {
26402647 }
26412648 CmiSetHandler (msg , CpvAccess (CmiReductionMessageHandler ));
26422649 CmiSetRedID (msg , red -> seqID );
2643- /*CmiPrintf("CmiSendReduce(%d) : sending %d bytes to %d\n",CmiMyPe(),msg_size,red->parent);*/
2650+ REDN_DBG ( "[%d] CmiSendReduce : sending %d bytes to %d\n" ,CmiMyPe (),msg_size ,red -> parent );
26442651 CmiSyncSendAndFree (red -> parent , msg_size , msg );
26452652 } else {
26462653 (red -> ops .destination )(msg );
@@ -2678,7 +2685,8 @@ void CmiSendNodeReduce(CmiReduction *red) {
26782685 }
26792686 CmiSetHandler (msg , CpvAccess (CmiNodeReductionMessageHandler ));
26802687 CmiSetRedID (msg , red -> seqID );
2681- /*CmiPrintf("CmiSendNodeReduce(%d): sending %d bytes to %d\n",CmiMyNode(),msg_size,red->parent);*/
2688+ REDN_DBG ("[%d:%d][%d] CmiSendNodeReduce: sending %d bytes to %d\n" ,
2689+ CmiMyNode (),CmiMyRank (),CmiMyPe (),msg_size ,red -> parent );
26822690 CmiSyncNodeSendAndFree (red -> parent , msg_size , msg );
26832691 } else {
26842692 (red -> ops .destination )(msg );
@@ -2708,7 +2716,7 @@ static void CmiGlobalReduce(void *msg, int size, CmiReduceMergeFn mergeFn, CmiRe
27082716 red -> ops .destination = (CmiHandler )CmiGetHandlerFunction (msg );
27092717 red -> ops .mergeFn = mergeFn ;
27102718 red -> ops .pupFn = NULL ;
2711- /*CmiPrintf ("[%d] CmiReduce::local %hd parent=%d, numChildren=%d\n",CmiMyPe(),red->seqID,red->parent,red->numChildren);*/
2719+ REDN_DBG ("[%d] CmiReduce::local %hd parent=%d, numChildren=%d\n" ,CmiMyPe (),red -> seqID ,red -> parent ,red -> numChildren );
27122720 CmiSendReduce (red );
27132721}
27142722
@@ -2725,7 +2733,7 @@ static void CmiGlobalReduceStruct(void *data, CmiReducePupFn pupFn,
27252733 red -> ops .mergeFn = mergeFn ;
27262734 red -> ops .pupFn = pupFn ;
27272735 red -> ops .deleteFn = deleteFn ;
2728- /*CmiPrintf ("[%d] CmiReduceStruct::local %hd parent=%d, numChildren=%d\n",CmiMyPe(),red->seqID,red->parent,red->numChildren);*/
2736+ REDN_DBG ("[%d] CmiReduceStruct::local %hd parent=%d, numChildren=%d\n" ,CmiMyPe (),red -> seqID ,red -> parent ,red -> numChildren );
27292737 CmiSendReduce (red );
27302738}
27312739
@@ -2739,7 +2747,8 @@ static void CmiGlobalNodeReduce(void *msg, int size, CmiReduceMergeFn mergeFn, C
27392747 red -> ops .destination = (CmiHandler )CmiGetHandlerFunction (msg );
27402748 red -> ops .mergeFn = mergeFn ;
27412749 red -> ops .pupFn = NULL ;
2742- /*CmiPrintf("[%d] CmiNodeReduce::local %hd parent=%d, numChildren=%d\n",CmiMyNode(),red->seqID,red->parent,red->numChildren);*/
2750+ REDN_DBG ("[%d:%d][%d] CmiNodeReduce::local %hd parent=%d, numChildren=%d\n" ,
2751+ CmiMyNode (),CmiMyRank (),CmiMyPe (),red -> seqID ,red -> parent ,red -> numChildren );
27432752 CmiSendNodeReduce (red );
27442753}
27452754
@@ -2756,7 +2765,8 @@ static void CmiGlobalNodeReduceStruct(void *data, CmiReducePupFn pupFn,
27562765 red -> ops .mergeFn = mergeFn ;
27572766 red -> ops .pupFn = pupFn ;
27582767 red -> ops .deleteFn = deleteFn ;
2759- /*CmiPrintf("[%d] CmiNodeReduceStruct::local %hd parent=%d, numChildren=%d\n",CmiMyNode(),red->seqID,red->parent,red->numChildren);*/
2768+ REDN_DBG ("[%d:%d][%d] CmiNodeReduceStruct::local %hd parent=%d, numChildren=%d\n" ,
2769+ CmiMyNode (),CmiMyRank (),CmiMyPe (),red -> seqID ,red -> parent ,red -> numChildren );
27602770 CmiSendNodeReduce (red );
27612771}
27622772
@@ -2803,7 +2813,7 @@ void CmiListReduce(int npes, int *pes, void *msg, int size, CmiReduceMergeFn mer
28032813 red -> ops .destination = (CmiHandler )CmiGetHandlerFunction (msg );
28042814 red -> ops .mergeFn = mergeFn ;
28052815 red -> ops .pupFn = NULL ;
2806- /*CmiPrintf ("[%d] CmiListReduce::local %hd parent=%d, numChildren=%d\n",CmiMyPe(),red->seqID,red->parent,red->numChildren);*/
2816+ REDN_DBG ("[%d] CmiListReduce::local %hd parent=%d, numChildren=%d\n" ,CmiMyPe (),red -> seqID ,red -> parent ,red -> numChildren );
28072817 CmiSendReduce (red );
28082818}
28092819
@@ -2875,15 +2885,16 @@ void CmiHandleReductionMessage(void *msg) {
28752885 CmiReduction * red = CmiGetReduction (CmiGetRedID (msg ));
28762886 if (red -> numRemoteReceived == red -> numChildren ) red = CmiGetReductionCreate (CmiGetRedID (msg ), red -> numChildren + 4 );
28772887 red -> remoteData [red -> numRemoteReceived ++ ] = (char * )msg ;
2878- /*CmiPrintf ("[%d] CmiReduce::remote %hd\n",CmiMyPe(),red->seqID);*/
2888+ REDN_DBG ("[%d] CmiReduce::remote %hd\n" ,CmiMyPe (),red -> seqID );
28792889 CmiSendReduce (red );
28802890}
28812891
28822892void CmiHandleNodeReductionMessage (void * msg ) {
28832893 CmiReduction * red = CmiGetNodeReduction (CmiGetRedID (msg ));
28842894 if (red -> numRemoteReceived == red -> numChildren ) red = CmiGetNodeReductionCreate (CmiGetRedID (msg ), red -> numChildren + 4 );
28852895 red -> remoteData [red -> numRemoteReceived ++ ] = (char * )msg ;
2886- /*CmiPrintf("[%d] CmiNodeReduce::remote %hd\n",CmiMyNode(),red->seqID);*/
2896+ REDN_DBG ("[%d:%d][%d] CmiNodeReduce::remote %hd\n" ,
2897+ CmiMyNode (),CmiMyRank (),CmiMyPe (),red -> seqID );
28872898 CmiSendNodeReduce (red );
28882899}
28892900
0 commit comments