paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:09:17 +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 end
else else
begin begin
p1:=genzeronode(errorn); if ppropertysym(sym)^.proptype^.deftype=objectdef then
Message(parser_e_no_procedure_to_access_property); pd:=ppropertysym(sym)^.proptype
else
begin
p1:=genzeronode(errorn);
Message(parser_e_no_procedure_to_access_property);
end;
end; end;
end end
else else
@ -1981,7 +1986,10 @@ unit pexpr;
end. end.
{ {
$Log$ $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 * property problem fixed: a propertysym is only a write
access if it is followed by a assignment token access if it is followed by a assignment token