| | 2022 | | pvm_config(nhostp, narchp, hostp) |
| | 2023 | | int *nhostp; |
| | 2024 | | int *narchp; |
| | 2025 | | struct pvmhostinfo **hostp; |
| | 2026 | | { |
| | 2027 | | int sbf, rbf, cc; |
| | 2028 | | static int nhost = 0; |
| | 2029 | | static int narch = 0; |
| | 2030 | | static struct pvmhostinfo *hlist = 0; |
| | 2031 | | int i; |
| | 2032 | | |
| | 2033 | | TEV_DECLS
|
| | 2034 | | |
| | 2035 | | if (TEV_EXCLUSIVE) {
|
| | 2036 | | if (TEV_DO_TRACE(TEV_CONFIG,TEV_EVENT_ENTRY))
|
| | 2037 | | TEV_FIN;
|
| | 2038 | | } |
| | 2039 | | |
| | 2040 | | if (hlist) { |
| | 2041 | | while (nhost-- > 0) { |
| | 2042 | | PVM_FREE(hlist[nhost].hi_name);
|
| | 2043 | | PVM_FREE(hlist[nhost].hi_arch);
|
| | 2044 | | } |
| | 2045 | | PVM_FREE(hlist);
|
| | 2046 | | hlist = 0; |
| | 2047 | | nhost = 0; |
| | 2048 | | } |
| | 2049 | | if (!(cc = BEATASK)) {
|
| | 2050 | | sbf = pvm_setsbuf(pvm_mkbuf(PvmDataFoo));
|
| | 2051 | | rbf = pvm_setrbuf(0); |
| | 2052 | | if (pvmschedtid) |
| | 2053 | | cc = msendrecv(pvmschedtid, SM_CONFIG, PvmBaseContext);
|
| | 2054 | | else |
| | 2055 | | cc = msendrecv(TIDPVMD, TM_CONFIG, SYSCTX_TM);
|
| | 2056 | | if (cc > 0) { |
| | 2057 | | pvm_upkint(&nhost, 1, 1); |
| | 2058 | | pvm_upkint(&narch, 1, 1); |
| true | 2059 | | hlist = TALLOC(nhost, struct pvmhostinfo, "hi");
|
| hlist <= 4079 | 2060 | | for (i = 0; i < nhost; i++) { |
| $unknown_10970707 <= 4095 | 2061 | | pvm_upkint(&hlist[i].hi_tid, 1, 1); |
| $unknown_10970745 <= 4095 | 2062 | | pvmupkstralloc(&(hlist[i].hi_name)); |