From: William F. <wsf...@us...> - 2005-05-20 23:48:32
|
Update of /cvsroot/swig/SWIG/Lib/tcl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31457/Lib/tcl Modified Files: tcl8.swg Log Message: tcl long long overloading fix - bug #1191835, patch from Jeroen Dobbelaere Index: tcl8.swg =================================================================== RCS file: /cvsroot/swig/SWIG/Lib/tcl/tcl8.swg,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** tcl8.swg 1 Feb 2005 00:08:20 -0000 1.30 --- tcl8.swg 20 May 2005 23:48:23 -0000 1.31 *************** *** 482,489 **** 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 & --- 482,487 ---- *************** *** 494,497 **** --- 492,504 ---- } + %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, |