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

Improved syntax checks for "implements" keyword

Browse Source 
git-svn-id: trunk@4350 -
This commit is contained in:
chrivers 2006-08-05 19:58:14 +00:00
parent 94f3f07a97
commit c185650955
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pdecvar.pas
View File

@ -591,9 +591,17 @@ implementation
if try_to_consume(_IMPLEMENTS) then if try_to_consume(_IMPLEMENTS) then
begin begin
consume(_ID); consume(_ID);
writeln('Implements [', pattern, ']'); {$message warn unlocalized string}
if not is_interface(p.proptype.def) then if not is_interface(p.proptype.def) then
writeln('Implements property must have interface type'); //FIXME: will be converted to proper message() begin
writeln('Implements property must have interface type');
Message1(sym_e_illegal_field, pattern);
end;
if pattern <> p.proptype.def.mangledparaname() then
begin
writeln('Implements-property must implement interface of same type');
Message1(sym_e_illegal_field, pattern);
end;
end; end;
{ remove temporary procvardefs } { remove temporary procvardefs }