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

fix some small thing

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@11977 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Baozeng Ding 2010-04-04 02:20:29 +00:00
commit 38f4edcdac
3 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Source/Modules/scilab.cxx
View file

@ -254,8 +254,10 @@ public:
Replaceall(tm, "$result", "result");
/* There are more than one output */
if (out_required > 0)
if (out_required > 0) {
Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
Printf(f->code, "iOutNum ++;\niVarOut ++;\n");
}
Printf(f->code, "%s\n", tm);
if (strlen(Char(tm)) != 0)
out_required ++;
@ -268,8 +270,10 @@ public:
String *outarg = NewString("");
for (p = l; p;) {
if ((tm = Getattr(p, "tmap:argout"))) {
if (out_required > 0)
Printf(f->code,"iOutNum ++;\niVarOut ++;\n");
if (out_required > 0) {
Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
Printf(f->code,"iOutNum ++;\niVarOut ++;\n");
}
Printv(outarg, tm, "\n", NIL);
p = Getattr(p, "tmap:argout:next");
out_required ++;