Mercurial > octave-libgccjit
diff src/parse.y @ 4699:5e2c68946f30
[project @ 2004-01-20 23:04:46 by jwe]
author | jwe |
---|---|
date | Tue, 20 Jan 2004 23:04:47 +0000 |
parents | e1c2d8ca8bc0 |
children | 9f0ce1536368 |
line wrap: on
line diff
--- a/src/parse.y Mon Jan 19 19:25:27 2004 +0000 +++ b/src/parse.y Tue Jan 20 23:04:47 2004 +0000 @@ -3780,8 +3780,8 @@ if (nargin > 1) { - unwind_protect_bool (buffer_error_messages); - buffer_error_messages = true; + unwind_protect_int (buffer_error_messages); + buffer_error_messages++; } int parse_status = 0; @@ -3799,11 +3799,7 @@ // Set up for letting the user print any messages from // errors that occurred in the first part of this eval(). - buffer_error_messages = false; - - bind_global_error_variable (); - - unwind_protect::add (clear_global_error_variable, 0); + buffer_error_messages--; eval_string (args(1), 0, parse_status, nargout); @@ -3917,8 +3913,8 @@ { if (nargin > 2) { - unwind_protect_bool (buffer_error_messages); - buffer_error_messages = true; + unwind_protect_int (buffer_error_messages); + buffer_error_messages++; } int parse_status = 0; @@ -3936,11 +3932,7 @@ // Set up for letting the user print any messages from // errors that occurred in the first part of this eval(). - buffer_error_messages = false; - - bind_global_error_variable (); - - unwind_protect::add (clear_global_error_variable, 0); + buffer_error_messages--; eval_string (args(2), 0, parse_status, nargout);