diff --git a/compiler/aopt.pas b/compiler/aopt.pas
index 7dcc281f32..b7785655a7 100644
--- a/compiler/aopt.pas
+++ b/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;