paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 05:09:20 +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

4
packages/rtl/system.pas
View File

@ -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;