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

fix long long + apply

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6412 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-10-17 11:36:03 +00:00
commit 3ac9536a83
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Lib/tcl/tcl8.swg
View file

@ -139,13 +139,13 @@
%typemap(out) long long {
char temp[256];
sprintf(temp,"%lld", $1);
sprintf(temp,"%lld", (long long) $1);
Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
}
%typemap(out) unsigned long long {
char temp[256];
sprintf(temp,"%llu", $1);
sprintf(temp,"%llu", (unsigned long long) $1);
Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
}
@ -376,11 +376,9 @@
}
%typemap(varin) SWIGTYPE * {
void *temp;
if (SWIG_ConvertPtr($input,&temp,$1_descriptor, SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK) {
if (SWIG_ConvertPtr($input,(void **)&$1,$1_descriptor, SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK) {
return (char*)"Type error. Expected $1_ltype";
}
$1 = ($1_type) temp;
}
%typemap(varin) void * {