fcl-web: fixed compile

packages/fcl-base/src/pascodegen.pp

@@ -77,6 +77,7 @@ Type
     Procedure Comment(Const AComment : Array of String);
     Procedure Comment(Const AComment : TStrings);
     Procedure ClassComment(Const AClassName: String); virtual;
+    Procedure ClassHeader(Const AClassName: String); deprecated 'use ClassComment instead';
     Procedure SimpleMethodBody(Lines: Array of string); virtual;
     procedure SaveToStream(const AStream: TStream);
     Procedure SaveToFile(Const AFileName : string);
@@ -400,6 +401,11 @@ begin
   AddLn('');
 end;
 
+procedure TPascalCodeGenerator.ClassHeader(const AClassName: String);
+begin
+  ClassComment(AClassName);
+end;
+
 end.
 
 end.

packages/fcl-web/src/jsonrpc/fprpccodegen.pp

@@ -627,7 +627,7 @@ Var
   I : integer;
 
 begin
-  ClassHeader(aService.PasName);
+  ClassComment(aService.PasName);
   AddLn('%s = Class(TRPCCustomService)',[aService.PasName]);
   Addln('Protected');
   Indent;
@@ -661,7 +661,7 @@ Var
   I : integer;
 
 begin
-  ClassHeader(aService.PasName);
+  ClassComment(aService.PasName);
   Addln('');
   GenerateRPCClassNameImplementation(aService);
   For I:=0 to aService.Methods.Count-1 do