paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 11:00:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Dont override TProcess.Execute for TProcessUTF8 starting from FPC 3.2. Issue #35991

Browse Source 
git-svn-id: branches/fixes_2_0@64009 -
This commit is contained in:
mattias 2020-10-15 11:18:56 +00:00
parent 2838eb631e
commit f7c69baac6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/utf8process.pp
View File

@ -14,14 +14,16 @@ unit UTF8Process;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
{$IF FPC_FULLVERSION < 30200}
{$DEFINE UseTProcessW} {$DEFINE UseTProcessW}
{$ENDIF} {$ENDIF}
{$ENDIF}
interface interface
uses uses
Classes, SysUtils, Process, Classes, SysUtils, Process,
{$IF defined(UseSeparateTProcessW) or defined(UseTProcessW)} {$IFDEF UseTProcessW}
pipes, pipes,
{$ENDIF} {$ENDIF}
FileUtil, LazFileUtils, LazUTF8, LazUtilsStrConsts; FileUtil, LazFileUtils, LazUTF8, LazUtilsStrConsts;
@ -199,9 +201,6 @@ Const
PriorityConstants : Array [TProcessPriority] of Cardinal = PriorityConstants : Array [TProcessPriority] of Cardinal =
(HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS, (HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS,
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS
{$if (FPC_FULLVERSION >= 30200) and not defined(WinCE)}
,BELOW_NORMAL_PRIORITY_CLASS,ABOVE_NORMAL_PRIORITY_CLASS
{$endif}
); );
function WStrAsUniquePWideChar(var s: UnicodeString): PWideChar; inline; function WStrAsUniquePWideChar(var s: UnicodeString): PWideChar; inline;