Просмотр исходного кода

+ support dotted units in fpalsa

Nikolay Nikolov 1 день назад
Родитель
Сommit
cda720c16f

+ 3 - 0
packages/fpalsa/namespaced/Api.ALSA.ASoundLib.pp

@@ -0,0 +1,3 @@
+unit Api.ALSA.ASoundLib;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i asoundlib.pp}

+ 6 - 0
packages/fpalsa/src/asoundlib.pp

@@ -27,7 +27,9 @@
  *
  *}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit asoundlib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE objfpc}
 {$PACKRECORDS c}
@@ -36,7 +38,11 @@ unit asoundlib;
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.CTypes, UnixApi.Base;
+{$ELSE FPC_DOTTEDUNITS}
   ctypes, BaseUnix;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   libasound = 'asound';