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

* allow property in objects in all modes except tp

Browse Source
This commit is contained in:
peter 2005-03-16 21:09:22 +00:00
parent ee2e4cc681
commit e250290e57
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -91,7 +91,7 @@ implementation
begin begin
{ check for a class } { check for a class }
if not((is_class_or_interface(aktclass)) or if not((is_class_or_interface(aktclass)) or
((m_delphi in aktmodeswitches) and (is_object(aktclass)))) then (not(m_tp7 in aktmodeswitches) and (is_object(aktclass)))) then
Message(parser_e_syntax_error); Message(parser_e_syntax_error);
consume(_PROPERTY); consume(_PROPERTY);
p:=read_property_dec(aktclass); p:=read_property_dec(aktclass);
@ -729,7 +729,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.86 2005-02-14 17:13:07 peter Revision 1.87 2005-03-16 21:09:22 peter
* allow property in objects in all modes except tp
Revision 1.86 2005/02/14 17:13:07 peter
* truncate log * truncate log
Revision 1.85 2005/02/01 08:46:13 michael Revision 1.85 2005/02/01 08:46:13 michael