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

codetools: support 'section' variable/constant modifier

Browse Source 
git-svn-id: trunk@32561 -
This commit is contained in:
paul 2011-09-30 01:33:04 +00:00
parent df7c65a674
commit 046df2da25
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/pascalparsertool.pas
View File

@ -3088,7 +3088,7 @@ procedure TPascalParserTool.ReadVariableType;
interface
var a:b;
a:b; cvar;
a:b; public name 'string constant';
a:b; public name 'string constant' section 'string constant';
a:b; public name <id>;
a:b; external name 'string constant';
a:b; cvar; external;
@ -3162,6 +3162,14 @@ begin
and (not AtomIsIdentifier(false)) then
RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadConstant(true,false,[]);
if UpAtomIs('SECTION') then begin
// for example FreePascal_TLS_callback : pointer = @Exec_Tls_callback; public name '__FPC_tls_callbacks' section '.CRT$XLFPC'
ReadNextAtom;
if (not AtomIsStringConstant)
and (not AtomIsIdentifier(false)) then
RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadConstant(true,false,[]);
end;
end;
if CurPos.Flag<>cafSemicolon then
RaiseCharExpectedButAtomFound(';');
@ -3612,6 +3620,12 @@ begin
if not AtomIsStringConstant then
RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadNextAtom;
if UpAtomIs('SECTION') then begin
ReadNextAtom;
if not AtomIsStringConstant then
RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadNextAtom;
end;
end;
if CurPos.Flag<>cafSemicolon then
RaiseStringExpectedButAtomFound(';');