paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation of processunicode

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-04 10:42:37 +01:00
parent abb5792aed
commit 8c8b336914
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-process/src/processbody.inc
View File

@ -270,6 +270,7 @@ implementation
{$i process.inc} {$i process.inc}
{$IFNDEF SKIPHELPERS}
function TIOTypeHelper.ToString : string; function TIOTypeHelper.ToString : string;
begin begin
@ -319,7 +320,7 @@ begin
WriteStr(Result,Self); WriteStr(Result,Self);
end; end;
{$ENDIF SKIPHELPERS}
Procedure CommandToList(S : TProcessString; List : TProcessStrings); Procedure CommandToList(S : TProcessString; List : TProcessStrings);

2
packages/fcl-process/src/processunicode.pp
View File

@ -55,7 +55,7 @@ Type
{$define processunicodestring} {$define processunicodestring}
{$ENDIF} {$ENDIF}
{$define TProcessnamemacro:=TProcess} {$define TProcessnamemacro:=TProcess}
{$DEFINE SKIPHELPERS}
{$i processbody.inc} {$i processbody.inc}
end. end.