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

codetools: fixed node start class sections

Browse Source 
git-svn-id: trunk@61109 -
This commit is contained in:
mattias 2019-05-03 08:54:34 +00:00
parent 8295312cc5
commit 1d8e8b2751
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/codetools/examples/sourcecloser.lpi
View File

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<Title Value="SourceCloser"/> <Title Value="SourceCloser"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@ -22,9 +22,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
@ -34,15 +35,11 @@
<PackageName Value="LazUtils"/> <PackageName Value="LazUtils"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="sourcecloser.lpr"/> <Filename Value="sourcecloser.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="testpkg1/create_release.sh"/>
<IsPartOfProject Value="True"/>
</Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

1
components/codetools/pascalparsertool.pas
View File

@ -1180,6 +1180,7 @@ begin
// start new section // start new section
CreateChildNode; CreateChildNode;
CurNode.Desc:=NewSection; CurNode.Desc:=NewSection;
CurNode.StartPos:=SectionStart;
if (OldSubSection<>ctnNone) if (OldSubSection<>ctnNone)
and (Scanner.CompilerMode=cmOBJFPC) and (Scanner.CompilerMode=cmOBJFPC)
and (Scanner.Values.IsDefined('VER2_4')) then begin and (Scanner.Values.IsDefined('VER2_4')) then begin