From f8c25e9905f0c0381b492eeec4859892f279a3a2 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 30 Dec 2005 18:58:57 +0000
Subject: [PATCH]  * setsockopt detail bug

git-svn-id: trunk@2083 -
---
 rtl/freebsd/unixsock.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/freebsd/unixsock.inc b/rtl/freebsd/unixsock.inc
index 1e63b6859b..e2443c210e 100644
--- a/rtl/freebsd/unixsock.inc
+++ b/rtl/freebsd/unixsock.inc
@@ -91,7 +91,7 @@ end;
 
 function  fpsetsockopt  (s:cint; level:cint; optname:cint; optval:pointer; optlen : tsocklen):cint;
 begin
-  fpSetSockOpt:=do_syscall(syscall_nr_SetSockOpt,S,optname,TSysParam(optval),optlen);
+  fpSetSockOpt:=do_syscall(syscall_nr_SetSockOpt,S,level,optname,TSysParam(optval),optlen);
   socketerror:=fpgeterrno;
 end;