diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
| commit | 40ee63b6ff6901dea05f4cef62d51bfa188630ed (patch) | |
| tree | 51ec8a3c9ae020781cd27b8c0a4f94ddbb6fc942 /generic/tclAssembly.c | |
| parent | 38670f6730f5eb4274e4abe14a00c8ccaf3f176a (diff) | |
| parent | 6f905e1f0fa598055c516aa33529d41d2fadbe4a (diff) | |
| download | tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.zip tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.gz tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.bz2 | |
merge trunk
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 5f8c0ba..f58f871 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -4247,7 +4247,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"); |