From ecfc435fab34f9c12ef2459141120ac7122ddfd2 Mon Sep 17 00:00:00 2001
From: Niels <niels.a.d@gmail.com>
Date: Wed, 3 Aug 2011 23:49:54 +0200
Subject: [PATCH] Fixed a bug in lape wrapper generation.

---
 Projects/lape-wrappers/main.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Projects/lape-wrappers/main.pas b/Projects/lape-wrappers/main.pas
index 4764568..927dec2 100644
--- a/Projects/lape-wrappers/main.pas
+++ b/Projects/lape-wrappers/main.pas
@@ -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;