| 1669 | // |
| 1670 | |
| 1671 | static void gen_emodify( const act* action, int column) |
| 1672 | { |
| 1673 | TEXT s1[MAX_REF_SIZE], s2[MAX_REF_SIZE]; |
| 1674 | |
| 1675 | const upd* modify = (upd*) action->act_object; |
| 1676 | |
| 1677 | for (const ref* reference = modify->upd_port->por_references; reference; |
| 1678 | reference = reference->ref_next) |
| 1679 | { |
| 1680 | const ref* source = reference->ref_source; |
| 1681 | if (!source) |
| 1682 | continue; |
| 1683 | gpre_fld* field = reference->ref_field; |
| 1684 | align(column); |
| 1685 | fprintf(gpreGlob.out_file, "%s := %s;", |
| 1686 | gen_name(s1, reference, true), gen_name(s2, source, true)); |
| 1687 | if (field->fld_array_info) |
| 1688 | gen_get_or_put_slice(action, reference, false, column); |
| 1689 | } |
| 1690 | |
| 1691 | gen_send(action, modify->upd_port, column); |
| 1692 | } |
| 1693 | |
| 1694 | |
| 1695 | //____________________________________________________________ |
no test coverage detected