paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 16:30:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-pasrc: error if exports section inside inside procedure

Browse Source
This commit is contained in:
mattias 2021-10-20 11:53:40 +02:00
parent 0aecf4d89f
commit 2fa60d1af3
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-passrc/src/pparser.pp
View File

@ -3618,7 +3618,10 @@ begin
tkConst:
SetBlock(declConst);
tkexports:
SetBlock(declExports);
if Declarations is TPasSection then
SetBlock(declExports)
else
ParseExcTokenError(TokenInfos[tkbegin]);
tkResourcestring:
if Declarations is TPasSection then
SetBlock(declResourcestring)

15
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -986,6 +986,7 @@ type
Procedure TestLibrary_ExportFunc_NameIntFail;
Procedure TestLibrary_ExportFunc_IndexStringFail;
Procedure TestLibrary_ExportVar; // ToDo
Procedure TestLibrary_ExportLocFuncFail;
Procedure TestLibrary_Initialization_Finalization;
Procedure TestLibrary_ExportFuncOverloadFail;
Procedure TestLibrary_UnitExports;
@ -18852,6 +18853,20 @@ begin
ParseLibrary;
end;
procedure TTestResolver.TestLibrary_ExportLocFuncFail;
begin
StartLibrary(false);
Add([
'procedure Run;',
'exports',
' Run;',
'begin',
'end;',
'begin',
'']);
CheckParserException('Expected "begin"',nParserExpectTokenError);
end;
procedure TTestResolver.TestLibrary_Initialization_Finalization;
begin
StartLibrary(false);