* fixed missing repeated "class" modifiers

git-svn-id: trunk@3735 -

tests/test/cg/tclacla1.pp

@@ -18,7 +18,7 @@ const
   tbasecalled : boolean = false;
   tderivedcalled : boolean = false;
   has_error : boolean = false;
-procedure tbaseclass.virtual_class_method;
+class procedure tbaseclass.virtual_class_method;
 
 begin
   Writeln('Calling tbase class class method');
@@ -30,7 +30,7 @@ begin
   virtual_class_method;
 end;
 
-procedure tderivedclass.virtual_class_method;
+class procedure tderivedclass.virtual_class_method;
 
 begin
   Writeln('Calling tderived class class method');

tests/test/cg/tclatype.pp

@@ -57,7 +57,7 @@ begin
     end;
 end;
 
-procedure tbaseclass.virtual_class_method;
+class procedure tbaseclass.virtual_class_method;
 begin
   Writeln('Calling tbase class class method');
   tbasecalled:=true;
@@ -73,7 +73,7 @@ begin
   get_type2:=typeof(self);
 end;
 
-procedure tderivedclass.virtual_class_method;
+class procedure tderivedclass.virtual_class_method;
 begin
   Writeln('Calling tderived class class method');
   tderivedcalled:=true;

tests/webtbs/tw2480.pp

@@ -12,7 +12,7 @@ Type tSingleton=Class
         Class Function Instance:tSingleton;
      End;
 
-Function tSingleton.Instance:tSingleton;
+class Function tSingleton.Instance:tSingleton;
 Begin
    If _Instance=Nil Then _Instance:=tSingleton.Init;
    Exit(_Instance);