paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-10 21:42:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: allow exports keyword in units, bug #25724

Browse Source 
git-svn-id: trunk@45470 -
This commit is contained in:
mattias 2014-06-10 20:16:59 +00:00
parent aba44adaa0
commit 233aa40f42
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/pascalparsertool.pas
View File

@ -3706,7 +3706,7 @@ begin
end;
function TPascalParserTool.KeyWordFuncExports: boolean;
{ exports keyword - only allowed in library
{ exports keyword
examples:
@ -3714,14 +3714,7 @@ function TPascalParserTool.KeyWordFuncExports: boolean;
exports unit1.blob;
}
procedure RaiseExportsOnlyAllowedInLibraries;
begin
SaveRaiseException(ctsExportsClauseOnlyAllowedInLibraries);
end;
begin
if not (CurSection in [ctnLibrary,ctnProgram]) then
RaiseExportsOnlyAllowedInLibraries;
CreateChildNode;
CurNode.Desc:=ctnExportsSection;
repeat