|
Lines 142-153
Link Here
|
| 142 |
+ const char **listv; |
142 |
+ const char **listv; |
| 143 |
|
143 |
|
| 144 |
cmdName = ckalloc((unsigned)strlen(name)+1); |
144 |
cmdName = ckalloc((unsigned)strlen(name)+1); |
| 145 |
--- generic/itclInt.h 2008-12-15 15:02:58.000000000 -0500 |
145 |
--- generic/itclInt.h.orig 2008-12-15 21:02:58.000000000 +0100 |
| 146 |
+++ generic/itclInt.h 2010-01-24 15:15:06.000000000 -0500 |
146 |
+++ generic/itclInt.h 2012-08-31 16:07:23.000000000 +0200 |
| 147 |
@@ -207,5 +207,5 @@ |
147 |
@@ -63,7 +63,7 @@ |
|
|
148 |
#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6) |
| 149 |
#define ERRORLINE(interp) ((interp)->errorLine) |
| 150 |
#else |
| 151 |
-#define ERRORLINE(interp) (Tcl_GetErrorLine(interp)) |
| 152 |
+#define ERRORLINE(interp) (Tcl_GetErrorLine((Tcl_Interp *)interp)) |
| 153 |
#endif |
| 154 |
|
| 155 |
#define ITCL_TCL_PRE_8_5 (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 5) |
| 156 |
@@ -206,7 +206,7 @@ |
| 157 |
Tcl_HashEntry entry; |
| 148 |
} ItclVarInHash; |
158 |
} ItclVarInHash; |
| 149 |
|
159 |
|
| 150 |
-#define ItclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) |
160 |
-#define ItclOffset(type, field) ((int) ((char *) &((type *) 0)->field)) |
| 151 |
+#define ItclOffset(type, field) ((intptr_t)((char *) &((type *) 0)->field)) |
161 |
+#define ItclOffset(type, field) ((intptr_t)((char *) &((type *) 0)->field)) |
| 152 |
|
162 |
|
| 153 |
#define itclOldRuntime (itclVarFlagOffset!=0) |
163 |
#define itclOldRuntime (itclVarFlagOffset!=0) |
|
|
164 |
|