Optimisation for Jim_GetWideExpr()

If the expression is a simple integer, use it as-is rather
than converting to an expression and evaluating.

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

1 files changed, 4 insertions, 0 deletions

diff --git a/jim.c b/jim.c
index 68a703e..fba93cb 100644
--- a/jim.c
+++ b/jim.c
@@ -6102,6 +6102,10 @@ int Jim_GetWide(Jim_Interp *interp, Jim_Obj *objPtr, jim_wide * widePtr)
 int Jim_GetWideExpr(Jim_Interp *interp, Jim_Obj *objPtr, jim_wide * widePtr)
 {
     int ret = JIM_OK;
+    /* As an optimisation, try to convert to int first */
+    if (objPtr->typePtr == &sourceObjType || objPtr->typePtr == NULL) {
+        SetIntFromAny(interp, objPtr, 0);
+    }
     if (objPtr->typePtr == &intObjType) {
         *widePtr = JimWideValue(objPtr);
     }