Blob Blame History Raw
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: