| 1748 | // |
| 1749 | |
| 1750 | static act* par_end_error() |
| 1751 | { |
| 1752 | |
| 1753 | // avoid parsing an ada exception end_error - |
| 1754 | // check for a semicolon |
| 1755 | |
| 1756 | if (!PAR_end() && gpreGlob.sw_language == lang_ada) |
| 1757 | return NULL; |
| 1758 | |
| 1759 | if (!cur_error) |
| 1760 | PAR_error("END_ERROR used out of context"); |
| 1761 | |
| 1762 | if (!((act*) MSC_pop(&cur_error))) |
| 1763 | return NULL; |
| 1764 | |
| 1765 | // Need to eat the semicolon for c if present |
| 1766 | |
| 1767 | if (gpreGlob.sw_language == lang_c) |
| 1768 | MSC_match(KW_SEMI_COLON); |
| 1769 | |
| 1770 | return MSC_action(0, ACT_enderror); |
| 1771 | } |
| 1772 | |
| 1773 | |
| 1774 | //____________________________________________________________ |
no test coverage detected