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

fcl-js: jswriter: if-else: use bfalse position

Browse Source 
git-svn-id: trunk@37240 -
This commit is contained in:
Mattias Gaertner 2017-09-17 20:33:02 +00:00
parent 8a9ddd8eb4
commit 6791127952
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1100,9 +1100,9 @@ begin
Writeln('}');
end;
end;
Writer.CurElement:=El;
if HasBFalse then
begin
Writer.CurElement:=El.BFalse;
if not HasBTrue then
begin
if C then
@ -1114,7 +1114,9 @@ begin
Write(' ');
Write('else ');
WriteJS(El.BFalse)
end;
end
else
Writer.CurElement:=El;
end;
procedure TJSWriter.WriteForInStatement(El: TJSForInStatement);