From 92944e7b5e942352aab44e1123071a791119b982 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 27 Jul 2022 00:13:37 +0200
Subject: [PATCH] webidl: nicer local var names

---
 packages/webidl/src/webidltopas.pp    | 3 ++-
 packages/webidl/src/webidltopas2js.pp | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/webidl/src/webidltopas.pp b/packages/webidl/src/webidltopas.pp
index dfb67d5c40..93d8e5c742 100644
--- a/packages/webidl/src/webidltopas.pp
+++ b/packages/webidl/src/webidltopas.pp
@@ -460,6 +460,7 @@ Var
 
 begin
   Result:=True;
+  if aDict=nil then ;
   N:=GetName(aField);
   TN:=GetTypeName(aField.MemberType);
   if TN='record' then
@@ -612,7 +613,7 @@ var
       ArgName:=GetName(Arg);
       if ArgName[1]<>'a' then
         begin
-        ArgName:='a'+ArgName;
+        ArgName:='a'+Uppercase(ArgName[1])+copy(ArgName,2,length(ArgName));
         (Arg.Data as TPasData).PasName:=ArgName;
         end;
       repeat
diff --git a/packages/webidl/src/webidltopas2js.pp b/packages/webidl/src/webidltopas2js.pp
index c6894a3409..badd1cc8a2 100644
--- a/packages/webidl/src/webidltopas2js.pp
+++ b/packages/webidl/src/webidltopas2js.pp
@@ -167,6 +167,7 @@ Var
 
 begin
   Result:=True;
+  if aParent=nil then ;
   Suff:='';
   RT:='';
   if not (foConstructor in aDef.Options) then
@@ -214,6 +215,7 @@ Var
 
 begin
   Result:=0;
+  if aParent=nil then ;
   For D in aList do
     if (D is TIDLAttributeDefinition) then
       if (aoReadOnly in A.Options) then
@@ -293,6 +295,7 @@ Var
 
 begin
   Result:=True;
+  if aParent=nil then ;
   N:=GetName(aAttr);
   PN:=N;
   TN:=GetTypeName(aAttr.AttributeType);