| 1763 | // |
| 1764 | |
| 1765 | static SSHORT gen_event_block( const act* action) |
| 1766 | { |
| 1767 | gpre_nod* init = (gpre_nod*) action->act_object; |
| 1768 | |
| 1769 | int ident = CMP_next_ident(); |
| 1770 | init->nod_arg[2] = (gpre_nod*)(IPTR) ident; |
| 1771 | |
| 1772 | printa(INDENT, "gds__%da\t\t: ^char;\t\t(* event parameter block *)", ident); |
| 1773 | printa(INDENT, "gds__%db\t\t: ^char;\t\t(* result parameter block *)", ident); |
| 1774 | printa(INDENT, "gds__%dl\t\t: %s;\t\t(* length of event parameter block *)", ident, SHORT_DCL); |
| 1775 | |
| 1776 | gpre_nod* list = init->nod_arg[1]; |
| 1777 | return list->nod_count; |
| 1778 | } |
| 1779 | |
| 1780 | |
| 1781 | //____________________________________________________________ |
no test coverage detected