Mercurial > octave

comparison libinterp/octave-value/ov-usr-fcn.cc @ 17653:bb2fa6e5b348 classdef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: periodic merge of default to classdef
author Michael Goffioul <michael.goffioul@gmail.com>
date Mon, 14 Oct 2013 15:00:12 -0400
parents c702371ff6df 4669cfca69a0
children 93b3d03b05e7
comparison
equal deleted inserted replaced
17650:a98902bda11a 17653:bb2fa6e5b348
798 { 798 {
799 octave_value val = symbol_table::varval (".saved_warning_states."); 799 octave_value val = symbol_table::varval (".saved_warning_states.");
800 800
801 if (val.is_defined ()) 801 if (val.is_defined ())
802 { 802 {
803 // Don't use the usual approach of attempting to extract a value
804 // and then checking error_state since this code might be
805 // executing when error_state is already set. But do fail
806 // spectacularly if .saved_warning_states. is not an octave_map
807 // (or octave_scalar_map) object.
808
809 if (! val.is_map ())
810 panic_impossible ();
811
803 octave_map m = val.map_value (); 812 octave_map m = val.map_value ();
804
805 if (error_state)
806 panic_impossible ();
807 813
808 Cell ids = m.contents ("identifier"); 814 Cell ids = m.contents ("identifier");
809 Cell states = m.contents ("state"); 815 Cell states = m.contents ("state");
810 816
811 for (octave_idx_type i = 0; i < m.numel (); i++) 817 for (octave_idx_type i = 0; i < m.numel (); i++)