diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-26 12:32:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-26 12:32:12 (GMT) |
| commit | 6cd01fd0f840eb0ee31a19ddb598ea771faa444d (patch) | |
| tree | 852f901836918a892a26cf3413fdc5ca25e40cf1 /generic/tclAssembly.c | |
| parent | fb10dc69eead85da6836ed1c28ee1269d1738337 (diff) | |
| parent | d20d1e603b71ac5bc0fb1074309917b60609e1b5 (diff) | |
| download | tcl-6cd01fd0f840eb0ee31a19ddb598ea771faa444d.zip tcl-6cd01fd0f840eb0ee31a19ddb598ea771faa444d.tar.gz tcl-6cd01fd0f840eb0ee31a19ddb598ea771faa444d.tar.bz2 | |
Merge core-8-branch. Also some minor performance improvement: Turn Tcl_NewLongObj/Tcl_NewIntObj/Tcl_DBNewLongObj into macro's refering to their WideInt equivalent, since all of those do exactly the same now.
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 0fd7c60..bdca74c 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -4266,7 +4266,7 @@ AddBasicBlockRangeToErrorInfo( Tcl_AppendObjToErrorInfo(interp, lineNo); Tcl_AddErrorInfo(interp, " and "); if (bbPtr->successor1 != NULL) { - TclSetWideObj(lineNo, bbPtr->successor1->startLine); + TclSetIntObj(lineNo, bbPtr->successor1->startLine); Tcl_AppendObjToErrorInfo(interp, lineNo); } else { Tcl_AddErrorInfo(interp, "end of assembly code"); |