| true | 3844 | | pvm_hostsync(host, clk, delta) | | | 3845 | | int host; | | | 3846 | | struct timeval *clk; | | | 3847 | | struct timeval *delta; | | | 3848 | | { | | | 3849 | | int cc; | | | 3850 | | int sbf, rbf; | | | 3851 | | struct timeval myta, mytb, remt; | | | 3852 | | int i[2]; | | | 3853 | | | | | 3854 | | if (!(cc = BEATASK)) {
| | | 3855 | | sbf = pvm_setsbuf(pvm_mkbuf(PvmDataFoo));
| | | 3856 | | rbf = pvm_setrbuf(0); | | | 3857 | | pvm_pkint(&host, 1, 1); | | | 3858 | | | | | 3859 | | gettimeofday(&myta, (struct timezone *) NULL);
| | | 3860 | | if ((cc = msendrecv(TIDPVMD, TM_HOSTSYNC,SYSCTX_TM)) > 0) {
| | | 3861 | | gettimeofday(&mytb, (struct timezone *) NULL);
| | | 3862 | | | | | 3863 | | pvm_upkint(&cc, 1, 1); | | | 3864 | | if (cc >= 0) { | | | 3865 | | cc = 0; |
| | 1255 | | | | pvm_upkint(np, cnt, std) | | | 1256 | | | | int *np; | | | 1257 | | | | int cnt; | | | 1258 | | | | int std; | | | 1259 | | | | { | | | 1260 | | | | int cc; | | | 1261 | | | | long ad; | | | 1262 | | | | TEV_DECLS
| | | 1263 | | | | | | | 1264 | | | | if (TEV_EXCLUSIVE) {
| | | 1265 | | | | if (TEV_DO_TRACE(TEV_UPKINT,TEV_EVENT_ENTRY)) {
| | | 1266 | | | | ad = (long)np; | | | 1267 | | | | TEV_PACK_LONG( TEV_DID_PDA, TEV_DATA_SCALAR, &ad, 1, 1 );
| | | 1268 | | | | TEV_PACK_INT( TEV_DID_PC, TEV_DATA_SCALAR, &cnt, 1, 1 );
| | | 1269 | | | | TEV_PACK_INT( TEV_DID_PSD, TEV_DATA_SCALAR, &std, 1, 1 );
| | | 1270 | | | | TEV_FIN;
| | | 1271 | | | | } | | | 1272 | | | | } | | | 1273 | | | | | | | 1274 | | | | if (cnt < 0) | | | 1275 | | | | cc = PvmBadParam;
| | | 1276 | | | | else if (!pvmrbuf) | | | 1277 | | | | cc = PvmNoBuf;
| | | 1278 | | | | else | | | 1279 | | | | cc = (pvmrbuf->m_codef->dec_int) (pvmrbuf, (void*)np, cnt, std, sizeof(int)); | | | 1280 | | | | | | | 1281 | | | | if (TEV_AMEXCL) {
| | | 1282 | | | | if (TEV_DO_TRACE(TEV_UPKINT,TEV_EVENT_EXIT)) {
| | | 1283 | | | | TEV_PACK_INT( TEV_DID_CC, TEV_DATA_SCALAR, &cc, 1, 1 );
| | | 1284 | | | | TEV_FIN;
| | | 1285 | | | | } | | | 1286 | | | | TEV_ENDEXCL;
| | | 1287 | | | | } | | | 1288 | | | | return (cc < 0 ? lpvmerr("pvm_upkint", cc) : PvmOk);
| | i is uninitialized | 1289 | | | | } |
|