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

* fix of my previous commit, make cycle was broken

Browse Source
This commit is contained in:
florian 1999-09-11 11:10:39 +00:00
parent 1609dde2ca
commit a42799b4f2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tcmem.pas
View File

@ -191,7 +191,9 @@ implementation
else
begin
{ generate a methodcallnode or proccallnode }
if (p^.left^.symtableprocentry^.owner^.symtabletype=objectsymtable) then
{ we shouldn't convert things like @tcollection.load }
if (p^.left^.symtableprocentry^.owner^.symtabletype=objectsymtable) and
not(assigned(p^.left^.methodpointer) and (p^.left^.methodpointer^.treetype=typen)) then
begin
hp:=genloadmethodcallnode(pprocsym(p^.left^.symtableprocentry),p^.left^.symtableproc,
getcopy(p^.left^.methodpointer));
@ -593,7 +595,10 @@ implementation
end.
{
$Log$
Revision 1.26 1999-09-11 09:08:34 florian
Revision 1.27 1999-09-11 11:10:39 florian
* fix of my previous commit, make cycle was broken
Revision 1.26 1999/09/11 09:08:34 florian
* fixed bug 596
* fixed some problems with procedure variables and procedures of object,
especially in TP mode. Procedure of object doesn't apply only to classes,