From 67911279528490bdec09b7244ccdc7cccf1c0b10 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sun, 17 Sep 2017 20:33:02 +0000
Subject: [PATCH] fcl-js: jswriter: if-else: use bfalse position
git-svn-id: trunk@37240 -
---
packages/fcl-js/src/jswriter.pp | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/packages/fcl-js/src/jswriter.pp b/packages/fcl-js/src/jswriter.pp
index 6805591775..796b9b05ab 100644
--- a/packages/fcl-js/src/jswriter.pp
+++ b/packages/fcl-js/src/jswriter.pp
@@ -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);