mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compiling with FPC 2.4.0 and 2.4.2

Browse source
This commit is contained in:
Alexander Koblov 2010-11-22 20:47:07 +00:00
commit e4436d7faf
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/platform/unix/uudisks.pas
View file

@ -58,6 +58,20 @@ implementation
uses
dbus, fgl, ExtCtrls;
{$IF (FPC_VERSION <= 2) and (FPC_RELEASE <= 4) and (FPC_PATCH <= 2)}
type
DBusHandleMessageFunction = function(connection: PDBusConnection;
message_: PDBusMessage; user_data: Pointer): DBusHandlerResult; cdecl;
{ Filters }
function dbus_connection_add_filter(connection: PDBusConnection;
function_: DBusHandleMessageFunction;
user_data: Pointer; free_data_function: DBusFreeFunction): dbus_bool_t; cdecl; external LibDBus;
procedure dbus_connection_remove_filter (connection: PDBusConnection;
function_: DBusHandleMessageFunction; user_data: Pointer); cdecl; external LibDBus;
{$ENDIF}
type
TUDisksObserverList = specialize TFPGList<TUDisksDeviceNotify>;