diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:54:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:54:58 (GMT) |
commit | 6c0f70fb0b15d3086c2c9da5be8b8543ca912f60 (patch) | |
tree | d4b7cdffa9df10fb7bb9210ed9ba5d82e85deff7 /generic/tclAssembly.c | |
parent | 115a3559d776453b8c58512f151abb875de87f74 (diff) | |
parent | f70e1f98b3e5235a48e0fbea21515ed7e277e6cd (diff) | |
download | tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.zip tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.tar.gz tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.tar.bz2 |
Merge 8.7
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 b1bd848..4783811 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -813,7 +813,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; @@ -4268,7 +4268,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 "); |