Mercurial > octave-nkf

comparison src/utils.cc @ 5258:60999c752276

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-29 19:35:34 by jwe]
author jwe
date Tue, 29 Mar 2005 19:35:34 +0000
parents d957f0ef5aa3
children 23b37da9fd5b
comparison
equal deleted inserted replaced
5257:d957f0ef5aa3 5258:60999c752276
815 } 815 }
816 else 816 else
817 error ("%s (A): use %s (size (A)) instead", warn_for, warn_for); 817 error ("%s (A): use %s (size (A)) instead", warn_for, warn_for);
818 } 818 }
819 819
820 check_dimensions (dim, warn_for); // May set error_state. 820 if (! error_state)
821 check_dimensions (dim, warn_for); // May set error_state.
821 } 822 }
822 823
823 824
824 void 825 void
825 get_dimensions (const octave_value& a, const char *warn_for, 826 get_dimensions (const octave_value& a, const char *warn_for,
846 } 847 }
847 else 848 else
848 error ("%s (A): use %s (size (A)) instead", warn_for, warn_for); 849 error ("%s (A): use %s (size (A)) instead", warn_for, warn_for);
849 } 850 }
850 851
851 check_dimensions (nr, nc, warn_for); // May set error_state. 852 if (! error_state)
853 check_dimensions (nr, nc, warn_for); // May set error_state.
852 } 854 }
853 855
854 void 856 void
855 get_dimensions (const octave_value& a, const octave_value& b, 857 get_dimensions (const octave_value& a, const octave_value& b,
856 const char *warn_for, int& nr, int& nc) 858 const char *warn_for, int& nr, int& nc)