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

added codetools parser: procedue name; public name aname;

Browse Source 
git-svn-id: trunk@8905 -
This commit is contained in:
mattias 2006-03-10 13:26:41 +00:00
parent 387228d852
commit d730a8875a
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/keywordfunclists.pas
View File

@ -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);

2
components/codetools/pascalparsertool.pas
View File

@ -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