From 1db1bc598c52583a4026273b0d9fd45c8832b904 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 22 Jul 2007 20:42:41 +0000
Subject: [PATCH]   * move setting of socketerror to real socketcall

git-svn-id: trunk@8140 -
---
 rtl/linux/unixsock.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/linux/unixsock.inc b/rtl/linux/unixsock.inc
index 93669a93ee..5e45bd5df7 100644
--- a/rtl/linux/unixsock.inc
+++ b/rtl/linux/unixsock.inc
@@ -48,7 +48,7 @@ Const
   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
   Args:array[1..6] of TSysParam;
 begin
@@ -59,13 +59,13 @@ begin
   args[5]:=a5;
   args[6]:=a6;
   SocketCall:=do_Syscall(syscall_nr_socketcall,sockcallnr,TSysParam(@args));
+  internal_socketerror:=fpgeterrno;
 end;
 
 
-function SocketCall(SockCallNr,a1,a2,a3:TSysParam):longint;
+function SocketCall(SockCallNr,a1,a2,a3:TSysParam):cint;inline;
 begin
   SocketCall:=SocketCall(SockCallNr,a1,a2,a3,0,0,0);
-  internal_socketerror:=fpgeterrno;
 end;
 
 function  fpsocket (domain:cint; xtype:cint; protocol: cint):cint;