Changeset 75 for trunk/Packages/CoolAudio/Systems/DSP/AudioSystemDSP.pas

Timestamp:

Mar 26, 2024, 11:27:01 PM (8 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio package unit names.

File:

• trunk/Packages/CoolAudio/Systems/DSP/AudioSystemDSP.pas (moved) (moved from trunk/Packages/CoolAudio/Systems/DSP/UAudioSystemDSP.pas ) (4 diffs)

trunk/Packages/CoolAudio/Systems/DSP/AudioSystemDSP.pas

@@ -1 @@
-unit UAudioSystemDSP;
+unit AudioSystemDSP;
 
-{$I UCoolAudioConfig.inc}
-{$mode delphi}{$H+}
+{$I CoolAudioConfig.inc}
 
 interface
@@ -8 +7 @@
 {$IFDEF AudioSystemDSP}
 uses
-  Classes, SysUtils, UAudioSystem, BaseUnix, UWavFile, StdCtrls, ExtCtrls;
+  Classes, SysUtils, AudioSystem, BaseUnix, WavFile, ExtCtrls;
 
 type
@@ -70 +69 @@
 {$ENDIF}
 
+
 implementation
 
@@ -83 +83 @@
 procedure TAudioSystemDSP.OpenDevice;
 var
-  Stereo, Error: Longint;
+  Stereo: Longint;
 begin
   Write('Openning /dev/dsp');