Added preliminary support for parsing _IMPLEMENTS

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@4141 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index 5b7e607e50..6810e0f087 100644
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@@ -583,6 +583,15 @@ implementation
            begin
               p.default:=longint($80000000);
            end;
+         { Parse possible "implements" keyword }
+         if try_to_consume(_IMPLEMENTS) then
+         begin
+           consume(_ID);
+           writeln('Implements [', pattern, ']');
+           if not is_interface(p.proptype.def) then
+             writeln('Implements property must have interface type'); //FIXME: will be converted to proper message()
+         end;
+                  
          { remove temporary procvardefs }
          readprocdef.free;
          writeprocdef.free;