1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-23 04:23:08 +00:00

- Fix build against Tcl 8.6

PR:		171208
Submitted by:	gahr
Approved by:	maintainer (timeout > 15 days)
This commit is contained in:
Pietro Cerutti 2012-09-18 10:47:02 +00:00
parent ec60016e98
commit ab2321723a
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=304441

View File

@ -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)