| 1701 | // |
| 1702 | |
| 1703 | static SSHORT gen_event_block( const act* action) |
| 1704 | { |
| 1705 | gpre_nod* init = (gpre_nod*) action->act_object; |
| 1706 | //gpre_sym* event_name = (gpre_sym*) init->nod_arg[0]; |
| 1707 | |
| 1708 | const int ident = CMP_next_ident(); |
| 1709 | init->nod_arg[2] = (gpre_nod*)(IPTR) ident; |
| 1710 | const gpre_nod* list = init->nod_arg[1]; |
| 1711 | |
| 1712 | printa(0, "isc_%da\t\t: system.address;\t\t-- event parameter block --\n", ident); |
| 1713 | printa(0, "isc_%db\t\t: system.address;\t\t-- result parameter block --\n", ident); |
| 1714 | printa(0, "isc_%dc\t\t: %s;\t\t-- count of events --\n", ident, USHORT_DCL); |
| 1715 | printa(0, "isc_%dl\t\t: %s;\t\t-- length of event parameter block --\n", ident, USHORT_DCL); |
| 1716 | printa(0, "isc_%dv\t\t: firebird.isc_el_t (1..%d);\t\t-- vector for initialization --\n", |
| 1717 | ident, list->nod_count); |
| 1718 | |
| 1719 | return list->nod_count; |
| 1720 | } |
| 1721 | |
| 1722 | |
| 1723 | //____________________________________________________________ |
no test coverage detected