X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Flib%2Fsdl2%2FSDL2_mixer.pas;h=4a3890c1e424b446bba1d13b97763ec94f8a701f;hb=38aa53a928bfd866089bb111aabd59413db225c3;hp=e7f8131ea8039e5f5afa9d53e2a97fdf27f97f44;hpb=30bcb89f4decd5b5885ebde1fbb943b6563b1e3e;p=d2df-sdl.git

diff --git a/src/lib/sdl2/SDL2_mixer.pas b/src/lib/sdl2/SDL2_mixer.pas
index e7f8131..4a3890c 100644
--- a/src/lib/sdl2/SDL2_mixer.pas
+++ b/src/lib/sdl2/SDL2_mixer.pas
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 unit SDL2_mixer;
 
 {*
@@ -25,7 +26,7 @@ unit SDL2_mixer;
    ----------
 
    v.1.72-stable; 29.09.2013: fixed bug with procedures without parameters
-                              (they must have brackets)  
+                              (they must have brackets)
    v.1.70-stable; 16.09.2013: Initial Commit
 
 *}
@@ -44,6 +45,7 @@ const
 
   {$IFDEF UNIX}
     {$IFDEF DARWIN}
+      {$LINKLIB libSDL2_mixer}
       MIX_LibName = 'libSDL2_mixer.dylib';
     {$ELSE}
       {$IFDEF FPC}
@@ -257,7 +259,7 @@ function Mix_GetMusicHookData: Pointer cdecl; external MIX_LibName {$IFDEF DELPH
    *  before calling your callback.
    *}
 type
-  TMix_Channel_Finished = procedure(channel: Integer);
+  TMix_Channel_Finished = procedure(channel: Integer); cdecl;
 procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished) cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_ChannelFinished' {$ENDIF} {$ENDIF};
 
   {* Special Effects API by ryan c. gordon. (icculus@icculus.org) *}