| 638 | // |
| 639 | |
| 640 | static void asgn_to_proc(const ref* reference, int column) |
| 641 | { |
| 642 | TEXT s[MAX_REF_SIZE]; |
| 643 | |
| 644 | for (; reference; reference = reference->ref_next) |
| 645 | { |
| 646 | if (!reference->ref_value) |
| 647 | continue; |
| 648 | const gpre_fld* field = reference->ref_field; |
| 649 | gen_name(s, reference, true); |
| 650 | align(column); |
| 651 | if (field && (field->fld_flags & FLD_text)) |
| 652 | fprintf(gpreGlob.out_file, "gds__ftof (%s%s, %d, %s%s, %s (%s));", |
| 653 | REF_PAR, gen_name(s, reference, true), field->fld_length, |
| 654 | REF_PAR, reference->ref_value, SIZEOF, reference->ref_value); |
| 655 | else |
| 656 | fprintf(gpreGlob.out_file, "%s := %s;", reference->ref_value, gen_name(s, reference, true)); |
| 657 | |
| 658 | } |
| 659 | } |
| 660 | |
| 661 | |
| 662 | //____________________________________________________________ |
no test coverage detected