paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 16:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parse const modifier public

Browse Source 
git-svn-id: trunk@32527 -
This commit is contained in:
mattias 2011-09-27 19:58:31 +00:00
parent 83578a8e9b
commit b883e0c022
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/codetools/pascalparsertool.pas
View File

@ -3384,6 +3384,7 @@ function TPascalParserTool.KeyWordFuncConst: boolean;
const a:b=3;
;
c =4;
ErrorBase : Pointer = nil;public name 'FPC_ERRORBASE';
implementation
@ -3591,6 +3592,7 @@ begin
end;
procedure TPascalParserTool.ReadConst;
// ErrorBase : Pointer = nil;public name 'FPC_ERRORBASE';
begin
ReadNextAtom;
if (CurPos.Flag=cafColon) then begin
@ -3601,6 +3603,21 @@ begin
ReadConstExpr;
// optional: hint modifier
ReadHintModifier;
if CurPos.Flag=cafSemicolon then begin
ReadNextAtom;
if UpAtomIs('PUBLIC') then begin
ReadNextAtom;
if UpAtomIs('NAME') then begin
ReadNextAtom;
if not AtomIsStringConstant then
RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadNextAtom;
end;
if CurPos.Flag<>cafSemicolon then
RaiseStringExpectedButAtomFound(';');
end else
UndoReadNextAtom;
end;
end;
procedure TPascalParserTool.ReadTypeNameAndDefinition;