| 1731 | // |
| 1732 | |
| 1733 | static act* par_end_block() |
| 1734 | { |
| 1735 | if (gpreGlob.sw_language == lang_pascal && |
| 1736 | !routine_decl && --gpreGlob.cur_routine->act_count == 0 && routine_stack) |
| 1737 | { |
| 1738 | gpreGlob.cur_routine = (act*) MSC_pop(&routine_stack); |
| 1739 | } |
| 1740 | |
| 1741 | return NULL; |
| 1742 | } |
| 1743 | |
| 1744 | |
| 1745 | //____________________________________________________________ |