paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-04 01:50:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change some code that results in browser warning about unreachable code (bug ID 37246)

Browse Source
This commit is contained in:
michael 2020-06-24 08:41:58 +00:00
parent a9eed7255c
commit df8e44ef3e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/system.pas
View File

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