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

* Fix compilation under unicode rtl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-10-26 23:41:28 +02:00
parent f641987464
commit 06eaec4313
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-fpterm/src/fpterm.controller.pas
View File

@ -1791,7 +1791,7 @@ begin
begin
if Pos(':', SGRAttr) <> 0 then
begin
ExtParas := SGRAttr.Split(':');
ExtParas := SGRAttr.Split(String(':'));
ExtPara1 := StrToIntDef(ExtParas[0], 0);
case ExtPara1 of
38,

4
packages/fcl-fpterm/src/fpterm.inputoutputconnection.unixpty.pas
View File

@ -51,7 +51,7 @@ type
function IsDataAvailable: Boolean;
function IsClosed: Boolean;
public
constructor Create(const progname: string; argv, envp: PPChar; Width, Height: Integer);
constructor Create(const progname: ansistring; argv, envp: PPansiChar; Width, Height: Integer);
destructor Destroy; override;
function Read(var Buffer; Bytes: SizeUInt): SizeInt;
@ -94,7 +94,7 @@ begin
end;
constructor TTerminalInputOutputConnection_UnixPty.Create(
const progname: string; argv, envp: PPChar; Width, Height: Integer);
const progname: ansistring; argv, envp: PPAnsiChar; Width, Height: Integer);
begin
FUnixPseudoTerminal := TUnixPseudoTerminal.Create(progname, argv, envp, Width, Height);
end;

6
packages/fcl-fpterm/src/fpterm.pseudoterminal.unix.pas
View File

@ -50,7 +50,7 @@ type
FChildPid: TPid;
FFdSlave, FFdMaster: cint;
public
constructor Create(const progname: string; argv, envp: PPChar; Width, Height: Integer);
constructor Create(const progname: ansistring; argv, envp: PPAnsiChar; Width, Height: Integer);
procedure Resize(NewWidth, NewHeight: Integer);
property FdMaster: cint read FFdMaster;
@ -68,8 +68,8 @@ uses
{ TUnixPseudoTerminal }
constructor TUnixPseudoTerminal.Create(const progname: string; argv,
envp: PPChar; Width, Height: Integer);
constructor TUnixPseudoTerminal.Create(const progname: ansistring; argv,
envp: PPansiChar; Width, Height: Integer);
var
ws: TWinSize;
begin

2
rtl/unix/unix98pty.pp
View File

@ -44,7 +44,7 @@ uses
function fpposix_openpt(flags: cint): cint; external 'c' name 'posix_openpt';
function fpgrantpt(fd: cint): cint; external 'c' name 'grantpt';
function fpunlockpt(fd: cint): cint; external 'c' name 'unlockpt';
function fpptsname(fd: cint): PChar; external 'c' name 'ptsname';
function fpptsname(fd: cint): PAnsiChar; external 'c' name 'ptsname';
implementation