|
@@ -239,15 +239,22 @@ loop on input bytes:
|
|
convert samples to integer and queue to soundcard
|
|
convert samples to integer and queue to soundcard
|
|
}
|
|
}
|
|
|
|
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit a52;
|
|
unit a52;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
{$MINENUMSIZE 4}
|
|
{$MINENUMSIZE 4}
|
|
|
|
|
|
interface
|
|
interface
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+ System.CTypes;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
ctypes;
|
|
ctypes;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{$UNDEF LIBA52_DOUBLE}
|
|
{$UNDEF LIBA52_DOUBLE}
|
|
|
|
|