summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--CHANGES.current3
-rw-r--r--Lib/tcl/tclinit.swg10
2 files changed, 8 insertions, 5 deletions
diff --git a/CHANGES.current b/CHANGES.current
index 735f33adb..b484db535 100644
--- a/CHANGES.current
+++ b/CHANGES.current
@@ -4,6 +4,9 @@ See the RELEASENOTES file for a summary of changes in each release.
Version 2.0.4 (in progress)
===========================
+2011-04-11: wsfulton
+ [Tcl] Apply patch #3284326 from Colin McDonald to fix some compiler warnings.
+
2011-04-10: klickverbot
[D] nspace: Fixed referencing types in the root namespace when
not in split proxy mode.
diff --git a/Lib/tcl/tclinit.swg b/Lib/tcl/tclinit.swg
index 9b3224104..87e398d91 100644
--- a/Lib/tcl/tclinit.swg
+++ b/Lib/tcl/tclinit.swg
@@ -42,7 +42,7 @@ extern "C" {
SWIGINTERN void
SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
- int i;
+ size_t i;
Tcl_Obj *obj;
if (!swigconstTableinit) {
@@ -70,8 +70,8 @@ SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
/* Create fast method lookup tables */
SWIGINTERN void
-SWIG_Tcl_InstallMethodLookupTables(Tcl_Interp *interp) {
- int i;
+SWIG_Tcl_InstallMethodLookupTables(void) {
+ size_t i;
for (i = 0; i < swig_module.size; ++i) {
swig_type_info *type = swig_module.type_initial[i];
@@ -98,7 +98,7 @@ SWIG_Tcl_InstallMethodLookupTables(Tcl_Interp *interp) {
* -----------------------------------------------------------------------------*/
SWIGEXPORT int SWIG_init(Tcl_Interp *interp) {
- int i;
+ size_t i;
if (interp == 0) return TCL_ERROR;
#ifdef USE_TCL_STUBS
/* (char*) cast is required to avoid compiler warning/error for Tcl < 8.4. */
@@ -135,7 +135,7 @@ SWIGEXPORT int SWIG_init(Tcl_Interp *interp) {
}
SWIG_Tcl_InstallConstants(interp, swig_constants);
- SWIG_Tcl_InstallMethodLookupTables(interp);
+ SWIG_Tcl_InstallMethodLookupTables();
%}