Mercurial > octave

changeset 33449:662938d6b684 bytecode-interpreter

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge default to bytecode-interpreter
author Arun Giridhar <arungiridhar@gmail.com>
date Tue, 23 Apr 2024 15:32:22 -0400
parents 2383f7553930 (current diff) 71317c258da9 (diff)
children 418932096146
files libinterp/corefcn/load-path.cc libinterp/corefcn/variables.cc libinterp/octave-value/ov-base.cc libinterp/octave-value/ov-base.h libinterp/octave-value/ov.cc libinterp/octave-value/ov.h libinterp/parse-tree/pt-eval.cc
diffstat 24 files changed, 63 insertions(+), 73 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/__eigs__.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/__eigs__.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -345,7 +345,7 @@
           if (tmp.numel () != 1)
             error ("eigs: OPTS.issym must be a scalar value");
 
-          symmetric = tmp.ybool_value ("eigs: OPTS.issym must be a logical value");
+          symmetric = tmp.strict_bool_value ("eigs: OPTS.issym must be a logical value");
           sym_tested = true;
         }
 
@@ -358,7 +358,7 @@
               if (tmp.numel () != 1)
                 error ("eigs: OPTS.isreal must be a scalar value");
 
-              a_is_complex = ! tmp.ybool_value ("eigs: OPTS.isreal must be a logical value");
+              a_is_complex = ! tmp.strict_bool_value ("eigs: OPTS.isreal must be a logical value");
             }
         }
 
@@ -393,7 +393,7 @@
           if (tmp.numel () != 1)
             error ("eigs: OPTS.cholB must be a scalar value");
 
-          cholB = tmp.ybool_value ("eigs: OPTS.cholB must be a logical value");
+          cholB = tmp.strict_bool_value ("eigs: OPTS.cholB must be a logical value");
         }
 
       tmp = map.getfield ("permB");
--- a/libinterp/corefcn/besselj.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/besselj.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -598,7 +598,7 @@
     }
   else
     {
-      octave_idx_type kind = args(1).yint_value ("besselh: invalid value of K");
+      octave_idx_type kind = args(1).strict_int_value ("besselh: invalid value of K");
 
       octave_value_list tmp_args;
 
@@ -687,13 +687,13 @@
   int kind = 0;
   if (nargin > 1)
     {
-      kind = args(0).yint_value ("airy: K must be an integer value");
+      kind = args(0).strict_int_value ("airy: K must be an integer value");
 
       if (kind < 0 || kind > 3)
         error ("airy: K must be 0, 1, 2, or 3");
     }
 
-  bool scale = (nargin == 3) && args(2).ybool_value ("airy: scale option must be a logical value");
+  bool scale = (nargin == 3) && args(2).strict_bool_value ("airy: scale option must be a logical value");
 
   int idx = (nargin == 1 ? 0 : 1);
 
--- a/libinterp/corefcn/bitfcns.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/bitfcns.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -583,7 +583,7 @@
       if (args(2).numel () > 1)
         error ("bitshift: N must be a scalar integer");
 
-      nbits = args(2).yint_value ("bitshift: N must be an integer");
+      nbits = args(2).strict_int_value ("bitshift: N must be an integer");
 
       if (nbits < 0)
         error ("bitshift: N must be positive");
--- a/libinterp/corefcn/data.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/data.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -96,7 +96,7 @@
     print_usage ();
 
   int dim = (nargin == 1 ? -1
-             : args(1).yint_value ("all: DIM must be an integer")-1);
+             : args(1).strict_int_value ("all: DIM must be an integer")-1);
 
   if (dim < -1)
     error ("all: invalid dimension argument = %d", dim + 1);
@@ -161,7 +161,7 @@
     print_usage ();
 
   int dim = (nargin == 1 ? -1
-             : args(1).yint_value ("any: DIM must be an integer")-1);
+             : args(1).strict_int_value ("any: DIM must be an integer")-1);
 
   if (dim < -1)
     error ("any: invalid dimension argument = %d", dim + 1);
@@ -1267,7 +1267,7 @@
     retval = args(0).diag ();
   else if (nargin == 2)
     {
-      octave_idx_type k = args(1).yidx_type_value ("diag: invalid argument K");
+      octave_idx_type k = args(1).strict_idx_type_value ("diag: invalid argument K");
 
       retval = args(0).diag (k);
     }
@@ -1278,8 +1278,8 @@
       if (arg0.ndims () != 2 || (arg0.rows () != 1 && arg0.columns () != 1))
         error ("diag: V must be a vector");
 
-      octave_idx_type m = args(1).yidx_type_value ("diag: invalid dimension M");
-      octave_idx_type n = args(2).yidx_type_value ("diag: invalid dimension N");
+      octave_idx_type m = args(1).strict_idx_type_value ("diag: invalid dimension M");
+      octave_idx_type n = args(2).strict_idx_type_value ("diag: invalid dimension N");
 
       retval = arg0.diag (m, n);
     }
@@ -2375,7 +2375,7 @@
   if (args.length () == 0)
     print_usage ();
 
-  int dim = args(0).yint_value ("cat: DIM must be an integer") - 1;
+  int dim = args(0).strict_int_value ("cat: DIM must be an integer") - 1;
 
   if (dim < 0)
     error ("cat: DIM must be a valid dimension");
@@ -8618,7 +8618,7 @@
   if (nargin < 1 || nargin > 2)
     print_usage ();
 
-  std::string str = args(0).string_value ();
+  std::string str = args(0).xstring_value ("base64_decode: first argument must be a character array");
 
   Array<double> retval = base64_decode (str);
 
@@ -8652,7 +8652,7 @@
 %!error base64_decode ()
 %!error base64_decode (1,2,3)
 %!error base64_decode (1, "this is not a valid set of dimensions")
-%!error <input was not valid base64> base64_decode (1)
+%!error <first argument must be a character array> base64_decode (1)
 %!error <input was not valid base64> base64_decode ("AQ=")
 %!error <incorrect input size> base64_decode ("AQ==")
 */
@@ -8674,7 +8674,7 @@
   if (nargin < 1 || nargin > 2)
     print_usage ();
 
-  std::string str = args(0).string_value ();
+  std::string str = args(0).xstring_value ("__base64_decode_bytes__: first argument must be a character array");
 
   intNDArray<octave_uint8> retval = base64_decode_bytes (str);
 
@@ -8708,7 +8708,7 @@
 %!error __base64_decode_bytes__ ()
 %!error __base64_decode_bytes__ (1,2,3)
 %!error __base64_decode_bytes__ (1, "this is not a valid set of dimensions")
-%!error <input was not valid base64> __base64_decode_bytes__ (1)
+%!error <first argument must be a character array> __base64_decode_bytes__ (1)
 */
 
 OCTAVE_END_NAMESPACE(octave)
--- a/libinterp/corefcn/file-io.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/file-io.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -3223,7 +3223,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int mask = args(0).yint_value ("umask: MASK must be an integer");
+  int mask = args(0).strict_int_value ("umask: MASK must be an integer");
 
   if (mask < 0)
     error ("umask: MASK must be a positive integer value");
--- a/libinterp/corefcn/interpreter.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/interpreter.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -290,7 +290,7 @@
   std::string arg = args(0).xstring_value ("atexit: FCN argument must be a string");
 
   bool add_mode = (nargin == 2)
-                  ? args(1).ybool_value ("atexit: FLAG argument must be a logical value")
+                  ? args(1).strict_bool_value ("atexit: FLAG argument must be a logical value")
                   : true;
 
   octave_value_list retval;
--- a/libinterp/corefcn/jsondecode.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/jsondecode.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -601,7 +601,7 @@
                               "option argument must be a string");
       if (string::strcmpi (parameter, "makeValidName"))
         {
-          use_makeValidName = args(i + 1).ybool_value ("jsondecode: "
+          use_makeValidName = args(i + 1).strict_bool_value ("jsondecode: "
                               "'makeValidName' value must be a bool");
         }
       else
--- a/libinterp/corefcn/load-path.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/load-path.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -2707,7 +2707,7 @@
     }
   else if (option_arg.isnumeric ())
     {
-      int val = option_arg.yint_value ("addpath: OPTION must be '-begin'/0 or '-end'/1");
+      int val = option_arg.strict_int_value ("addpath: OPTION must be '-begin'/0 or '-end'/1");
 
       if (val == 0)
         nargin--;
--- a/libinterp/corefcn/oct-stream.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/oct-stream.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -3682,7 +3682,7 @@
         }
       else if (param == "collectoutput")
         {
-          m_collect_output = args(i+1).ybool_value ("%s: CollectOutput must be logical or numeric",
+          m_collect_output = args(i+1).strict_bool_value ("%s: CollectOutput must be logical or numeric",
                              m_who.c_str ());
         }
       else if (param == "emptyvalue")
@@ -3700,11 +3700,11 @@
       else if (param == "multipledelimsasone")
         {
           m_multiple_delims_as_one = args(i
-                                        +1).ybool_value ("%s: MultipleDelimsAsOne must be logical or numeric", m_who.c_str ());
+                                        +1).strict_bool_value ("%s: MultipleDelimsAsOne must be logical or numeric", m_who.c_str ());
         }
       else if (param == "returnonerror")
         {
-          m_return_on_error = args(i+1).ybool_value ("%s: ReturnOnError must be logical or numeric",
+          m_return_on_error = args(i+1).strict_bool_value ("%s: ReturnOnError must be logical or numeric",
                               m_who.c_str ());
         }
       else if (param == "whitespace")
--- a/libinterp/corefcn/psi.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/psi.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -78,7 +78,7 @@
     print_usage ();
 
   const octave_value oct_z = (nargin == 1) ? args(0) : args(1);
-  const octave_idx_type k = (nargin == 1) ? 0 : args(0).yidx_type_value ("psi: K must be an integer");
+  const octave_idx_type k = (nargin == 1) ? 0 : args(0).strict_idx_type_value ("psi: K must be an integer");
   if (k < 0)
     error ("psi: K must be non-negative");
 
--- a/libinterp/corefcn/sparse.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/sparse.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -199,8 +199,8 @@
     }
   else if (nargin == 2)
     {
-      octave_idx_type m = args(0).yidx_type_value ("sparse: M must be a non-negative integer");
-      octave_idx_type n = args(1).yidx_type_value ("sparse: N must be a non-negative integer");
+      octave_idx_type m = args(0).strict_idx_type_value ("sparse: M must be a non-negative integer");
+      octave_idx_type n = args(1).strict_idx_type_value ("sparse: N must be a non-negative integer");
 
       if (m < 0 || n < 0)
         error ("sparse: dimensions M and N must be non-negative");
@@ -233,8 +233,8 @@
 
       if (nargin == 5)
         {
-          m = args(3).yidx_type_value ("sparse: M must be a non-negative integer");
-          n = args(4).yidx_type_value ("sparse: N must be a non-negative integer");
+          m = args(3).strict_idx_type_value ("sparse: M must be a non-negative integer");
+          n = args(4).strict_idx_type_value ("sparse: N must be a non-negative integer");
 
           if (m < 0 || n < 0)
             error ("sparse: dimensions M and N must be non-negative");
--- a/libinterp/corefcn/strfns.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/strfns.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -1221,7 +1221,7 @@
   int width = -1;
 
   if (nargin > 1 && ! args(1).isempty ())
-    width = args(1).yint_value ("list_in_columns: WIDTH must be an integer");
+    width = args(1).strict_int_value ("list_in_columns: WIDTH must be an integer");
 
   std::string prefix;
 
--- a/libinterp/corefcn/syscalls.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/syscalls.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -465,8 +465,8 @@
   if (fid < 0)
     error ("fcntl: invalid file id FID");
 
-  int req = args(1).yint_value ("fcntl: REQUEST must be an integer");
-  int arg = args(2).yint_value ("fcntl: ARG must be an integer");
+  int req = args(1).strict_int_value ("fcntl: REQUEST must be an integer");
+  int arg = args(2).strict_int_value ("fcntl: ARG must be an integer");
 
   octave_value_list retval;
   std::string msg;
@@ -741,7 +741,7 @@
 
   std::string name = args(0).xstring_value ("mkfifo: FILE must be a string");
 
-  int octal_mode = args(1).yint_value ("mkfifo: MODE must be an integer");
+  int octal_mode = args(1).strict_int_value ("mkfifo: MODE must be an integer");
 
   if (octal_mode < 0)
     error ("mkfifo: MODE must be a positive integer value");
@@ -1258,12 +1258,12 @@
   if (nargin != 1 && nargin != 2)
     print_usage ();
 
-  pid_t pid = args(0).yint_value ("waitpid: OPTIONS must be an integer");
+  pid_t pid = args(0).strict_int_value ("waitpid: OPTIONS must be an integer");
 
   int options = 0;
 
   if (nargin == 2)
-    options = args(1).yint_value ("waitpid: PID must be an integer value");
+    options = args(1).strict_int_value ("waitpid: PID must be an integer value");
 
   std::string msg;
   int status;
@@ -1285,7 +1285,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WIFEXITED: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WIFEXITED: STATUS must be an integer");
 
   return ovl (sys::wifexited (status));
 }
@@ -1304,7 +1304,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WEXITSTATUS: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WEXITSTATUS: STATUS must be an integer");
 
   return ovl (sys::wexitstatus (status));
 }
@@ -1321,7 +1321,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WIFSIGNALED: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WIFSIGNALED: STATUS must be an integer");
 
   return ovl (sys::wifsignaled (status));
 }
@@ -1340,7 +1340,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WTERMSIG: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WTERMSIG: STATUS must be an integer");
 
   return ovl (sys::wtermsig (status));
 }
@@ -1361,7 +1361,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WCOREDUMP: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WCOREDUMP: STATUS must be an integer");
 
   return ovl (sys::wcoredump (status));
 }
@@ -1381,7 +1381,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WIFSTOPPED: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WIFSTOPPED: STATUS must be an integer");
 
   return ovl (sys::wifstopped (status));
 }
@@ -1400,7 +1400,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WSTOPSIG: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WSTOPSIG: STATUS must be an integer");
 
   return ovl (sys::wstopsig (status));
 }
@@ -1417,7 +1417,7 @@
   if (args.length () != 1)
     print_usage ();
 
-  int status = args(0).yint_value ("WIFCONTINUED: STATUS must be an integer");
+  int status = args(0).strict_int_value ("WIFCONTINUED: STATUS must be an integer");
 
   return ovl (sys::wifcontinued (status));
 }
--- a/libinterp/corefcn/time.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/time.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -69,7 +69,7 @@
   octave_value v = m.getfield (k);
 
   if (! v.isempty ())
-    retval = v.yint_value ("%s: invalid TM_STRUCT argument", who);
+    retval = v.strict_int_value ("%s: invalid TM_STRUCT argument", who);
 
   return retval;
 }
--- a/libinterp/corefcn/utils.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/utils.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -1295,7 +1295,7 @@
         }
       else
         {
-          int val = args(0).yint_value ("errno: argument must be string or integer");
+          int val = args(0).strict_int_value ("errno: argument must be string or integer");
 
           retval = octave_errno::set (val);
         }
--- a/libinterp/corefcn/variables.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/corefcn/variables.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -601,7 +601,7 @@
 
   if (nargin == 1)
     {
-      bool bval = args(0).ybool_value ("%s: argument must be a logical value", nm);
+      bool bval = args(0).strict_bool_value ("%s: argument must be a logical value", nm);
 
       var = bval;
     }
@@ -675,7 +675,7 @@
 
   if (nargin == 1)
     {
-      int ival = args(0).yint_value ("%s: argument must be an integer value", nm);
+      int ival = args(0).strict_int_value ("%s: argument must be an integer value", nm);
 
       if (ival < minval)
         error ("%s: arg must be greater than %d", nm, minval);
--- a/libinterp/dldfcn/__glpk__.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/dldfcn/__glpk__.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -332,7 +332,7 @@
       if (tmp.is_defined ())                                            \
         {                                                               \
           if (! tmp.isempty ())                                        \
-            VAL = tmp.yint_value ("glpk: invalid value in PARAM" NAME); \
+            VAL = tmp.strict_int_value ("glpk: invalid value in PARAM" NAME); \
           else                                                          \
             error ("glpk: invalid value in PARAM" NAME);                \
         }                                                               \
--- a/libinterp/dldfcn/__ode15__.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/dldfcn/__ode15__.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -1350,7 +1350,7 @@
 
   // Provided number of arguments in the ode callback function
   octave_idx_type num_event_args
-    = args(5).yidx_type_value ("__ode15__: NUM_EVENT_ARGS must be an integer");
+    = args(5).strict_idx_type_value ("__ode15__: NUM_EVENT_ARGS must be an integer");
 
   if (num_event_args != 2 && num_event_args != 3)
     error ("__ode15__: number of input arguments in event callback must be 2 or 3");
--- a/libinterp/octave-value/ov-base.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/octave-value/ov-base.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -878,9 +878,7 @@
 std::string
 octave_base_value::xstring_value () const
 {
-  wrong_type_arg_error ();
-
-  return std::string ();
+  err_wrong_type_arg ("octave_base_value::xstring_value()", type_name ());
 }
 
 Array<std::string>
@@ -1219,12 +1217,6 @@
    s_t_name.c_str (), type);
 }
 
-void
-octave_base_value::wrong_type_arg_error () const
-{
-  err_wrong_type_arg (type_name ());
-}
-
 octave_value
 octave_base_value::map (unary_mapper_t umap) const
 {
--- a/libinterp/octave-value/ov-base.h	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/octave-value/ov-base.h	Tue Apr 23 15:32:22 2024 -0400
@@ -1024,8 +1024,6 @@
 
 private:
 
-  OCTINTERP_API void wrong_type_arg_error () const;
-
   //--------
 
   static int s_curr_print_indent_level;
--- a/libinterp/octave-value/ov-cell.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/octave-value/ov-cell.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -1237,7 +1237,7 @@
 
         for (int i = 0; i < nargin; i++)
           dims(i) = (args(i).isempty ()
-                     ? 0 : args(i).yidx_type_value ("cell: dimension must be a scalar integer"));
+                     ? 0 : args(i).strict_idx_type_value ("cell: dimension must be a scalar integer"));
       }
       break;
     }
--- a/libinterp/octave-value/ov.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/octave-value/ov.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -2215,11 +2215,11 @@
 // especially for parsing integer arguments that cannot be floating point.
 // See bug #65538.
 
-XVALUE_EXTRACTOR (int, yint_value, strict_int_value)
-
-XVALUE_EXTRACTOR (bool, ybool_value, strict_bool_value)
-
-XVALUE_EXTRACTOR (octave_idx_type, yidx_type_value, strict_idx_type_value)
+XVALUE_EXTRACTOR (int, strict_int_value, strict_int_value)
+
+XVALUE_EXTRACTOR (bool, strict_bool_value, strict_bool_value)
+
+XVALUE_EXTRACTOR (octave_idx_type, strict_idx_type_value, strict_idx_type_value)
 
 #undef XVALUE_EXTRACTOR
 
--- a/libinterp/octave-value/ov.h	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/octave-value/ov.h	Tue Apr 23 15:32:22 2024 -0400
@@ -1122,7 +1122,7 @@
 
   OCTINTERP_API int xint_value (const char *fmt, ...) const;
 
-  OCTINTERP_API int yint_value (const char *fmt, ...) const;
+  OCTINTERP_API int strict_int_value (const char *fmt, ...) const;
 
   OCTINTERP_API unsigned int xuint_value (const char *fmt, ...) const;
 
@@ -1138,7 +1138,7 @@
 
   OCTINTERP_API octave_idx_type xidx_type_value (const char *fmt, ...) const;
 
-  OCTINTERP_API octave_idx_type yidx_type_value (const char *fmt, ...) const;
+  OCTINTERP_API octave_idx_type strict_idx_type_value (const char *fmt, ...) const;
 
   OCTINTERP_API double xdouble_value (const char *fmt, ...) const;
 
@@ -1174,7 +1174,7 @@
 
   OCTINTERP_API bool xbool_value (const char *fmt, ...) const;
 
-  OCTINTERP_API bool ybool_value (const char *fmt, ...) const;
+  OCTINTERP_API bool strict_bool_value (const char *fmt, ...) const;
 
   OCTINTERP_API boolMatrix xbool_matrix_value (const char *fmt, ...) const;
 
--- a/libinterp/parse-tree/pt-eval.cc	Mon Apr 22 17:53:10 2024 +0200
+++ b/libinterp/parse-tree/pt-eval.cc	Tue Apr 23 15:32:22 2024 -0400
@@ -5177,13 +5177,13 @@
   if (nargin == 3)
     {
       octave_idx_type index_position
-        = args(1).yidx_type_value ("end: K must be integer value");
+        = args(1).strict_idx_type_value ("end: K must be integer value");
 
       if (index_position < 1)
         error ("end: K must be greater than zero");
 
       octave_idx_type num_indices
-        = args(2).yidx_type_value ("end: N must be integer value");
+        = args(2).strict_idx_type_value ("end: N must be integer value");
 
       if (num_indices < 1)
         error ("end: N must be greater than zero");
@@ -5718,7 +5718,7 @@
   if (! dims.all_ones ())
     error ("inputname: N must be a scalar index");
 
-  int n = args(0).yint_value ("inputname: N must be a scalar index");
+  int n = args(0).strict_int_value ("inputname: N must be a scalar index");
 
   if (n < 1)
     error ("inputname: N must be a scalar index");
@@ -5726,7 +5726,7 @@
   bool ids_only = true;
 
   if (nargin == 2)
-    ids_only = args(1).ybool_value ("inputname: IDS_ONLY must be a logical value");
+    ids_only = args(1).strict_bool_value ("inputname: IDS_ONLY must be a logical value");
 
   // Use zero-based indexing internally.
   return ovl (interp.inputname (n-1, ids_only));