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

* class property without write support

Browse Source
This commit is contained in:
peter 1999-04-19 09:13:47 +00:00
parent e3dc06bceb
commit 0869bc80e9
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pexpr.pas
View File

@ -604,8 +604,13 @@ unit pexpr;
end
else
begin
p1:=genzeronode(errorn);
Message(parser_e_no_procedure_to_access_property);
if ppropertysym(sym)^.proptype^.deftype=objectdef then
pd:=ppropertysym(sym)^.proptype
else
begin
p1:=genzeronode(errorn);
Message(parser_e_no_procedure_to_access_property);
end;
end;
end
else
@ -1981,7 +1986,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.95 1999-04-19 06:10:08 florian
Revision 1.96 1999-04-19 09:13:47 peter
* class property without write support
Revision 1.95 1999/04/19 06:10:08 florian
* property problem fixed: a propertysym is only a write
access if it is followed by a assignment token