diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-12 11:01:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-12 11:01:18 (GMT) |
| commit | eaefc3bdf38a0256fca08f8d0b9a2a137cf8706e (patch) | |
| tree | 8791d3f94e84403a01f4da821de31de4e696ad61 /generic/tclCompile.c | |
| parent | ec00b7a363093fe0fff1b2e93a91091a7a6b06c9 (diff) | |
| download | tcl-eaefc3bdf38a0256fca08f8d0b9a2a137cf8706e.zip tcl-eaefc3bdf38a0256fca08f8d0b9a2a137cf8706e.tar.gz tcl-eaefc3bdf38a0256fca08f8d0b9a2a137cf8706e.tar.bz2 | |
Code cleanup: Add some initialization to "Tcl_UniChar ch" declaration, making the chance higher that 4-byte UTF-8 sequences are handled more reasonable internally (see: [https://core.tcl-lang.org/tk/tktview?name=a179564826|a179564826]).
Use more TclGetString() in stead of Tcl_GetString(), which is slightly more efficient.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 680ab66..41c81af 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2126,7 +2126,7 @@ TclCompileScript( if (envPtr->iPtr == NULL) { Tcl_Panic("TclCompileScript() called on uninitialized CompileEnv"); } - /* + /* * Check depth to avoid overflow of the C execution stack by too many * nested calls of TclCompileScript (considering interp recursionlimit). * Factor 5/4 (1.25) is used to avoid too mistaken limit recognition @@ -2218,7 +2218,7 @@ TclCompileScript( continue; } - /* + /* * Avoid stack exhaustion by too many nested calls of TclCompileScript * (considering interp recursionlimit). */ |