commit 2d18789aa67cc60072ea0cf21811c403fa0b2c7b
author Shane Harper <shane@shaneharper.net> Wed Mar 12 21:12:12 2025 +0100
committer Christian Brabandt <cb@256bit.org> Wed Mar 12 21:12:12 2025 +0100
tree 613c3163a49e59acdf512f7a4838a983730cda3b
parent 7db96134c2bfb404f7fdbc3b1ce5e4e62b194f72

patch 9.1.1195: inside try-block: fn body executed with default arg undefined

Problem:  inside try-block: fn body executed when default arg is
          undefined
Solution: When inside a try-block do not execute function body after an
          error in evaluating a default argument expression
          (Shane Harper).

closes: #16865

Signed-off-by: Shane Harper <shane@shaneharper.net>
Signed-off-by: Christian Brabandt <cb@256bit.org>

src/userfunc.c

diff --git a/src/userfunc.c b/src/userfunc.c
index 531b67a..d8d7014 100644
--- a/src/userfunc.c
+++ b/src/userfunc.c
@@ -3275,7 +3275,7 @@
     save_did_emsg = did_emsg;
     did_emsg = FALSE;
 
-    if (default_arg_err && (fp->uf_flags & FC_ABORT))
+    if (default_arg_err && (fp->uf_flags & FC_ABORT || trylevel > 0 ))
     {
 	did_emsg = TRUE;
 	retval = FCERR_FAILED;