paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 10:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* move setting of socketerror to real socketcall

Browse Source 
git-svn-id: trunk@8140 -
This commit is contained in:
peter 2007-07-22 20:42:41 +00:00
parent 67e16340be
commit 1db1bc598c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/unixsock.inc
View File

@ -48,7 +48,7 @@ Const
Socket_Sys_RECVMSG = 17; Socket_Sys_RECVMSG = 17;
Function SocketCall(SockCallNr,a1,a2,a3,a4,a5,a6:TSysParam):longint; inline; Function SocketCall(SockCallNr,a1,a2,a3,a4,a5,a6:TSysParam):cint; inline;
var var
Args:array[1..6] of TSysParam; Args:array[1..6] of TSysParam;
begin begin
@ -59,13 +59,13 @@ begin
args[5]:=a5; args[5]:=a5;
args[6]:=a6; args[6]:=a6;
SocketCall:=do_Syscall(syscall_nr_socketcall,sockcallnr,TSysParam(@args)); SocketCall:=do_Syscall(syscall_nr_socketcall,sockcallnr,TSysParam(@args));
internal_socketerror:=fpgeterrno;
end; end;
function SocketCall(SockCallNr,a1,a2,a3:TSysParam):longint; function SocketCall(SockCallNr,a1,a2,a3:TSysParam):cint;inline;
begin begin
SocketCall:=SocketCall(SockCallNr,a1,a2,a3,0,0,0); SocketCall:=SocketCall(SockCallNr,a1,a2,a3,0,0,0);
internal_socketerror:=fpgeterrno;
end; end;
function fpsocket (domain:cint; xtype:cint; protocol: cint):cint; function fpsocket (domain:cint; xtype:cint; protocol: cint):cint;