28 lines
1.2 KiB
Diff
28 lines
1.2 KiB
Diff
|
diff -up modules-3.2.10/cmdModule.c.tcl86 modules-3.2.10/cmdModule.c
|
||
|
|
--- modules-3.2.10/cmdModule.c.tcl86 2012-11-01 16:02:19.000000000 -0600
|
||
|
|
+++ modules-3.2.10/cmdModule.c 2014-05-27 15:25:50.531554880 -0600
|
||
|
|
@@ -56,7 +56,11 @@ static void *UseId[] = { &UseId, Id };
|
||
|
|
/** MACROS **/
|
||
|
|
/** ************************************************************************ **/
|
||
|
|
|
||
|
|
-/** not applicable **/
|
||
|
|
+/** For Tcl < 8.6 compatibility **/
|
||
|
|
+#if (TCL_MAJOR_VERSION < 8) || (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
|
||
|
|
+#define Tcl_GetErrorLine(interp) (interp->errorLine)
|
||
|
|
+#define Tcl_SetErrorLine(interp,lineNum) (interp->errorLine = lineNum)
|
||
|
|
+#endif
|
||
|
|
|
||
|
|
/** ************************************************************************ **/
|
||
|
|
/** LOCAL DATA **/
|
||
|
|
@@ -640,8 +644,8 @@ int Execute_TclFile( Tcl_Interp *interp
|
||
|
|
case TCL_OK: gotPartial = 0;
|
||
|
|
continue; /** while **/
|
||
|
|
|
||
|
|
- case TCL_ERROR: interp->errorLine = ((linenum-1)-gotPartial) +
|
||
|
|
- interp->errorLine;
|
||
|
|
+ case TCL_ERROR: Tcl_SetErrorLine(interp, ((linenum-1)-gotPartial) +
|
||
|
|
+ Tcl_GetErrorLine(interp));
|
||
|
|
/* FALLTHROUGH */
|
||
|
|
|
||
|
|
case TCL_LEVEL0_RETURN:
|