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

Applied patch #1011604 submitted by Charles Schwieters. Fix for 64 bit tcl interpreters.

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

4
Source/Modules/tcl8.cxx
View file

@ -342,7 +342,7 @@ public:
} }
Putc('o',argstr); Putc('o',argstr);
Printf(args,",0"); Printf(args,",NULL");
if (i >= num_required) { if (i >= num_required) {
Printf(incode, "if (objc > %d) {\n", i+1); Printf(incode, "if (objc > %d) {\n", i+1);
} }
@ -357,7 +357,7 @@ public:
SwigType *lt = SwigType_ltype(pt); SwigType *lt = SwigType_ltype(pt);
SwigType_remember(pt); SwigType_remember(pt);
if (Cmp(lt,"p.void") == 0) { if (Cmp(lt,"p.void") == 0) {
Printf(args,",0"); Printf(args,",NULL");
} else { } else {
Printf(args,",SWIGTYPE%s", SwigType_manglestr(pt)); Printf(args,",SWIGTYPE%s", SwigType_manglestr(pt));
} }