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

* Allow attributes on sub types. Fixes issue #40997

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-06 16:47:05 +01:00
parent 2d40b7c463
commit 091189a40c
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pdecobj.pas
View File

@ -1205,9 +1205,16 @@ implementation
Message(parser_e_type_var_const_only_in_records_and_classes); Message(parser_e_type_var_const_only_in_records_and_classes);
consume(_TYPE); consume(_TYPE);
object_member_blocktype:=bt_type; object_member_blocktype:=bt_type;
{ expect at least one type declaration }
if token<>_ID then if (token=_LECKKLAMMER) and (m_prefixed_attributes in current_settings.modeswitches) then
consume(_ID); begin
check_unbound_attributes;
types_dec(true,hadgeneric, rtti_attrs_def);
end
else
// expect at least one type declaration
if token<>_ID then
consume(_ID);
end; end;
_VAR : _VAR :
begin begin