diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2011-04-11 23:04:28 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2011-04-11 23:04:28 +0000 |
commit | c871172975078e31756588cf9b91bb685cd0f641 (patch) | |
tree | b4982dd4dfa8892ad5977177a2a2ccdc30b9a08c /Lib/tcl | |
parent | 257b75c23c6fccba22f81bbb8210fb2e9d6014cb (diff) | |
download | swig-c871172975078e31756588cf9b91bb685cd0f641.tar.gz |
Apply patch #3284326 to fix some compiler warnings.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12635 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/tcl')
-rw-r--r-- | Lib/tcl/tclinit.swg | 10 |
1 files changed, 5 insertions, 5 deletions
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(); %} |