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

In the generated GOOPS code, don't create methods that would not

Browse source 
specialize any arguments; simply re-export the primitive functions.
(This is a performance optimization which reduces load time and
execution time.)


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5886 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2004-04-26 14:05:20 +00:00
commit 0b68c967cb
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Source/Modules/guile.cxx
View file

@ -711,6 +711,7 @@ public:
String *overname = 0;
int args_passed_as_array = 0;
int scheme_argnum = 0;
bool any_specialized_arg = false;
// Make a wrapper name for this
String *wname = Swig_name_wrapper(iname);
@ -836,6 +837,7 @@ public:
/* do input conversion */
if (goopsclassname) {
Printv(method_signature, " (", argname, " ", goopsclassname, ")", NIL);
any_specialized_arg = true;
} else {
Printv(method_signature, " ", argname, NIL);
}
@ -1132,7 +1134,14 @@ public:
Printv(primitive_name, proc_name, NIL);
Replaceall(method_signature, "_", "-");
Replaceall(primitive_args, "_", "-");
if (numreq == numargs) {
if (!any_specialized_arg) {
/* If there would not be any specialized argument in
the method declaration, we simply re-export the
function. This is a performance optimization. */
Printv(method_def, "(define ", goops_name, " ",
primitive_name, ")\n", NIL);
}
else if (numreq == numargs) {
Printv(method_def, "(define-method (", goops_name, method_signature, ")\n", NIL);
Printv(method_def, " (", primitive_name, primitive_args, "))\n", NIL);
}