paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* changed "directives" macro to "extdecl" to be more lazarus-friendly

Browse Source 
git-svn-id: trunk@4778 -
This commit is contained in:
Almindor 2006-10-03 16:38:36 +00:00
parent 578ea48763
commit 5d469b6847
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/bsd/bsd.pas
View File

@ -21,9 +21,9 @@ Unit BSD;
{$Inline On}
{$Macro On}
{$ifdef FPC_USE_LIBC}
{$define directives:=cdecl; external 'c';}
{$define extdecl:=cdecl; external 'c'}
{$else}
{$define directives:=inline;}
{$define extdecl:=inline}
{$endif}
{$ENDIF}
@ -101,10 +101,10 @@ type
uData : Pointer; { opaque user data identifier }
end;
function kqueue: cint; directives
function kqueue: cint; extdecl;
function kevent(kq: cint; ChangeList: PKEvent; nChanged: cint;
EventList: PKevent; nEvents: cint; Timeout: PTimeSpec): cint; directives
EventList: PKevent; nEvents: cint; Timeout: PTimeSpec): cint; extdecl;
procedure EV_SET(kevp: PKEvent; const aIdent: cuint; const aFilter: cshort;
const aFlags: cushort; const aFFlags: cuint;