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

codetools: implemented parsing var a:b; export name c;, bug #11002

Browse Source 
git-svn-id: trunk@14524 -
This commit is contained in:
mattias 2008-03-15 10:24:12 +00:00
parent e940726de1
commit abd08bc5f4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/pascalparsertool.pas
View File

@ -2579,10 +2579,15 @@ begin
ReadNextAtom;
end;
if (CurNode.Parent.Desc=ctnVarSection)
and (UpAtomIs('PUBLIC') or UpAtomIs('EXTERNAL')) then begin
// for example 'var a: char; public;'
and (UpAtomIs('PUBLIC') or UpAtomIs('EXPORT') or UpAtomIs('EXTERNAL')) then
begin
// examples:
// a: b; public;
// a: b; external;
// a: b; external name 'c';
// a: b; external c;
if UpAtomIs('EXTERNAL') then begin
// read external name
// read external identifier
ReadNextAtom;
if (not UpAtomIs('NAME')) and AtomIsIdentifier(false) then
ReadConstant(true,false,[]);