diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-07-30 09:26:21 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-07-30 09:26:21 +0000 |
| commit | dea7b6a726a63e4ac0fcada4f2d1b0907707116f (patch) | |
| tree | 201001cbb9c6a274176274cd077ac2a6e23d74a6 /packages/fcl-base | |
| parent | 637f51b489f3dcce701de236ffef8dfaf087c0d8 (diff) | |
| download | fpc-dea7b6a726a63e4ac0fcada4f2d1b0907707116f.tar.gz | |
* 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
Diffstat (limited to 'packages/fcl-base')
| -rw-r--r-- | packages/fcl-base/src/custapp.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp index 62f2fb69eb..a5ce5b0a60 100644 --- a/packages/fcl-base/src/custapp.pp +++ b/packages/fcl-base/src/custapp.pp @@ -63,7 +63,7 @@ Type Function CheckOptions(Const ShortOptions : String; Const LongOpts : String) : String; Procedure GetEnvironmentList(List : TStrings;NamesOnly : Boolean); Procedure GetEnvironmentList(List : TStrings); - Procedure Log(EventType : TEventType; Msg : String); virtual; + Procedure Log(EventType : TEventType; const Msg : String); virtual; // Delphi properties property ExeName: string read GetExeName; property HelpFile: string read FHelpFile write FHelpFile; @@ -223,7 +223,7 @@ begin // Do nothing. Override in descendent classes. end; -Procedure TCustomApplication.Log(EventType : TEventType; Msg : String); +Procedure TCustomApplication.Log(EventType : TEventType; const Msg : String); begin // Do nothing. Override in descendent classes. |