* Patch from Luiz Americo to use const string params in Log call

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

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/fcl-web/src/base/custweb.pp b/packages/fcl-web/src/base/custweb.pp
index 048b3fde1d..0699be6c07 100644
--- a/packages/fcl-web/src/base/custweb.pp
+++ b/packages/fcl-web/src/base/custweb.pp
@@ -162,7 +162,7 @@ Type
     destructor Destroy; override;
     Procedure CreateForm(AClass : TComponentClass; out Reference);
     Procedure Initialize; override;
-    Procedure Log(EventType: TEventType; Msg: String); override;
+    Procedure Log(EventType: TEventType; const Msg: String); override;
 
     Property HandleGetOnPost : Boolean Read GetHandleGetOnPost Write SetHandleGetOnPost;
     Property RedirectOnError : boolean Read GetRedirectOnError Write SetRedirectOnError;
@@ -573,7 +573,7 @@ begin
   Inherited;
 end;
 
-procedure TCustomWebApplication.Log(EventType: TEventType; Msg: String);
+procedure TCustomWebApplication.Log(EventType: TEventType; const Msg: String);
 begin
   EventLog.log(EventType,Msg);
 end;