From cf4b0a218579c445d5ec705787f570bc8f0d6b47 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 8 Feb 2006 23:24:39 +0000
Subject: [PATCH] * flock will get a pascal implementation on Solaris

git-svn-id: trunk@2490 -
---
 rtl/unix/unxdeclh.inc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/rtl/unix/unxdeclh.inc b/rtl/unix/unxdeclh.inc
index 3a82bce2b3..d00e5ad71a 100644
--- a/rtl/unix/unxdeclh.inc
+++ b/rtl/unix/unxdeclh.inc
@@ -16,9 +16,7 @@
 type filedesarray=array[0..1] of cint;
 
 {$ifdef solaris}
-{ libucb needs libelf }
-{$linklib elf}
-Function fpFlock (fd,mode : longint) : cint; cdecl; external 'ucb' name 'flock';
+Function fpFlock (fd,mode : longint) : cint;{$ifdef IN_SYSTEM}forward;{$endif IN_SYSTEM}
 {$else solaris}
 Function fpFlock (fd,mode : longint) : cint; cdecl; external clib name 'flock';
 {$endif solaris}