| true | 121 | | trc_store_old_trace_event( ID, tsec, tusec, tid, eid ) | | | 122 | | TRC_ID ID; | | | 123 | | int tsec; | | | 124 | | int tusec; | | | 125 | | int tid; | | | 126 | | int eid; | | | 127 | | { | | | 128 | | static int *tids = (int *) NULL;
| | | 129 | | static int ntids = 0; | | | 130 | | | | | 131 | | TRC_TEVTASK TT; | | | | | ... | | | 148 | | int stid; | | | 149 | | int omit; | | | 150 | | int len; | | | 151 | | int buf; | | | 152 | | int num; | | | 153 | | int cc; | | | 154 | | int i; | | | 155 | | | | | 156 | | | | | 157 | | | | | 158 | | TT = trc_get_tevtask_tid( ID, tid ); | | | 159 | | | | | 160 | | omit = ( ID->trace_out == NULL
| | | 161 | | || ( TT != NULL && TRC_TASK_OMIT( TT ) ) )
| | | 162 | | ? TRC_TRUE : TRC_FALSE;
| | | 163 | | | | | 164 | | | | | 165 | | | | | 166 | | ecnt = 0; | | | 167 | | | | | 168 | | if ( !omit ) | | | 169 | | { | | | 170 | | | | | 171 | | | | | 172 | | if ( !( TRC_OLD_TEV_TRACE[ eid ] ) ) | | | 173 | | { | | | 174 | | fprintf( ID->trace_out, "\n" ); | | | 175 | | | | | 176 | | if ( ID->event_dump_hdr ) | | | 177 | | (ID->event_dump_hdr)( ID, tid ); | | | 178 | | | | | 179 | | fprintf( ID->trace_out, "#%d: %s\n", eid + 1, | | | 180 | | TRC_OLD_TRACE_DESCRIPTORS[ eid ] ); | | | 181 | | | | | 182 | | (TRC_OLD_TEV_TRACE[ eid ])++; | | | 183 | | } | | | 184 | | | | | 185 | | | | | 186 | | | | | 187 | | trc_update_trace_time( tsec, tusec ); | | | 188 | | | | | 189 | | | | | 190 | | | | | 191 | | if ( ID->event_dump_hdr ) | | | 192 | | (ID->event_dump_hdr)( ID, tid ); | | | 193 | | | | | 194 | | fprintf( ID->trace_out, "\"%s\" { %d, %d, %d", | | | 195 | | TRC_OLD_TEV_TRACE_NAMES[ eid ], tsec, tusec, tid ); | | | 196 | | } | | | 197 | | | | | 198 | | | | | 199 | | | | | 200 | | switch ( eid ) | | | 201 | | { | | | 202 | | case TRC_OLD_TEV_NEWTASK:
| | | 203 | | { | | | 204 | | if ( omit ) | | | 205 | | break; | | | 206 | | | | | 207 | | pvm_upkint( &ptid, 1, 1 ); | | | 208 | | pvm_upkint( &flags, 1, 1 ); | | | 209 | | pvm_upkstr( name ); | | | 210 | | | | | | | ... | | | 340 | | if ( omit ) | | | 341 | | break; | | | 342 | | | | | 343 | | pvm_upkint( &cc, 1, 1 ); | | | 344 | | | | | 345 | | fprintf( ID->trace_out, ", %d", cc ); | | | 346 | | | | | 347 | | break; | | | 348 | | } | | | 349 | | | | | 350 | | case TRC_OLD_TEV_SPAWN0:
| | | 351 | | { | | | 352 | | if ( omit ) | | | 353 | | break; | | | 354 | | | | | 355 | | pvm_upkstr( name ); | | | 356 | | pvm_upkint( &flags, 1, 1 ); |
| | 1680 | | | | pvm_upkstr(cp) | | | 1681 | | | | char *cp; | | | 1682 | | | | { | | | 1683 | | | | int l; | | | 1684 | | | | int cc; | | | 1685 | | | | long ad; | | | 1686 | | | | TEV_DECLS
| | | 1687 | | | | | | | 1688 | | | | if (TEV_EXCLUSIVE) {
| | | 1689 | | | | if (TEV_DO_TRACE(TEV_UPKSTR,TEV_EVENT_ENTRY)) {
| | | 1690 | | | | ad = (long)cp; | | | 1691 | | | | TEV_PACK_LONG( TEV_DID_PDA, TEV_DATA_SCALAR, &ad, 1, 1 );
| | | 1692 | | | | TEV_FIN;
| | | 1693 | | | | } | | | 1694 | | | | } | | | 1695 | | | | | | | 1696 | | | | if (!pvmrbuf) | | | 1697 | | | | cc = PvmNoBuf;
| | | 1698 | | | | else { | | | 1699 | | | | if (!(cc = (pvmrbuf->m_codef->dec_int) | | | 1700 | | | | (pvmrbuf, (void*)&l, 1, 1, sizeof(int)))) | | | 1701 | | | | cc = (pvmrbuf->m_codef->dec_byte) | | | 1702 | | | | (pvmrbuf, (void*)cp, l, 1, 1); | | | 1703 | | | | } | | | 1704 | | | | | | | 1705 | | | | if (TEV_AMEXCL) {
| | | 1706 | | | | if (TEV_DO_TRACE(TEV_UPKSTR,TEV_EVENT_EXIT)) {
| | | 1707 | | | | TEV_PACK_INT( TEV_DID_CC, TEV_DATA_SCALAR, &cc, 1, 1 );
| | | 1708 | | | | TEV_FIN;
| | | 1709 | | | | } | | | 1710 | | | | TEV_ENDEXCL;
| | | 1711 | | | | } | | | 1712 | | | | return (cc < 0 ? lpvmerr("pvm_upkstr", cc) : PvmOk);
| | where is uninitialized | 1713 | | | | } |
|