mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Lazarus 2.3 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2023-05-29 21:00:08 +03:00
commit 7cb10120bd
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/udebug.pas
View file

@ -54,8 +54,8 @@ type
private
DebugLnLock: TCriticalSection;
protected
procedure DoDbgOut({$if lcl_fullversion < 2010000}const{$endif} s: string); override;
procedure DoDebugLn({$if lcl_fullversion < 2010000}const{$endif} s: string); override;
procedure DoDbgOut(s: string{$if lcl_fullversion >= 2030000}; AGroup: PLazLoggerLogGroup = nil{$endif}); override;
procedure DoDebugLn(s: string{$if lcl_fullversion >= 2030000}; AGroup: PLazLoggerLogGroup = nil{$endif}); override;
public
constructor Create;
destructor Destroy; override;
@ -72,7 +72,7 @@ end;
{ TDCLogger }
procedure TDCLogger.DoDbgOut({$if lcl_fullversion < 2010000}const{$endif} s: string);
procedure TDCLogger.DoDbgOut(s: string{$if lcl_fullversion >= 2030000}; AGroup: PLazLoggerLogGroup = nil{$endif});
begin
DebugLnLock.Acquire;
try
@ -82,7 +82,7 @@ begin
end;
end;
procedure TDCLogger.DoDebugLn({$if lcl_fullversion < 2010000}const{$endif} s: string);
procedure TDCLogger.DoDebugLn(s: string{$if lcl_fullversion >= 2030000}; AGroup: PLazLoggerLogGroup = nil{$endif});
begin
DebugLnLock.Acquire;
try