paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 18:19:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Peter for passing a procedure of method to a other method in a method

Browse Source
This commit is contained in:
marco 2001-02-20 13:14:18 +00:00
parent 3e7c796a12
commit 69705d29e9
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncnv.pas
View File

@ -869,8 +869,8 @@ implementation
begin
{if left.right=nil then
begin}
if (tcallnode(left).symtableprocentry^.owner^.symtabletype=objectsymtable){ and
(pobjectdef(left.symtableprocentry^.owner^.defowner)^.is_class) }then
if (tcallnode(left).symtableprocentry^.owner^.symtabletype=objectsymtable) and
assigned(tcallnode(left).methodpointer) then
hp:=genloadmethodcallnode(pprocsym(tcallnode(left).symtableprocentry),
tcallnode(left).symtableproc,
tcallnode(left).methodpointer.getcopy)
@ -1219,7 +1219,10 @@ begin
end.
{
$Log$
Revision 1.17 2001-02-08 13:09:03 jonas
Revision 1.18 2001-02-20 13:14:18 marco
* Fix from Peter for passing a procedure of method to a other method in a method
Revision 1.17 2001/02/08 13:09:03 jonas
* fixed web bug 1396: tpointerord is now a cardinal instead of a longint,
but added a hack in ncnv so that pointer(-1) still works