forked from Lainports/freebsd-ports
73 lines
2.6 KiB
Text
73 lines
2.6 KiB
Text
Index: generic/tclExtdInt.h
|
|
===================================================================
|
|
RCS file: /cvsroot/tclx/tclx/generic/tclExtdInt.h,v
|
|
retrieving revision 1.7
|
|
retrieving revision 1.8
|
|
diff -U2 -r1.7 -r1.8
|
|
--- generic/tclExtdInt.h 12 Jul 2005 19:03:15 -0000 1.7
|
|
+++ generic/tclExtdInt.h 15 Dec 2008 20:00:27 -0000 1.8
|
|
@@ -13,5 +13,5 @@
|
|
* implied warranty.
|
|
*-----------------------------------------------------------------------------
|
|
- * $Id: tclExtdInt.h,v 1.7 2005/07/12 19:03:15 hobbs Exp $
|
|
+ * $Id: tclExtdInt.h,v 1.8 2008/12/15 20:00:27 andreas_kupries Exp $
|
|
*-----------------------------------------------------------------------------
|
|
*/
|
|
@@ -186,4 +186,13 @@
|
|
|
|
/*
|
|
+ * Handle hiding of errorLine in 8.6
|
|
+ */
|
|
+#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
|
|
+#define ERRORLINE(interp) ((interp)->errorLine)
|
|
+#else
|
|
+#define ERRORLINE(interp) (Tcl_GetErrorLine(interp))
|
|
+#endif
|
|
+
|
|
+/*
|
|
* Callback type for walking directories.
|
|
*/
|
|
Index: generic/tclXgeneral.c
|
|
===================================================================
|
|
RCS file: /cvsroot/tclx/tclx/generic/tclXgeneral.c,v
|
|
retrieving revision 1.3
|
|
retrieving revision 1.4
|
|
diff -U2 -r1.3 -r1.4
|
|
--- generic/tclXgeneral.c 4 Apr 2002 06:09:05 -0000 1.3
|
|
+++ generic/tclXgeneral.c 15 Dec 2008 20:00:27 -0000 1.4
|
|
@@ -13,5 +13,5 @@
|
|
* implied warranty.
|
|
*-----------------------------------------------------------------------------
|
|
- * $Id: tclXgeneral.c,v 1.3 2002/04/04 06:09:05 hobbs Exp $
|
|
+ * $Id: tclXgeneral.c,v 1.4 2008/12/15 20:00:27 andreas_kupries Exp $
|
|
*-----------------------------------------------------------------------------
|
|
*/
|
|
@@ -406,5 +406,5 @@
|
|
|
|
sprintf (buf, "\n (\"loop\" body line %d)",
|
|
- interp->errorLine);
|
|
+ ERRORLINE(interp));
|
|
Tcl_AddErrorInfo (interp, buf);
|
|
}
|
|
Index: generic/tclXlib.c
|
|
===================================================================
|
|
RCS file: /cvsroot/tclx/tclx/generic/tclXlib.c,v
|
|
retrieving revision 1.4
|
|
retrieving revision 1.5
|
|
diff -U2 -r1.4 -r1.5
|
|
--- generic/tclXlib.c 24 Mar 2005 05:04:38 -0000 1.4
|
|
+++ generic/tclXlib.c 15 Dec 2008 20:00:27 -0000 1.5
|
|
@@ -13,5 +13,5 @@
|
|
* implied warranty.
|
|
*-----------------------------------------------------------------------------
|
|
- * $Id: tclXlib.c,v 1.4 2005/03/24 05:04:38 hobbs Exp $
|
|
+ * $Id: tclXlib.c,v 1.5 2008/12/15 20:00:27 andreas_kupries Exp $
|
|
*-----------------------------------------------------------------------------
|
|
*/
|
|
@@ -240,5 +240,5 @@
|
|
buf = ckalloc (strlen (fileName) + 64);
|
|
sprintf (buf, "\n (file \"%s\" line %d)", fileName,
|
|
- interp->errorLine);
|
|
+ ERRORLINE(interp));
|
|
Tcl_AddErrorInfo (interp, buf);
|
|
ckfree (buf);
|