ports/171208: [patch] lang/itcl -- fix build with Tcl 8.6

[Pietro Cerutti]

>Number:         171208
>Category:       ports
>Synopsis:       [patch] lang/itcl -- fix build with Tcl 8.6
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Fri Aug 31 14:20:12 UTC 2012
>Closed-Date:
>Last-Modified:
>Originator:     Pietro Cerutti
>Release:        
>Organization:
The FreeBSD Project
>Environment:
>Description:
Patch is kind of self-explaining...
>How-To-Repeat:

>Fix:


Patch attached with submission follows:

Index: files/patch-warnings
===================================================================
--- files/patch-warnings	(revision 302796)
+++ files/patch-warnings	(working copy)
@@ -142,12 +142,23 @@
 +    const char **listv;
  
      cmdName = ckalloc((unsigned)strlen(name)+1);
---- generic/itclInt.h	2008-12-15 15:02:58.000000000 -0500
-+++ generic/itclInt.h	2010-01-24 15:15:06.000000000 -0500
-@@ -207,5 +207,5 @@
+--- generic/itclInt.h.orig	2008-12-15 21:02:58.000000000 +0100
++++ generic/itclInt.h	2012-08-31 16:07:23.000000000 +0200
+@@ -63,7 +63,7 @@
+ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
+ #define ERRORLINE(interp) ((interp)->errorLine)
+ #else
+-#define ERRORLINE(interp) (Tcl_GetErrorLine(interp))
++#define ERRORLINE(interp) (Tcl_GetErrorLine((Tcl_Interp *)interp))
+ #endif
+ 
+ #define ITCL_TCL_PRE_8_5 (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 5)
+@@ -206,7 +206,7 @@
+     Tcl_HashEntry entry;
  } ItclVarInHash;
  
 -#define ItclOffset(type, field) ((int) ((char *) &((type *) 0)->field))
 +#define ItclOffset(type, field) ((intptr_t)((char *) &((type *) 0)->field))
  
  #define itclOldRuntime (itclVarFlagOffset!=0)
+ 


>Release-Note:
>Audit-Trail:
>Unformatted: