components/sysutils/environment-modules/patches/01-tcl.patch

   1 --- modules-3.2.10/cmdModule.c.orig     Sun Nov  5 15:47:54 2017
   2 +++ modules-3.2.10/cmdModule.c  Sun Nov  5 15:50:04 2017
   3 @@ -56,7 +56,11 @@
   4  /**                                  MACROS                                 **/
   5  /** ************************************************************************ **/
   6
   7 -/** not applicable **/
   8 +/** For Tcl < 8.6 compatibility **/
   9 +#if (TCL_MAJOR_VERSION < 8) || (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
  10 +#define Tcl_GetErrorLine(interp) (interp->errorLine)
  11 +#define Tcl_SetErrorLine(interp,lineNum) (interp->errorLine = lineNum)
  12 +#endif
  13
  14  /** ************************************************************************ **/
  15  /**                                LOCAL DATA                               **/
  16 @@ -640,8 +644,8 @@
  17              case TCL_OK:       gotPartial = 0;
  18                                 continue;       /** while **/
  19
  20 -            case TCL_ERROR:    interp->errorLine = ((linenum-1)-gotPartial) +
  21 -                                   interp->errorLine;
  22 +            case TCL_ERROR:    Tcl_SetErrorLine(interp, ((linenum-1)-gotPartial) +
  23 +                                   Tcl_GetErrorLine(interp));
  24                                 /* FALLTHROUGH */
  25
  26              case TCL_LEVEL0_RETURN: