| 2080 | // |
| 2081 | |
| 2082 | static SSHORT gen_event_block(const act* action) |
| 2083 | { |
| 2084 | gpre_nod* init = (gpre_nod*) action->act_object; |
| 2085 | |
| 2086 | int ident = CMP_next_ident(); |
| 2087 | init->nod_arg[2] = (gpre_nod*)(IPTR) ident; |
| 2088 | |
| 2089 | printa(COLUMN, "INTEGER*4 isc_%dA", ident); |
| 2090 | printa(COLUMN, "INTEGER*4 isc_%dB", ident); |
| 2091 | printa(COLUMN, "INTEGER*2 isc_%dL", ident); |
| 2092 | |
| 2093 | gpre_nod* list = init->nod_arg[1]; |
| 2094 | |
| 2095 | return list->nod_count; |
| 2096 | } |
| 2097 | |
| 2098 | |
| 2099 | //____________________________________________________________ |
no test coverage detected