diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
| commit | 084c8b2259399cfa7c22283d77abb1820207afad (patch) | |
| tree | 88e761607718492f5525bd50f6afbb0fa84da34d /generic/tclAssembly.c | |
| parent | 75196e7136a3ae04c019ee0dfa18309ff741cf86 (diff) | |
| download | tcl-084c8b2259399cfa7c22283d77abb1820207afad.zip tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.gz tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.bz2 | |
Eliminate internal use of TclNewBooleanObj()/TclSetBooleanObj()/TclSetIntObj(). Replace Tcl_DbNewBooleanObj() with trivial macro.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 2212d1c..8c6f81a 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -4246,7 +4246,7 @@ AddBasicBlockRangeToErrorInfo( Tcl_AppendObjToErrorInfo(interp, lineNo); Tcl_AddErrorInfo(interp, " and "); if (bbPtr->successor1 != NULL) { - Tcl_SetIntObj(lineNo, bbPtr->successor1->startLine); + TclSetLongObj(lineNo, bbPtr->successor1->startLine); Tcl_AppendObjToErrorInfo(interp, lineNo); } else { Tcl_AddErrorInfo(interp, "end of assembly code"); |