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

* bug fix for @tobject.method, fixes bug #557, 605 and 606

Browse Source
This commit is contained in:
florian 1999-09-11 19:47:26 +00:00
parent cfe93a0aaf
commit 35eef74308
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pexpr.pas
View File

@ -1032,7 +1032,8 @@ unit pexpr;
not(pobjectdef(pd)^.is_class) then
begin
consume(_POINT);
if assigned(procinfo._class) then
if assigned(procinfo._class) and
not(getaddr) then
begin
if procinfo._class^.is_related(pobjectdef(pd)) then
begin
@ -2092,7 +2093,10 @@ _LECKKLAMMER : begin
end.
{
$Log$
Revision 1.140 1999-09-11 09:08:33 florian
Revision 1.141 1999-09-11 19:47:26 florian
* bug fix for @tobject.method, fixes bug 557, 605 and 606
Revision 1.140 1999/09/11 09:08:33 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,

10
compiler/tcld.pas
View File

@ -37,7 +37,7 @@ interface
implementation
uses
cobjects,verbose,globals,systems,
cobjects,verbose,globtype,globals,systems,
symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1,
tccnv,cpubase
@ -192,7 +192,8 @@ implementation
{ left must be set, if left isn't set }
{ it can be only self }
{ this code is only used in TP procvar mode }
if not(assigned(p^.left)) and
if (m_tp_procvar in aktmodeswitches) and
not(assigned(p^.left)) and
(pprocsym(p^.symtableentry)^.owner^.symtabletype=objectsymtable) then
p^.left:=genselfnode(procinfo._class);
{ method pointer ? }
@ -503,7 +504,10 @@ implementation
end.
{
$Log$
Revision 1.43 1999-09-11 09:08:34 florian
Revision 1.44 1999-09-11 19:47:26 florian
* bug fix for @tobject.method, fixes bug 557, 605 and 606
Revision 1.43 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,