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

Fixed [ 787432 ] long param handled as int

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4996 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-08-15 17:47:33 +00:00
commit 2292d549fd
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Lib/tcl/swigtcl8.swg
View file

@ -365,7 +365,8 @@ SWIG_GetConstant(const char *key) {
SWIGRUNTIME(int) SWIGRUNTIME(int)
SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...) SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...)
{ {
int argno = 0, opt = 0, tempi; int argno = 0, opt = 0;
long tempi;
double tempd; double tempd;
const char *c; const char *c;
va_list ap; va_list ap;
@ -402,7 +403,7 @@ SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fm
case 'l': case 'L': case 'l': case 'L':
case 'h': case 'H': case 'h': case 'H':
case 'b': case 'B': case 'b': case 'B':
if (Tcl_GetIntFromObj(interp,obj,&tempi) != TCL_OK) goto argerror; if (Tcl_GetLongFromObj(interp,obj,&tempi) != TCL_OK) goto argerror;
if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = tempi; if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = tempi;
else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = tempi; else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = tempi;
else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = tempi; else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = tempi;