Subject: test Tcl_GetErrorLine() forwards/backwards compatibility in pkgb.so as well

From: "jan.nijtmans" <[email-masked]>
Date: Wed, 2 Jan 2013 14:12:40 +0000

---
 unix/dltest/pkgb.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c
index 0bff98b..99f189f 100644
--- a/unix/dltest/pkgb.c
+++ b/unix/dltest/pkgb.c
@@ -39,6 +39,10 @@ static int    Pkgb_UnsafeObjCmd _ANSI_ARGS_((ClientData clientData,
  *----------------------------------------------------------------------
  */
 
+#ifndef Tcl_GetErrorLine
+#   define Tcl_GetErrorLine(interp) ((interp)->errorLine)
+#endif
+
 static int
 Pkgb_SubObjCmd(dummy, interp, objc, objv)
     ClientData dummy;		/* Not used. */
@@ -54,6 +58,9 @@ Pkgb_SubObjCmd(dummy, interp, objc, objv)
     }
     if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK)
 	    || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) {
+	char buf[TCL_INTEGER_SPACE];
+	sprintf(buf, "%d", Tcl_GetErrorLine(interp));
+	Tcl_AppendResult(interp, " in line: ", buf, NULL);
 	return TCL_ERROR;
     }
     Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second));
-- 
cgit v0.12