|
@@ -191,7 +191,9 @@ implementation
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
{ generate a methodcallnode or proccallnode }
|
|
{ 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
|
|
begin
|
|
|
hp:=genloadmethodcallnode(pprocsym(p^.left^.symtableprocentry),p^.left^.symtableproc,
|
|
hp:=genloadmethodcallnode(pprocsym(p^.left^.symtableprocentry),p^.left^.symtableproc,
|
|
|
getcopy(p^.left^.methodpointer));
|
|
getcopy(p^.left^.methodpointer));
|
|
@@ -593,7 +595,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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 bug 596
|
|
|
* fixed some problems with procedure variables and procedures of object,
|
|
* fixed some problems with procedure variables and procedures of object,
|
|
|
especially in TP mode. Procedure of object doesn't apply only to classes,
|
|
especially in TP mode. Procedure of object doesn't apply only to classes,
|
florian