paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 03:10:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed typo

Browse Source
This commit is contained in:
marco 2002-02-05 07:54:34 +00:00
parent ab229c55fd
commit eb46ac9942
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/freebsd/unixsock.inc
View File

@ -1,3 +1,7 @@
{$Id$}
{******************************************************************************
Basic Socket Functions
******************************************************************************}
@ -14,7 +18,7 @@ end;
Function SendTo(Sock:Longint;Const Buf;BufLen,Flags:Longint;Var Addr; AddrLen : Longint):Longint;
begin
Sendto:=SocketCall(syscall_nr_Sendto,Sock,Longint(@Buf),BufLen,Flags,Longint(@Addr),AddrLen);
Sendto:=do_syscall(syscall_nr_Sendto,Sock,Longint(@Buf),BufLen,Flags,Longint(@Addr),AddrLen);
end;
Function Recv(Sock:Longint;Var Buf;BufLen,Flags:Longint):Longint;
@ -185,3 +189,13 @@ begin
if Connect then
Sock2File(Sock,SockIn,SockOut);
end;
{
$Log$
Revision 1.5 2002-02-05 07:54:34 marco
* Fixed typo
}