Mercurial > hg > octave-avbm

comparison src/parse.y @ 4452:f3c21a1d1c62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-09 23:20:18 by jwe]
author jwe
date Wed, 09 Jul 2003 23:20:19 +0000
parents 51a0dcde8778
children 322453495d75
comparison
equal deleted inserted replaced
4451:ea1d3e1a4b1b 4452:f3c21a1d1c62
1732 tree_expression *retval = e; 1732 tree_expression *retval = e;
1733 1733
1734 unwind_protect::begin_frame ("fold_binary_expression"); 1734 unwind_protect::begin_frame ("fold_binary_expression");
1735 1735
1736 unwind_protect_int (error_state); 1736 unwind_protect_int (error_state);
1737 unwind_protect_int (warning_state);
1737 1738
1738 unwind_protect_bool (discard_error_messages); 1739 unwind_protect_bool (discard_error_messages);
1740 unwind_protect_bool (discard_warning_messages);
1741
1739 discard_error_messages = true; 1742 discard_error_messages = true;
1743 discard_warning_messages = true;
1740 1744
1741 tree_expression *op1 = e->lhs (); 1745 tree_expression *op1 = e->lhs ();
1742 tree_expression *op2 = e->rhs (); 1746 tree_expression *op2 = e->rhs ();
1743 1747
1744 if (op1->is_constant () && op2->is_constant ()) 1748 if (op1->is_constant () && op2->is_constant ())
1778 tree_expression *retval = e; 1782 tree_expression *retval = e;
1779 1783
1780 unwind_protect::begin_frame ("fold_unary_expression"); 1784 unwind_protect::begin_frame ("fold_unary_expression");
1781 1785
1782 unwind_protect_int (error_state); 1786 unwind_protect_int (error_state);
1787 unwind_protect_int (warning_state);
1783 1788
1784 unwind_protect_bool (discard_error_messages); 1789 unwind_protect_bool (discard_error_messages);
1790 unwind_protect_bool (discard_warning_messages);
1791
1785 discard_error_messages = true; 1792 discard_error_messages = true;
1793 discard_warning_messages = true;
1786 1794
1787 tree_expression *op = e->operand (); 1795 tree_expression *op = e->operand ();
1788 1796
1789 if (op->is_constant ()) 1797 if (op->is_constant ())
1790 { 1798 {
1825 tree_expression *retval = e; 1833 tree_expression *retval = e;
1826 1834
1827 unwind_protect::begin_frame ("finish_colon_expression"); 1835 unwind_protect::begin_frame ("finish_colon_expression");
1828 1836
1829 unwind_protect_int (error_state); 1837 unwind_protect_int (error_state);
1838 unwind_protect_int (warning_state);
1830 1839
1831 unwind_protect_bool (discard_error_messages); 1840 unwind_protect_bool (discard_error_messages);
1841 unwind_protect_bool (discard_warning_messages);
1842
1832 discard_error_messages = true; 1843 discard_error_messages = true;
1844 discard_warning_messages = true;
1833 1845
1834 tree_expression *base = e->base (); 1846 tree_expression *base = e->base ();
1835 tree_expression *limit = e->limit (); 1847 tree_expression *limit = e->limit ();
1836 tree_expression *incr = e->increment (); 1848 tree_expression *incr = e->increment ();
1837 1849
2801 tree_expression *retval = m; 2813 tree_expression *retval = m;
2802 2814
2803 unwind_protect::begin_frame ("finish_matrix"); 2815 unwind_protect::begin_frame ("finish_matrix");
2804 2816
2805 unwind_protect_int (error_state); 2817 unwind_protect_int (error_state);
2818 unwind_protect_int (warning_state);
2806 2819
2807 unwind_protect_bool (discard_error_messages); 2820 unwind_protect_bool (discard_error_messages);
2821 unwind_protect_bool (discard_warning_messages);
2822
2808 discard_error_messages = true; 2823 discard_error_messages = true;
2824 discard_warning_messages = true;
2809 2825
2810 if (m->all_elements_are_constant ()) 2826 if (m->all_elements_are_constant ())
2811 { 2827 {
2812 octave_value tmp = m->rvalue (); 2828 octave_value tmp = m->rvalue ();
2813 2829