paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 21:28:21 +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:44:07 +01:00
parent 5f0fadc575
commit 103b8164a5
4 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-extra/src/amiga/sockets.pp
View File

@ -102,12 +102,12 @@ const
{ unix socket specific functions }
{*
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:string):boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean; deprecated;
Procedure Str2UnixSockAddr(const addr:ansistring;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:ansistring):boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:File):Boolean; deprecated;
*}
//function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; maybelibc
//function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; maybelibc

12
packages/rtl-extra/src/aros/sockets.pp
View File

@ -101,12 +101,12 @@ const
{ unix socket specific functions }
{*
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:string):boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean; deprecated;
Procedure Str2UnixSockAddr(const addr:ansistring;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:ansistring):boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:File):Boolean; deprecated;
*}
//function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; maybelibc
//function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; maybelibc

16
packages/rtl-extra/src/inc/sockovl.inc
View File

@ -23,7 +23,7 @@
UnixSock
******************************************************************************}
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint);
Procedure Str2UnixSockAddr(const addr:ansistring;var t:TUnixSockAddr;var len:longint);
begin
Move(Addr[1],t.Path,length(Addr));
t.Family:=AF_UNIX;
@ -32,7 +32,7 @@ begin
end;
Function Bind(Sock:longint;const addr:string):boolean;
Function Bind(Sock:longint;const addr:ansistring):boolean;
var
UnixAddr : TUnixSockAddr;
AddrLen : longint;
@ -42,7 +42,7 @@ begin
end;
Function DoAccept(Sock:longint;var addr:string):longint;
Function DoAccept(Sock:longint;var addr:ansistring):longint;
var
UnixAddr : TUnixSockAddr;
AddrLen : longint;
@ -55,7 +55,7 @@ end;
Function DoConnect(Sock:longint;const addr:string):Boolean;
Function DoConnect(Sock:longint;const addr:ansistring):Boolean;
var
UnixAddr : TUnixSockAddr;
AddrLen : longint;
@ -64,7 +64,7 @@ begin
DoConnect:=fpConnect(Sock,@UnixAddr,AddrLen)=0;
end;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:text):Boolean;
var
s : longint;
begin
@ -78,7 +78,7 @@ begin
Accept:=false;
end;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:File):Boolean;
var
s : longint;
begin
@ -92,14 +92,14 @@ begin
Accept:=false;
end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:text):Boolean;
begin
Connect:=DoConnect(Sock,addr);
If Connect then
Sock2Text(Sock,SockIn,SockOut);
end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:file):Boolean;
begin
Connect:=DoConnect(Sock,addr);
if Connect then

12
packages/rtl-extra/src/unix/sockets.pp
View File

@ -63,12 +63,12 @@ const
EsockADDRINUSE = ESysEADDRINUSE;
{ unix socket specific functions }
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:string):boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean; deprecated;
Procedure Str2UnixSockAddr(const addr:ansistring;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:ansistring):boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:ansistring;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:ansistring;var SockIn,SockOut:File):Boolean; deprecated;
//function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; maybelibc
//function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; maybelibc