Mercurial > octave

comparison libinterp/octave-value/ov-usr-fcn.cc @ 30723:08b08b7f05b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace direct calls to C library assert() with Octave specialty functions in libinterp/ (bug #61753) Define 4 new inline functions in error.h (panic_if, panic_unless, error_if, error_unless) that call either assert() or Octave's own error() function. Replace calls to assert() in code that maintains state and for which no recovery on detection of a problem is possible with calls to panic_XXX. Replace calls to assert() in interpreter code which could simply return to the Octave prompt when a problem is detected with calls to error_XXX. * error.h (panic_if, panic_unless): New functions which eventually call can call assert(). panic_if (COND) calls assert if COND is true. panic_unless (COND) calls assert if COND is false. * error.h (error_if, error_unless): New functions which eventually call can call Octave's error() function. error_if (COND) calls assert if COND is true. error_unless (COND) calls assert if COND is false. * cellfun.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc, dot.cc, error.cc, graphics.cc, kron.cc, mex.cc, oct-map.cc, oct-stream.cc, pr-output.cc, schur.cc, stack-frame.cc, typecast.cc, variables.cc, ov-base.cc, ov-class.cc, ov-fcn-handle.cc, ov-struct.cc, ov-usr-fcn.cc, ov.h, ovl.cc, ops.h, profiler.cc, pt-classdef.cc, pt-eval.cc, pt-idx.cc, pt-pr-code.cc, pt-tm-const.cc, token.cc: Replace direct calls to C library assert() with Octave specialty functions.
author Arun Giridhar <arungiridhar@gmail.com> and Rik <rik@octave.org>
date Mon, 07 Feb 2022 21:47:53 -0800
parents ed17822e7662
children 32d2b6604a9f
comparison
equal deleted inserted replaced
30720:25de51cb4123 30723:08b08b7f05b2
502 } 502 }
503 503
504 octave::tree_expression * 504 octave::tree_expression *
505 octave_user_function::special_expr (void) 505 octave_user_function::special_expr (void)
506 { 506 {
507 assert (is_special_expr ()); 507 panic_unless (is_special_expr ());
508 assert (m_cmd_list->length () == 1); 508 panic_if (m_cmd_list->length () != 1);
509 509
510 octave::tree_statement *stmt = m_cmd_list->front (); 510 octave::tree_statement *stmt = m_cmd_list->front ();
511 return stmt->expression (); 511 return stmt->expression ();
512 } 512 }
513 513