diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:27:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:27:44 (GMT) |
commit | bc10bf6d03a6c8685c64e36a6095e289e2b1ef33 (patch) | |
tree | d560f690b9bdd6294623904e6273d37b937a872e /generic/tclDisassemble.c | |
parent | 32975bd346263a3ab1f6bcf46adadfdddd3ffe03 (diff) | |
parent | e14285c3a1d7dd2d7407fda5a5c841ccb5cae488 (diff) | |
download | tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.zip tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.tar.gz tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.tar.bz2 |
Change version number of http package from 2.9.5 -> 2.10.0a1, since it's different from the 2.9.5 version in Tcl 8.6.x.
Use "$idx >= 0" check in stead of "$idx > -1" everywhere.
Diffstat (limited to 'generic/tclDisassemble.c')
-rw-r--r-- | generic/tclDisassemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index 379b427..e066adf 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -284,7 +284,7 @@ DisassembleByteCodeObj( PrintSourceToObj(bufferObj, codePtr->source, TclMin(codePtr->numSrcBytes, 55)); GetLocationInformation(codePtr->procPtr, &fileObj, &line); - if (line > -1 && fileObj != NULL) { + if (line >= 0 && fileObj != NULL) { Tcl_AppendPrintfToObj(bufferObj, "\n File \"%s\" Line %d", Tcl_GetString(fileObj), line); } @@ -1237,7 +1237,7 @@ DisassembleByteCodeAsDicts( Tcl_NewIntObj(codePtr->maxStackDepth)); Tcl_DictObjPut(NULL, description, Tcl_NewStringObj("exceptdepth", -1), Tcl_NewIntObj(codePtr->maxExceptDepth)); - if (line > -1) { + if (line >= 0) { Tcl_DictObjPut(NULL, description, Tcl_NewStringObj("initiallinenumber", -1), Tcl_NewIntObj(line)); |