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

* check helpertype instead of the extendeddef to judge whether inherited should be allowed or not

Browse Source 
git-svn-id: trunk@37224 -
This commit is contained in:
svenbarth 2017-09-15 20:52:42 +00:00
parent efcb10f537
commit 83f5b27e02
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pexpr.pas
View File

@ -3455,7 +3455,7 @@ implementation
allowed }
if is_objectpascal_helper(current_structdef) and
(m_delphi in current_settings.modeswitches) and
is_record(tobjectdef(current_structdef).extendeddef) then
(tobjectdef(current_structdef).helpertype=ht_record) then
Message(parser_e_inherited_not_in_record);
if (current_structdef.typ=objectdef) then
begin