| true | 338 | | pvm_bcast(group, msgtag) | | | 339 | | char *group; | | | 340 | | int msgtag; | | | 341 | | { | | | 342 | | int bailout=0; | | | 343 | | int cc; | | | 344 | | int i; | | | 345 | | int mytid; | | | 346 | | int ntids; | | | 347 | | int rbuf; | | | 348 | | int sbuf; | | | 349 | | int *tids = (int *) NULL;
| | | 350 | | int x; | | | 351 | | | | | 352 | | TEV_DECLS;
| | | 353 | | | | | 354 | | BGN_TRACE( TEV_BCAST, group, TEV_DID_MC, &msgtag );
| /u1/paul/SATE/2010/c/pvm/pvm3/pvmgs/pvmgs_mac.h | | 82 | #define BGN_TRACE( event, strarg, did, intarg ) \ | | 83 | if ( TEV_EXCLUSIVE ) { \ | | 84 | if (TEV_DO_TRACE( event, TEV_EVENT_ENTRY ) ) \ | | 85 | { \ | | 86 | TEV_PACK_STRING( TEV_DID_GN, TEV_DATA_SCALAR, \ | | 87 | strarg ? strarg: "", 1, 1 ); \ | | 88 | if ( intarg != (int *) NULL ) \ | | 89 | TEV_PACK_INT( did, TEV_DATA_SCALAR, intarg, 1, 1 ); \ | | 90 | TEV_FIN; \ | | 91 | } \ | | 92 | } |
| | | 355 | | |
| | 659 | | | | gs_get_tidlist(group, msgtag, ntids, tids, holes_not_allowed) | | | 660 | | | | char *group; | | | 661 | | | | int msgtag; | | | 662 | | | | int *ntids; | | | 663 | | | | int **tids; | | | 664 | | | | int holes_not_allowed; | | | 665 | | | | { | | | 666 | | | | int cc; | | | 667 | | | | int i; | | | 668 | | | | int len; | | | 669 | | | | int rbuf; | | | 670 | | | | int sbuf, state, stid; | | | 671 | | | | int savectx; | | | 672 | | | | | | | 673 | | | | GROUP_STRUCT_PTR sgroup; | | | 674 | | | | | | | 675 | | | | if ( group == (char*)0 || *group == '\0' ) | | | 676 | | | | return(PvmNullGroup);
| | | 677 | | | | | | | 678 | | | | | | | 679 | | | | | | | 680 | | | | sgroup = gs_group(group, sgroup_list, &ngroups, NOCREATE);
| | | 681 | | | | | | | 682 | | | | if (sgroup != (GROUP_STRUCT_PTR) NULL)
| | | 683 | | | | { | | | 684 | | | | if (holes_not_allowed) | | | 685 | | | | { | | | 686 | | | | for (i=0; i < sgroup->ntids; i++) | | | 687 | | | | if (sgroup->tids[i] == NOTID)
| | | 688 | | | | { | | | 689 | | | | *ntids = -1; | | | 690 | | | | return (*ntids); | | | 691 | | | | } | | | 692 | | | | } | | | | | | | ... | | | 695 | | | | | | | 696 | | | | for (i = 0; i < sgroup->maxntids; i++) | | | 697 | | | | (*tids)[i] = sgroup->tids[i]; | | | 698 | | | | | | | 699 | | | | *ntids = sgroup->ntids; | | | 700 | | | | | | | 701 | | | | return (PvmOk);
| | | 702 | | | | } | | | 703 | | | | | | | 704 | | | | | | | 705 | | | | if ( (stid = gs_getgstid()) < 0 ) | | | 706 | | | | return(PvmSysErr);
| | | 707 | | | | | | | 708 | | | | sbuf = pvm_mkbuf(PvmDataDefault);
| | | 709 | | | | | | | 710 | | | | sbuf = pvm_setsbuf(sbuf); | | | 711 | | | | | | | 712 | | | | rbuf = pvm_setrbuf(0); | | | 713 | | | | | | | 714 | | | | pvm_pkstr(group); | | | 715 | | | | | | | 716 | | | | | | | | | | | ... | | | 768 | | | | pvm_upkint(&state,1,1); | | | 769 | | | | | | | 770 | | | | if (state == STATIC)
| | | 771 | | | | gs_cachegroup(sgroup_list, &ngroups, &sgroup); | | | 772 | | | | | | | 773 | | | | pvm_freebuf(pvm_setsbuf(sbuf)); | | | 774 | | | | | | | 775 | | | | pvm_freebuf(pvm_setrbuf(rbuf)); | | | 776 | | | | | | | 777 | | | | return(PvmOk);
| | ntids is uninitialized | 778 | | | | } |
|