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

* flock will get a pascal implementation on Solaris

Browse Source 
git-svn-id: trunk@2490 -
This commit is contained in:
florian 2006-02-08 23:24:39 +00:00
parent 9005442652
commit cf4b0a2185
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/unxdeclh.inc
View File

@ -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}