fix typo in previous commit

git-svn-id: trunk@37142 -

packages/fcl-passrc/examples/pasrewrite.lpi

@@ -25,7 +25,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <CommandLineParams Value="--input=&quot;$HOME/source/pas2js/src/rtl/web.pas -S2h&quot; --no-externalclass --no-implementation --no-externalvar --no-externalfunction -x jstypes -o web.pp"/>
+        <CommandLineParams Value="-i 'tf.pp -Sd' -o tf2.pp"/>
       </local>
     </RunParams>
     <Units Count="1">

packages/fcl-passrc/src/paswrite.pp

@@ -896,8 +896,8 @@ begin
     Add(AProc.Parent.Name + '.');
   Add(AProc.Name);
   if Assigned(AProc.ProcType) and (AProc.ProcType.Args.Count > 0) then
-    AddProcArgs(AProc.ProcType.Args)
-    if Assigned(AProc.ProcType) and
+    AddProcArgs(AProc.ProcType.Args);
+  if Assigned(AProc.ProcType) and
     (AProc.ProcType.ClassType = TPasFunctionType) then
   begin
     Add(': ');
@@ -907,11 +907,11 @@ begin
   IncDeclSectionLevel;
   for i := 0 to AProc.Locals.Count - 1 do
     begin
-    E:=TPasElement(AProc.Locals[i])
-    if TPasElement(AProc.Locals[i]).InheritsFrom(TPasProcedureImpl) then
+    E:=TPasElement(AProc.Locals[i]);
+    if E.InheritsFrom(TPasProcedureImpl) then
       begin
       IncIndent;
-      if (i = 0) or not P.InheritsFrom(TPasProcedureImpl) then
+      if (i = 0) or not PE.InheritsFrom(TPasProcedureImpl) then
         Addln;
       end;
     WriteElement(E);