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: Free Pascal 3.3.1 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2024-12-08 22:30:44 +03:00
commit 01a66177ec
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
components/doublecmd/dcprocessutf8.pas
View file

@ -27,7 +27,7 @@ uses
type
{ TProcessUtf8 }
{$IF DEFINED(UNIX)}
{$IF DEFINED(UNIX)}
TProcessUtf8 = class(UTF8Process.TProcessUTF8)
private
procedure DoForkEvent(Sender : TObject);
@ -38,12 +38,14 @@ type
function Suspend : Integer; override;
function Terminate (AExitCode : Integer): Boolean; override;
end;
{$ELSEIF DEFINED(MSWINDOWS)}
{$ELSEIF DEFINED(MSWINDOWS) AND (FPC_FULLVERSION < 30301)}
TProcessUtf8 = class(TProcess)
public
procedure Execute; override;
end;
{$ENDIF}
{$ELSE}
TProcessUtf8 = class(TProcess);
{$ENDIF}
implementation
@ -102,7 +104,7 @@ begin
if Result then WaitOnExit;
end;
{$ELSEIF DEFINED(MSWINDOWS)}
{$ELSEIF DEFINED(MSWINDOWS) AND (FPC_FULLVERSION < 30301)}
{$WARN SYMBOL_DEPRECATED OFF}