* made some assembler optimizer methods class methods

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@33929 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas
index 9c4678e020..f115587825 100644
--- a/compiler/aoptbase.pas
+++ b/compiler/aoptbase.pas
@@ -61,7 +61,7 @@ unit aoptbase;
         { gets the next tai object after current that contains info relevant }
         { to the optimizer in p1. If there is none, it returns false and     }
         { sets p1 to nil                                                     }
-        Function GetNextInstruction(Current: tai; Var Next: tai): Boolean;
+        class Function GetNextInstruction(Current: tai; Var Next: tai): Boolean;
         { gets the previous tai object after current that contains info  }
         { relevant to the optimizer in last. If there is none, it retuns }
         { false and sets last to nil                                     }
@@ -175,7 +175,7 @@ unit aoptbase;
   end;
 
 
-  Function TAOptBase.GetNextInstruction(Current: tai; Var Next: tai): Boolean;
+  class Function TAOptBase.GetNextInstruction(Current: tai; Var Next: tai): Boolean;
   Begin
     Repeat
       Current := tai(Current.Next);