Explorar o código

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

git-svn-id: trunk@30439 -
florian %!s(int64=10) %!d(string=hai) anos
pai
achega
2daae5ff03
Modificáronse 1 ficheiros con 4 adicións e 2 borrados
  1. 4 2
      compiler/aopt.pas

+ 4 - 2
compiler/aopt.pas

@@ -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;