paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 08:47:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct DefaultHandler/DeefaultHandlerStr

Browse Source
This commit is contained in:
michael 2019-08-04 21:30:02 +00:00
parent a89cc4b9ab
commit 8a3692b9fd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/system.pas
View File

@ -975,7 +975,7 @@ begin
Id:=Msg['MsgStr'];
if not isString(Id) then exit;
aClass:=ClassType;
while aClass<>nil do
while (aClass<>Nil) do
begin
asm
var Handlers = aClass.$msgstr;
@ -991,12 +991,12 @@ end;
procedure TObject.DefaultHandler(var aMessage);
begin
if jsvalue(aMessage) then ;
if jsvalue(TMethod(aMessage)) then ;
end;
procedure TObject.DefaultHandlerStr(var aMessage);
begin
if jsvalue(aMessage) then ;
if jsvalue(TMethod(aMessage)) then ;
end;
function TObject.GetInterface(const iid: TGuid; out obj): boolean;