paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved comment so it is recognized by lazarus as a method description

Browse Source 
git-svn-id: trunk@30439 -
This commit is contained in:
florian 2015-04-05 19:08:00 +00:00
parent 31709b1b43
commit 2daae5ff03
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aopt.pas
View File

@ -45,6 +45,9 @@ Unit aopt;
private
procedure FindLoHiLabels;
{ Builds a table with the locations of the labels in the TAsmList.
Also fixes some RegDeallocs like "# %eax released; push (%eax)" }
Procedure BuildLabelTableAndFixRegAlloc;
procedure clear;
procedure pass_1;
@ -121,9 +124,8 @@ Unit aopt;
End
End;
Procedure TAsmOptimizer.BuildLabelTableAndFixRegAlloc;
{ Builds a table with the locations of the labels in the TAsmList. }
{ Also fixes some RegDeallocs like "# %eax released; push (%eax)" }
Var p,hp1, hp2: tai;
Regs: TAllUsedRegs;
LabelIdx : longint;