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

usage_func() fix + CHANGES.current entry to explain my past few commits.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10749 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Robert Stone 2008-08-09 23:57:55 +00:00
commit 3ecb83fc0b
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGES.current
View file

@ -1,6 +1,9 @@
Version 1.3.37 (in progress) Version 1.3.37 (in progress)
============================= =============================
2008-08-09: talby
[Perl5] Unify Perl and C portions of constructor wrappers.
2008-08-02: wuzzeb 2008-08-02: wuzzeb
[Chicken,Allegro] Commit Patch 2019314 [Chicken,Allegro] Commit Patch 2019314
Fixes a build error in chicken, and several build errors and other errors Fixes a build error in chicken, and several build errors and other errors

7
Source/Modules/perl5.cxx
View file

@ -619,7 +619,7 @@ public:
Printf(f->code, " if (items < %d) {\n", Printf(f->code, " if (items < %d) {\n",
num_required + num_implicits); num_required + num_implicits);
} }
Printf(f->code, " SWIG_croak(\"Usage: %s\");\n", usage_func(Char(iname), d, outer)); Printf(f->code, " SWIG_croak(\"Usage: %s\");\n", usage_func(Char(iname), d, outer, l));
Printf(f->code, "}\n"); Printf(f->code, "}\n");
if (num_implicits) { if (num_implicits) {
@ -1073,7 +1073,7 @@ public:
/* ------------------------------------------------------------ /* ------------------------------------------------------------
* usage_func() * usage_func()
* ------------------------------------------------------------ */ * ------------------------------------------------------------ */
char *usage_func(char *iname, SwigType *, ParmList *l) { char *usage_func(char *iname, SwigType *, ParmList *il, ParmList *l) {
static String *temp = 0; static String *temp = 0;
Parm *p; Parm *p;
int i; int i;
@ -1084,6 +1084,9 @@ public:
Printf(temp, "%s(", iname); Printf(temp, "%s(", iname);
i = 0; i = 0;
/* Print implicit parameters */
for(p = il; p; p = nextSibling(p))
Printv(temp, (i > 0 ? "," : ""), Getattr(p, "name"), NIL);
/* Now go through and print normal parameters */ /* Now go through and print normal parameters */
p = l; p = l;
while (p != 0) { while (p != 0) {