moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Fixed a bug in lape wrapper generation.

This commit is contained in:
Niels 2011-08-03 23:49:54 +02:00
parent 2d9d65000b
commit ecfc435fab
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Projects/lape-wrappers/main.pas
View File

@ -89,7 +89,7 @@ var
p: TCodeParser;
m: TMemoryStream;
a, b, c: TDeclarationArray;
i, ii, iii: Integer;
i, ii, iii, pc: Integer;
s: string;
rutiss,tmp : string;
d: TDeclaration;
@ -138,6 +138,7 @@ begin
s := s+Name.ShortText+'(';
Fail := False;
pc := 0;
b := GetParamDeclarations();
for ii := 0 to High(b) do
begin
@ -158,9 +159,10 @@ begin
for iii := 0 to High(c) do
begin
if (iii+ii> 0) then
if (pc > 0) then
s := s+', ';
s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(iii+ii)+'])^';
s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(pc)+'])^';
Inc(pc);
end;
end;