paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 13:19:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed example removeemptymethods

Browse Source 
git-svn-id: trunk@42862 -
This commit is contained in:
mattias 2013-09-18 15:05:12 +00:00
parent 012a67a370
commit f38ab04682
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/removeemptymethods.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -47,7 +47,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
<Version Value="11"/>
<SearchPaths>
<OtherUnitFiles Value="scanexamples"/>
</SearchPaths>

2
components/codetools/examples/removeemptymethods.lpr
View File

@ -79,7 +79,7 @@ begin
writeln('Found ',ListOfPCodeXYPosition.Count,' empty methods (All=',All,'):');
for i:=0 to ListOfPCodeXYPosition.Count-1 do begin
P:=PCodeXYPosition(ListOfPCodeXYPosition[i]);
writeln(i,' ',DbgsCXY(P^));
writeln(i,' ',Dbgs(P^));
end;
if CodeToolBoss.RemoveEmptyMethods(Code,'',X,Y,Sections,All,[],RemovedProcHeads)
then begin