| | 3945 | | pvm_archcode(arch) | | | 3946 | | char *arch; | | | 3947 | | { | | | 3948 | | struct pvmhostinfo *hlist; | | | 3949 | | int sbf, rbf, cc; | | | 3950 | | int nhost, narch; | | | 3951 | | int i; | | | 3952 | | TEV_DECLS
| | | 3953 | | | | | 3954 | | if (TEV_EXCLUSIVE) {
| | | 3955 | | if (TEV_DO_TRACE(TEV_ARCHCODE,TEV_EVENT_ENTRY)) {
| | | 3956 | | TEV_PACK_STRING( TEV_DID_AN, TEV_DATA_SCALAR,
| | | 3957 | | arch ? arch : "", 1, 1 ); | | | 3958 | | TEV_FIN;
| | | 3959 | | } | | | 3960 | | } | | | 3961 | | | | | 3962 | | if (!arch) | | | 3963 | | cc = PvmBadParam;
| | | 3964 | | | | | 3965 | | else | | | 3966 | | { | | | 3967 | | | | | 3968 | | | | | 3969 | | | | | 3970 | | | | | 3971 | | if (!(cc = BEATASK)) {
| | | 3972 | | sbf = pvm_setsbuf(pvm_mkbuf(PvmDataFoo));
| | | 3973 | | rbf = pvm_setrbuf(0); | | | 3974 | | if (pvmschedtid) | | | 3975 | | cc = msendrecv(pvmschedtid, SM_CONFIG, PvmBaseContext);
| | | 3976 | | else | | | 3977 | | cc = msendrecv(TIDPVMD, TM_CONFIG, SYSCTX_TM);
| | | 3978 | | if (cc > 0) { | | | 3979 | | pvm_upkint(&nhost, 1, 1); | | | 3980 | | pvm_upkint(&narch, 1, 1); | | true | 3981 | | hlist = TALLOC(nhost, struct pvmhostinfo, "hi");
| | hlist <= 4087 | 3982 | | for (i = 0; i < nhost; i++) { | | $unknown_39464363 <= 4095 | 3983 | | pvm_upkint(&hlist[i].hi_tid, 1, 1); | | $unknown_39464395 <= 4095 | 3984 | | pvmupkstralloc(&(hlist[i].hi_name)); |
|