From d605088c960506b96a169bb77b403d7c96cd593d Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 25 Jan 2012 14:30:05 +0000
Subject: [PATCH] fpsound: Removes unused code

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2267 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpsound/fpsound_openal.pas | 38 ---------------------------
 1 file changed, 38 deletions(-)

diff --git a/components/fpsound/fpsound_openal.pas b/components/fpsound/fpsound_openal.pas
index ec5f30dd2..de191eb7d 100644
--- a/components/fpsound/fpsound_openal.pas
+++ b/components/fpsound/fpsound_openal.pas
@@ -49,44 +49,6 @@ type
 
 implementation
 
-(*type
-  TOpenALThread = class(TThread)
-  private
-
-  public
-    FAOwner: TStream;
-    constructor Create(aOwner: TStream);
-    destructor Destroy; override;
-    procedure Execute; override;
-    procedure DoOpenALPlay;
-  end;
-
-var
-  TheLastThread: TOpenALThread;
-
-constructor TOpenALThread.Create(aOwner: TStream);
-begin
-  inherited Create(False);
-  FAOwner := aOwner;
-  FreeOnTerminate := True;
-end;
-
-destructor TOpenALThread.Destroy;
-begin
-
-  inherited Destroy;
-end;
-
-procedure TOpenALThread.Execute;
-begin
-  Synchronize(@DoOpenALPlay);
-end;
-
-procedure TOpenALThread.DoOpenALPlay;
-begin
-  OPCSoundPlayStreamEx(FAOwner);
-end;*)
-
 procedure TOpenALPlayer.alStop;
 begin
   alSourceStop(al_source);