jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tcl long long overloading fix - bug #1191835, patch from Jeroen Dobbelaere

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7202 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-05-20 23:51:31 +00:00
commit c5b8ac0fc7
2 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
SWIG/Examples/test-suite/overload_simple.i
View file

@ -108,6 +108,13 @@ static char *bar(void *) {
}; };
%} %}
%inline %{
void ull() {}
void ull(unsigned long long ull) {}
void ll() {}
void ll(long long ull) {}
%}
%include cmalloc.i %include cmalloc.i
%malloc(void); %malloc(void);

11
SWIG/Lib/tcl/tcl8.swg
View file

@ -481,10 +481,8 @@
int, short, long, int, short, long,
unsigned int, unsigned short, unsigned long, unsigned int, unsigned short, unsigned long,
signed char, unsigned char, signed char, unsigned char,
long long, unsigned long long,
const int &, const short &, const long &, const int &, const short &, const long &,
const unsigned int &, const unsigned short &, const unsigned long &, const unsigned int &, const unsigned short &, const unsigned long &,
const long long &, const unsigned long long &,
enum SWIGTYPE, const enum SWIGTYPE &, enum SWIGTYPE, const enum SWIGTYPE &,
bool, const bool & bool, const bool &
{ {
@ -493,6 +491,15 @@
else $1 = 1; 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) %typecheck(SWIG_TYPECHECK_DOUBLE)
float, double, float, double,
const float &, const double & const float &, const double &