diff options
author | oharboe <oharboe> | 2009-08-16 11:28:04 +0000 |
---|---|---|
committer | oharboe <oharboe> | 2009-08-16 11:28:04 +0000 |
commit | 808b8d47019d86752476027832bf47b25d0863ee (patch) | |
tree | efeea93a5f54eae926055b0be6f99ed646c68b1d | |
parent | f754beb04b7c2aa88422aa42c6353f997bf523bc (diff) | |
download | jimtcl-808b8d47019d86752476027832bf47b25d0863ee.zip jimtcl-808b8d47019d86752476027832bf47b25d0863ee.tar.gz jimtcl-808b8d47019d86752476027832bf47b25d0863ee.tar.bz2 |
2009-08-16 Steve Bennett <steveb@workware.net.au>
* jim.c: Some recursion in unknown is OK, just not infinite recursion.
-rw-r--r-- | ChangeLog | 1 | ||||
-rw-r--r-- | jim.c | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -1,5 +1,6 @@ 2009-08-16 Steve Bennett <steveb@workware.net.au> + * jim.c: Some recursion in unknown is OK, just not infinite recursion. * jimsh.c: $argv0 should be the name of the script * jim.c: Should be able to compare strings for order in expr * jim.c: 'unset ::var' to unset a global var. @@ -8348,10 +8348,10 @@ static int JimUnknown(Jim_Interp *interp, int argc, Jim_Obj *const *argv) Jim_Obj **v, *sv[JIM_EVAL_SARGV_LEN]; int retCode; - /* If JimUnknown() is recursively called (e.g. error in the unknown proc, + /* If JimUnknown() is recursively called too many times... * done here */ - if (interp->unknown_called) { + if (interp->unknown_called > 50) { return JIM_ERR; } |