ports/171208: [patch] lang/itcl -- fix build with Tcl 8.6
Pietro Cerutti
gahr at FreeBSD.org
Fri Aug 31 14:20:13 UTC 2012
>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:
More information about the freebsd-ports-bugs
mailing list