From df8e44ef3ec0e6e4018898260706525d92181cb7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 24 Jun 2020 08:41:58 +0000
Subject: [PATCH] * Change some code that results in browser warning about
 unreachable code (bug ID 37246)

---
 packages/rtl/system.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/system.pas b/packages/rtl/system.pas
index a60a653..f8376af 100644
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -1045,6 +1045,7 @@ end;
 
 function TObject.GetInterfaceByStr(const iidstr: String; out obj): boolean;
 begin
+  Result:=false;
   if not TJSObj(IObjectInstance)['$str'] then
     TJSObj(IObjectInstance)['$str']:=GUIDToString(IObjectInstance);
   if iidstr = TJSObj(IObjectInstance)['$str'] then
@@ -1055,9 +1056,8 @@ begin
   asm
     var i = rtl.getIntfG(this,iidstr,2);
     obj.set(i);
-    return i!==null;
+    Result=(i!==null);
   end;
-  Result:=false;
 end;
 
 function TObject.GetInterfaceWeak(const iid: TGuid; out obj): boolean;