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

* allow in delphi mode member classes in published sections which aren't compiled with $M+

Browse Source 
git-svn-id: trunk@7655 -
This commit is contained in:
florian 2007-06-13 21:04:51 +00:00
parent b635d89ffa
commit bc678a2b90
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecvar.pas
View File

@ -1317,7 +1317,8 @@ implementation
end end
else else
if (sp_published in current_object_option) and if (sp_published in current_object_option) and
not(oo_can_have_published in tobjectdef(hdef).objectoptions) then not(oo_can_have_published in tobjectdef(hdef).objectoptions) and
not(m_delphi in current_settings.modeswitches) then
begin begin
Message(parser_e_only_publishable_classes_can_be_published); Message(parser_e_only_publishable_classes_can_be_published);
exclude(current_object_option,sp_published); exclude(current_object_option,sp_published);