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

* use correct source code position for error messages about invalid

Browse Source 
published fields (mantis #21035)

git-svn-id: trunk@20060 -
This commit is contained in:
Jonas Maebe 2012-01-12 20:09:08 +00:00
parent 3d6e0dc570
commit 1f614b7efc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -1706,7 +1706,7 @@ implementation
if (visibility=vis_published) and
not(is_class(hdef)) then
begin
Message(parser_e_cant_publish_that);
MessagePos(tfieldvarsym(sc[0]).fileinfo,parser_e_cant_publish_that);
visibility:=vis_public;
end;
@ -1714,7 +1714,7 @@ implementation
not(oo_can_have_published in tobjectdef(hdef).objectoptions) and
not(m_delphi in current_settings.modeswitches) then
begin
Message(parser_e_only_publishable_classes_can_be_published);
MessagePos(tfieldvarsym(sc[0]).fileinfo,parser_e_only_publishable_classes_can_be_published);
visibility:=vis_public;
end;