diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 13:15:02 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 13:15:02 (GMT) |
commit | 5f2f09ff4ba7c6ee161dd40fb1b18e8d4ea61581 (patch) | |
tree | 59ae004fee9c0ed91fd244d4c6534c647db748d8 /generic/tclCompile.c | |
parent | e0977e799934f1579c1eaf677439a2a1d20c4adb (diff) | |
parent | 3d40f7759711c4b7d96527d9e17715064fafe7ee (diff) | |
download | tcl-5f2f09ff4ba7c6ee161dd40fb1b18e8d4ea61581.zip tcl-5f2f09ff4ba7c6ee161dd40fb1b18e8d4ea61581.tar.gz tcl-5f2f09ff4ba7c6ee161dd40fb1b18e8d4ea61581.tar.bz2 |
Merge 8.6. Use Tcl_NewBooleanObj for booleans; we should say what we mean
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 7ca9e77..3e77231 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2178,7 +2178,7 @@ TclCompileScript( if (iPtr->numLevels / 5 > iPtr->maxNestingDepth / 4) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "too many nested compilations (infinite loop?)", -1)); - Tcl_SetErrorCode(interp, "TCL", "LIMIT", "STACK", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "LIMIT", "STACK", (char *)NULL); TclCompileSyntaxError(interp, envPtr); return; } |