paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct compact writing of source elements

Browse Source 
git-svn-id: trunk@27456 -
This commit is contained in:
michael 2014-04-03 20:05:58 +00:00
parent 36aae69e2b
commit dd8f4eccf2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-js/src/jswriter.pp
View File

@ -1047,19 +1047,21 @@ Procedure TJSWriter.WriteSourceElements(El :TJSSourceElements);
Var
I : Integer;
C : Boolean;
E : TJSElement;
begin
C:=(woCompact in Options);
For I:=0 to EL.Statements.Count-1 do
begin
WriteJS(EL.Statements[i].Node);
if C then
E:=EL.Statements.Nodes[i].Node;
WriteJS(E);
if Not C then
WriteLn(';')
else
if I<EL.Statements.Count-1 then
Write('; ')
else
Write(';')
else
WriteLn(';')
end;
end;
@ -1133,6 +1135,7 @@ begin
WriteSourceElements(TJSSourceElements(el))
else
Error(SErrUnknownJSClass,[El.ClassName]);
// Write('/* '+EL.ClassName+' */');
FSkipBrackets:=False;
end;