Optimise calls to a proc with an empty body

Note that even white space will defeat this optimisation

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 5 insertions, 0 deletions

diff --git a/jim.c b/jim.c
index 0931fa8..b24b805 100644
--- a/jim.c
+++ b/jim.c
@@ -10500,6 +10500,11 @@ static int JimCallProcedure(Jim_Interp *interp, Jim_Cmd *cmd, int argc, Jim_Obj
         return JIM_ERR;
     }
 
+    if (Jim_Length(cmd->u.proc.bodyObjPtr) == 0) {
+        /* Optimise for procedure with no body - useful for optional debugging */
+        return JIM_OK;
+    }
+
     /* Check if there are too nested calls */
     if (interp->framePtr->level == interp->maxCallFrameDepth) {
         Jim_SetResultString(interp, "Too many nested calls. Infinite recursion?", -1);