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:

1 files changed, 40 insertions, 1 deletions

diff --git a/generic/tclResult.c b/generic/tclResult.c
index 40f0cba..8e85035 100644
--- a/generic/tclResult.c
+++ b/generic/tclResult.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclResult.c,v 1.51 2008/10/26 18:34:04 dkf Exp $
+ * RCS: @(#) $Id: tclResult.c,v 1.52 2008/12/02 19:40:41 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -1084,6 +1084,45 @@ Tcl_SetObjErrorCode(
 /*
  *----------------------------------------------------------------------
  *
+ * Tcl_GetErrorLine --
+ *
+ * Results:
+ *
+ * Side effects:
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetErrorLine(
+    Tcl_Interp *interp)
+{
+    return ((Interp *) interp)->errorLine;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetErrorLine --
+ *
+ * Results:
+ *
+ * Side effects:
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_SetErrorLine(
+    Tcl_Interp *interp,
+    int value)
+{
+    ((Interp *) interp)->errorLine = value;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * GetKeys --
  *
  *	Returns a Tcl_Obj * array of the standard keys used in the return