diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-12-02 19:40:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-12-02 19:40:40 (GMT) |
| commit | 46ba97a82bfb00034073d7334903cc1417a836dc (patch) | |
| tree | 6f599afa8fd14946dfce722886ee48d15e2f5046 /generic/tclCmdAH.c | |
| parent | 2dfd8ade3922490eb358d6d3d64d6f6f19c5192c (diff) | |
| download | tcl-46ba97a82bfb00034073d7334903cc1417a836dc.zip tcl-46ba97a82bfb00034073d7334903cc1417a836dc.tar.gz tcl-46ba97a82bfb00034073d7334903cc1417a836dc.tar.bz2 | |
TIP #336 IMPLEMENTATION
* generic/tcl.decls: New routines Tcl_(Get|Set)ErrorLine.
* generic/tcl.h: Dropped default access to interp->errorLine.
* generic/tclCmdAH.c: Restore it with -DUSE_INTERP_ERRORLINE.
* generic/tclCmdMZ.c: Updated callers.
* generic/tclDictObj.c:
* generic/tclIOUtil.c:
* generic/tclNamesp.c:
* generic/tclOOBasic.c:
* generic/tclOODefinedCmds.c:
* generic/tclOOMethod.c:
* generic/tclProc.c:
* generic/tclResult.c:
* generic/tclDecls.h: make genstubs
* generic/tclStubInit.c:
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 19ef57e..ead9384 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.110 2008/11/29 18:17:20 dkf Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.111 2008/12/02 19:40:41 dgp Exp $ */ #include "tclInt.h" @@ -221,7 +221,7 @@ Tcl_CaseObjCmd( if (result == TCL_ERROR) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (\"%.50s\" arm line %d)", - TclGetString(armPtr), interp->errorLine)); + TclGetString(armPtr), Tcl_GetErrorLine(interp))); } return result; } @@ -312,7 +312,7 @@ CatchObjCmdCallback( if (rewind || Tcl_LimitExceeded(interp)) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( - "\n (\"catch\" body line %d)", interp->errorLine)); + "\n (\"catch\" body line %d)", Tcl_GetErrorLine(interp))); return TCL_ERROR; } @@ -702,7 +702,7 @@ EvalCmdErrMsg( { if (result == TCL_ERROR) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( - "\n (\"eval\" body line %d)", interp->errorLine)); + "\n (\"eval\" body line %d)", Tcl_GetErrorLine(interp))); } return result; } @@ -1894,7 +1894,8 @@ TclNRForIterCallback( Tcl_ResetResult(interp); break; case TCL_ERROR: - Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(msg, interp->errorLine)); + Tcl_AppendObjToErrorInfo(interp, + Tcl_ObjPrintf(msg, Tcl_GetErrorLine(interp))); } return result; } @@ -2100,7 +2101,7 @@ ForeachLoopStep( goto done; case TCL_ERROR: Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( - "\n (\"foreach\" body line %d)", interp->errorLine)); + "\n (\"foreach\" body line %d)", Tcl_GetErrorLine(interp))); default: goto done; } |