moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-26 00:11:51 -05:00
Code Issues Releases Wiki Activity

Fixed a bug in lape wrapper generation.

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