diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2005-05-20 23:51:31 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2005-05-20 23:51:31 +0000 |
commit | b417ef575e7f9b03828b941847f27adeba74cfb5 (patch) | |
tree | 5c619ddf4e5891f3ee0cba778c61ca616e96b9ce /Lib/tcl | |
parent | 6e4f04b393baf1a63d887a9e8ef2d2a0d75800bc (diff) | |
download | swig-b417ef575e7f9b03828b941847f27adeba74cfb5.tar.gz |
tcl long long overloading fix - bug #1191835, patch from Jeroen Dobbelaere
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7202 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/tcl')
-rw-r--r-- | Lib/tcl/tcl8.swg | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Lib/tcl/tcl8.swg b/Lib/tcl/tcl8.swg index 0aa2aa0d6..edeefb7cf 100644 --- a/Lib/tcl/tcl8.swg +++ b/Lib/tcl/tcl8.swg @@ -481,10 +481,8 @@ int, short, long, unsigned int, unsigned short, unsigned long, signed char, unsigned char, - long long, unsigned long long, const int &, const short &, const long &, const unsigned int &, const unsigned short &, const unsigned long &, - const long long &, const unsigned long long &, enum SWIGTYPE, const enum SWIGTYPE &, bool, const bool & { @@ -493,6 +491,15 @@ else $1 = 1; } +%typecheck(SWIG_TYPECHECK_INTEGER) + long long, unsigned long long, + const long long &, const unsigned long long & +{ + Tcl_WideInt tmp; + if (Tcl_GetWideIntFromObj(NULL,$input,&tmp) == TCL_ERROR) $1 = 0; + else $1 = 1; +} + %typecheck(SWIG_TYPECHECK_DOUBLE) float, double, const float &, const double & |