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

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 22:23:25 +01:00
parent 395ff00f9c
commit 62086bfc99
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-extra/src/unix/printer.pp
View File

@ -70,12 +70,12 @@ Const
P_TOP = 3; { Print to Pipe }
Var
Lpr : String[255]; { Contains path to lpr binary, including null char }
Lpr : String[255]; { Contains path to lpr binary, including null AnsiChar }
Procedure PrintAndDelete (const f: RawByteString);
var
i: pid_t;
p,pp : ppchar;
p,pp : PPAnsiChar;
begin
if lpr='' then
exit;
@ -206,7 +206,7 @@ end;
function SubstPidInName (const S: string): string;
function SubstPidInName (const S: rawbytestring): rawbytestring;
var
i : longint;
temp : string[8];