diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-28 00:57:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-28 00:57:04 (GMT) |
| commit | 174560be0971d7eddc16bd56fd6d578186143bac (patch) | |
| tree | ddc0546dab10c8bc2575020750fc67d405b7b617 /generic/tclAssembly.c | |
| parent | 6f6055670dd0d873ec34dcd23ae9f8e282fe60aa (diff) | |
| parent | 2ea70632bbcf5060e5114653d4717480c03c0cee (diff) | |
| download | tcl-174560be0971d7eddc16bd56fd6d578186143bac.zip tcl-174560be0971d7eddc16bd56fd6d578186143bac.tar.gz tcl-174560be0971d7eddc16bd56fd6d578186143bac.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 7833105..c4eeded 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -798,12 +798,10 @@ TclNRAssembleObjCmd( if (codePtr == NULL) { Tcl_AddErrorInfo(interp, "\n (\""); - Tcl_AddErrorInfo(interp, Tcl_GetString(objv[0])); + Tcl_AppendObjToErrorInfo(interp, objv[0]); Tcl_AddErrorInfo(interp, "\" body, line "); backtrace = Tcl_NewIntObj(Tcl_GetErrorLine(interp)); - Tcl_IncrRefCount(backtrace); - Tcl_AddErrorInfo(interp, Tcl_GetString(backtrace)); - Tcl_DecrRefCount(backtrace); + Tcl_AppendObjToErrorInfo(interp, backtrace); Tcl_AddErrorInfo(interp, ")"); return TCL_ERROR; } @@ -4270,11 +4268,11 @@ AddBasicBlockRangeToErrorInfo( Tcl_AddErrorInfo(interp, "\n in assembly code between lines "); lineNo = Tcl_NewIntObj(bbPtr->startLine); Tcl_IncrRefCount(lineNo); - Tcl_AddErrorInfo(interp, Tcl_GetString(lineNo)); + Tcl_AppendObjToErrorInfo(interp, lineNo); Tcl_AddErrorInfo(interp, " and "); if (bbPtr->successor1 != NULL) { Tcl_SetIntObj(lineNo, bbPtr->successor1->startLine); - Tcl_AddErrorInfo(interp, Tcl_GetString(lineNo)); + Tcl_AppendObjToErrorInfo(interp, lineNo); } else { Tcl_AddErrorInfo(interp, "end of assembly code"); } |