paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some 1.9.x fixes

Browse Source
This commit is contained in:
marco 2004-07-17 22:00:37 +00:00
parent b0d7f0a9f3
commit 5fac440240
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/sockex/sockcli.pp
View File

@ -6,7 +6,7 @@ Program Client;
sock_cli to connect to that socket
}
uses Sockets,Linux;
uses Sockets,BaseUnix;
procedure PError(const S : string);
begin

6
docs/sockex/socksvr.pp
View File

@ -6,7 +6,7 @@ Program server;
sock_cli to connect to that socket
}
uses Linux,Sockets;
uses BaseUnix,Sockets;
const
SPath='ServerSoc';
@ -28,7 +28,7 @@ begin
S:=Socket (AF_UNIX,SOCK_STREAM,0);
if SocketError<>0 then
Perror ('Server : Socket : ');
UnLink(SPath);
fpUnLink(SPath);
if not Bind(S,SPath) then
PError ('Server : Bind : ');
if not Listen (S,1) then
@ -45,5 +45,5 @@ begin
Readln(Sin,Buffer);
Writeln('Server : read : ',buffer);
end;
Unlink(SPath);
FPUnlink(SPath);
end.