| 2377 | // |
| 2378 | |
| 2379 | static SSHORT gen_event_block( const act* action) |
| 2380 | { |
| 2381 | gpre_nod* init = (gpre_nod*) action->act_object; |
| 2382 | |
| 2383 | int ident = CMP_next_ident(); |
| 2384 | init->nod_arg[2] = (gpre_nod*) (IPTR) ident; |
| 2385 | |
| 2386 | printa(COLUMN8, false, "01 %s%dA PIC S9(10) %s.", names[isc_a_pos], ident, USAGE_BINARY4); |
| 2387 | printa(COLUMN8, false, "01 %s%dB PIC S9(10) %s.", names[isc_a_pos], ident, USAGE_BINARY4); |
| 2388 | printa(COLUMN8, false, "01 %s%dL PIC S9(5) %s.", names[isc_a_pos], ident, USAGE_BINARY2); |
| 2389 | |
| 2390 | const gpre_nod* list = init->nod_arg[1]; |
| 2391 | |
| 2392 | return list->nod_count; |
| 2393 | } |
| 2394 | |
| 2395 | |
| 2396 | //____________________________________________________________ |
no test coverage detected