paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-12 05:22:56 +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; end;
function TPascalParserTool.KeyWordFuncExports: boolean; function TPascalParserTool.KeyWordFuncExports: boolean;
{ exports keyword - only allowed in library { exports keyword
examples: examples:
@ -3714,14 +3714,7 @@ function TPascalParserTool.KeyWordFuncExports: boolean;
exports unit1.blob; exports unit1.blob;
} }
procedure RaiseExportsOnlyAllowedInLibraries;
begin
SaveRaiseException(ctsExportsClauseOnlyAllowedInLibraries);
end;
begin begin
if not (CurSection in [ctnLibrary,ctnProgram]) then
RaiseExportsOnlyAllowedInLibraries;
CreateChildNode; CreateChildNode;
CurNode.Desc:=ctnExportsSection; CurNode.Desc:=ctnExportsSection;
repeat repeat