paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* search defaulthandler only for message methods

Browse Source
This commit is contained in:
peter 2003-05-22 17:43:21 +00:00
parent 1770c1db0f
commit 31286d02e6
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/pexpr.pas
View File

@ -1883,14 +1883,22 @@ implementation
begin begin
if anon_inherited then if anon_inherited then
begin begin
{ we didn't find a member in the parents call the { For message methods we need to call DefaultHandler }
DefaultHandler } if (po_msgint in pd.procoptions) or
sym:=searchsym_in_class(classh,'DEFAULTHANDLER'); (po_msgstr in pd.procoptions) then
if not assigned(sym) or begin
(sym.typ<>procsym) then sym:=searchsym_in_class(classh,'DEFAULTHANDLER');
internalerror(200303171); if not assigned(sym) or
p1:=nil; (sym.typ<>procsym) then
do_proc_call(sym,sym.owner,false,again,p1); internalerror(200303171);
p1:=nil;
do_proc_call(sym,sym.owner,false,again,p1);
end
else
begin
{ we need to ignore the inherited; }
p1:=cnothingnode.create;
end;
end end
else else
begin begin
@ -2399,7 +2407,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.120 2003-05-15 18:58:53 peter Revision 1.121 2003-05-22 17:43:21 peter
* search defaulthandler only for message methods
Revision 1.120 2003/05/15 18:58:53 peter
* removed selfpointer_offset, vmtpointer_offset * removed selfpointer_offset, vmtpointer_offset
* tvarsym.adjusted_address * tvarsym.adjusted_address
* address in localsymtable is now in the real direction * address in localsymtable is now in the real direction