From d730a8875ac6875de8e54b9ae3272c78bae5913d Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 10 Mar 2006 13:26:41 +0000 Subject: [PATCH] added codetools parser: procedue name; public name aname; git-svn-id: trunk@8905 - --- components/codetools/keywordfunclists.pas | 1 + components/codetools/pascalparsertool.pas | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas index 63c6aec07e..fef2285cc3 100644 --- a/components/codetools/keywordfunclists.pas +++ b/components/codetools/keywordfunclists.pas @@ -672,6 +672,7 @@ begin Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('EXPORT' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('EXTERNAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('PUBLIC' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('FAR' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('FORWARD' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('INLINE' ,{$ifdef FPC}@{$endif}AllwaysTrue); diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas index da38b61834..2f9f9a1e27 100644 --- a/components/codetools/pascalparsertool.pas +++ b/components/codetools/pascalparsertool.pas @@ -1380,7 +1380,7 @@ begin if UpAtomIs('MESSAGE') or UpAtomIs('DISPID') then begin ReadNextAtom; ReadConstant(true,false,[]); - end else if UpAtomIs('EXTERNAL') then begin + end else if UpAtomIs('EXTERNAL') or UpAtomIs('PUBLIC') then begin HasForwardModifier:=true; ReadNextAtom; if CurPos.Flag<>cafSemicolon then begin