diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:45:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:45:26 (GMT) |
| commit | f70e1f98b3e5235a48e0fbea21515ed7e277e6cd (patch) | |
| tree | 133785f8752974af168c2051003c99df65306c06 /generic/tclAssembly.c | |
| parent | fe00b6dcf66b299d9ea42fa1f9a7282c6475159c (diff) | |
| parent | 3fc1392c92078e35e6a35efc90ce598c1c2fc192 (diff) | |
| download | tcl-f70e1f98b3e5235a48e0fbea21515ed7e277e6cd.zip tcl-f70e1f98b3e5235a48e0fbea21515ed7e277e6cd.tar.gz tcl-f70e1f98b3e5235a48e0fbea21515ed7e277e6cd.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 55fde66..605758b 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -815,7 +815,7 @@ TclNRAssembleObjCmd( Tcl_AddErrorInfo(interp, "\n (\""); Tcl_AppendObjToErrorInfo(interp, objv[0]); Tcl_AddErrorInfo(interp, "\" body, line "); - backtrace = Tcl_NewWideIntObj(Tcl_GetErrorLine(interp)); + TclNewIntObj(backtrace, Tcl_GetErrorLine(interp)); Tcl_AppendObjToErrorInfo(interp, backtrace); Tcl_AddErrorInfo(interp, ")"); return TCL_ERROR; @@ -4270,7 +4270,7 @@ AddBasicBlockRangeToErrorInfo( Tcl_Obj* lineNo; /* Line number in the source */ Tcl_AddErrorInfo(interp, "\n in assembly code between lines "); - lineNo = Tcl_NewWideIntObj(bbPtr->startLine); + TclNewIntObj(lineNo, bbPtr->startLine); Tcl_IncrRefCount(lineNo); Tcl_AppendObjToErrorInfo(interp, lineNo); Tcl_AddErrorInfo(interp, " and "); |