diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-30 14:32:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-30 14:32:52 (GMT) |
| commit | ca470c3d4eeb58156583417df4011087612bb186 (patch) | |
| tree | bd312f61e477f418c4c7d6a2836b885c904969f3 /generic/tclAssembly.c | |
| parent | aad24c7ffcbdb7271ba73f1548b5be00185df1b2 (diff) | |
| download | tcl-ca470c3d4eeb58156583417df4011087612bb186.zip tcl-ca470c3d4eeb58156583417df4011087612bb186.tar.gz tcl-ca470c3d4eeb58156583417df4011087612bb186.tar.bz2 | |
more progress in code simplifications
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 4c5ae68..c7ded6e 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) { - TclSetLongObj(lineNo, bbPtr->successor1->startLine); + TclSetWideIntObj(lineNo, bbPtr->successor1->startLine); Tcl_AppendObjToErrorInfo(interp, lineNo); } else { Tcl_AddErrorInfo(interp, "end of assembly code"); |