paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29: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}
{$IFNDEF SKIPHELPERS}
function TIOTypeHelper.ToString : string;
begin
@ -319,7 +320,7 @@ begin
WriteStr(Result,Self);
end;
{$ENDIF SKIPHELPERS}
Procedure CommandToList(S : TProcessString; List : TProcessStrings);

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

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