diff options
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5c5bc64..0fc8e31 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -5968,6 +5968,14 @@ TclNREvalObjEx( int result; /* + * Shortcut for empty scripts; avoid computing a string rep + */ + + if (objPtr->bytes && (*objPtr->bytes == '\0')) { + return TCL_OK; + } + + /* * This function consists of three independent blocks for: direct * evaluation of canonical lists, compilation and bytecode execution and * finally direct evaluation. Precisely one of these blocks will be run. |