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

* fix tw2454

Browse Source
This commit is contained in:
peter 2003-04-11 14:50:08 +00:00
parent 8da3f59d32
commit 5cff10dd1a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pexpr.pas
View File

@ -1106,8 +1106,11 @@ implementation
varsym :
begin
{ are we in a class method ? }
if (srsym.owner.symtabletype=objectsymtable) and
{ are we in a class method, we check here the
srsymtable, because a field in another object
also has objectsymtable. And withsymtable is
not possible for self in class methods (PFV) }
if (srsymtable.symtabletype=objectsymtable) and
assigned(aktprocsym) and
(po_classmethod in aktprocdef.procoptions) then
Message(parser_e_only_class_methods);
@ -2344,7 +2347,10 @@ implementation
end.
{
$Log$
Revision 1.105 2003-03-27 17:44:13 peter
Revision 1.106 2003-04-11 14:50:08 peter
* fix tw2454
Revision 1.105 2003/03/27 17:44:13 peter
* fixed small mem leaks
Revision 1.104 2003/03/17 18:55:30 peter