From 5dd9571ffcb53558936888670ec752e3e76609be Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 17 Oct 2009 13:56:39 +0000
Subject: [PATCH] codetools: support for *experimental* and *library* hint
 modifiers

git-svn-id: trunk@22206 -
---
 components/codetools/keywordfunclists.pas |  2 ++
 components/codetools/pascalparsertool.pas | 12 ++++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas
index 824d7d2107..ec2eb1a454 100644
--- a/components/codetools/keywordfunclists.pas
+++ b/components/codetools/keywordfunclists.pas
@@ -775,6 +775,8 @@ begin
     Add('UNIMPLEMENTED',{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('VIRTUAL'      ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('PASCAL'       ,{$ifdef FPC}@{$endif}AllwaysTrue);
+    Add('EXPERIMENTAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
+    Add('LIBRARY'      ,{$ifdef FPC}@{$endif}AllwaysTrue);
   end;
   
   IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create;
diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 78de43d379..9e53935e25 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3459,7 +3459,8 @@ begin
   end;
   if CurPos.Flag=cafEND then begin
     ReadNextAtom;
-    if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED')
+    if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or 
+       UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
     then
       ReadNextAtom;
     if CurPos.Flag=cafSemicolon then
@@ -3534,7 +3535,8 @@ begin
   end;
   if CurPos.Flag=cafEND then begin
     ReadNextAtom;
-    if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED')
+    if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or
+       UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
     then
       ReadNextAtom;
   end;
@@ -3796,7 +3798,8 @@ begin
         SaveRaiseException(ctsInvalidSubrange);
       CurNode.EndPos:=CurPos.StartPos;
     end;
-    if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED')
+    if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED') or
+       UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
     then
       ReadNextAtom;
   end else begin
@@ -3902,7 +3905,8 @@ begin
   CurNode.EndPos:=CurPos.EndPos;
   EndChildNode; // close record
   ReadNextAtom;
-  if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED')
+  if UpAtomIs('PLATFORM') or UpAtomIs('DEPRECATED') or UpAtomIs('UNIMPLEMENTED') or
+     UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
   then
     ReadNextAtom;
   Result:=true;