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

+ support properties in Java classes & interfaces

Browse Source 
git-svn-id: branches/jvmbackend@18486 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:03:52 +00:00
parent ee9cfc8916
commit 11fbd8d9a4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecobj.pas
View File

@ -152,8 +152,9 @@ implementation
p : tpropertysym;
begin
{ check for a class, record or helper }
if not((is_class_or_interface_or_dispinterface(current_structdef) or is_record(current_structdef) or is_objectpascal_helper(current_structdef)) or
(not(m_tp7 in current_settings.modeswitches) and (is_object(current_structdef)))) then
if not((is_class_or_interface_or_dispinterface(current_structdef) or is_record(current_structdef) or
is_objectpascal_helper(current_structdef) or is_java_class_or_interface(current_structdef)) or
(not(m_tp7 in current_settings.modeswitches) and (is_object(current_structdef)))) then
Message(parser_e_syntax_error);
consume(_PROPERTY);
p:=read_property_dec(is_classproperty,current_structdef);