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

implement the rank-cast dispatch mechanism, which is now the default behavior in perl

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8045 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-12-23 00:07:49 +00:00
commit c0da62d128
4 changed files with 230 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Source/Modules/perl5.cxx
View file

@ -747,7 +747,7 @@ public:
} else if (!Getattr(n,"sym:nextSibling")) {
/* Generate overloaded dispatch function */
int maxargs, ii;
String *dispatch = Swig_overload_dispatch(n,"(*PL_markstack_ptr++);SWIG_CALLXS(%s); return;",&maxargs);
String *dispatch = Swig_overload_dispatch_cast(n,"(*PL_markstack_ptr++);SWIG_CALLXS(%s); return;",&maxargs);
/* Generate a dispatch wrapper for all overloaded functions */