| true | 964 | | trc_store_trace_event( ID, TD, tid, omit ) | | | 965 | | TRC_ID ID; | | | 966 | | TRC_TEVDESC TD; | | | 967 | | int tid; | | | 968 | | int omit; | | | 969 | | { | | | 970 | | TRC_DATADESC DD; | | | 971 | | | | | 972 | | TRC_TEVTASK TT; | | | 973 | | | | | 974 | | char upk_byte[TRC_MAX_UNPACK_ARR_SIZE];
| | | | | ... | | | 989 | | int maxlen; | | | 990 | | int ignore; | | | 991 | | int tusec; | | | 992 | | int tsec; | | | 993 | | int len; | | | 994 | | int num; | | | 995 | | int i; | | | 996 | | | | | 997 | | | | | 998 | | | | | 999 | | if ( !omit && TD->dump ) | | | 1000 | | trc_dump_tevdesc( ID, TD, tid ); | | | 1001 | | | | | 1002 | | | | | 1003 | | | | | 1004 | | TT = (TRC_TEVTASK) NULL;
| | | 1005 | | | | | 1006 | | tsec = tusec = -1; | | | 1007 | | | | | 1008 | | newtask = TRC_FALSE;
| | | 1009 | | endtask = TRC_FALSE;
| | | 1010 | | | | | 1011 | | if ( !strcmp( TD->name, "newtask" ) | | | 1012 | | || !strcmp( TD->name, "spntask" ) ) | | | 1013 | | { | | | 1014 | | newtask = TRC_TRUE;
| | | 1015 | | } | | | 1016 | | | | | 1017 | | else if ( !strcmp( TD->name, "endtask" ) ) | | | 1018 | | endtask = TRC_TRUE;
| | | 1019 | | | | | 1020 | | ignore = TRC_FALSE;
| | | 1021 | | | | | 1022 | | | | | 1023 | | | | | 1024 | | if ( !omit ) | | | 1025 | | ( ID, TD, tid ); | | | 1026 | | | | | 1027 | | | | | 1028 | | | | | 1029 | | DD = TD->ddesc; | | | 1030 | | | | | 1031 | | while ( DD != NULL )
| | | 1032 | | { | | | 1033 | | if ( DD->array == TEV_DATA_ARRAY )
| | | 1034 | | { | | | 1035 | | TRC_PVMCKERR( pvm_upkint( &num, 1, 1 ),
|
| | 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);
| | num is uninitialized | 1289 | | | | } |
|