# HG changeset patch
# User unc0rr
# Date 1255009130 0
# Node ID e7bbb27b24b3645476fc1cdda1a8f51846d9aebb
# Parent  dbf195c3e09ce24dfe2e69c4d42d5ee35375de4d
Fix integer->SmallInt

diff -r dbf195c3e09c -r e7bbb27b24b3 hedgewars/uSound.pas
--- a/hedgewars/uSound.pas	Thu Oct 08 00:58:17 2009 +0000
+++ b/hedgewars/uSound.pas	Thu Oct 08 13:38:50 2009 +0000
@@ -65,9 +65,9 @@
 function openal_toggleloop	(index: LongInt)			: boolean; cdecl; external OpenALBridge;
 function openal_setvolume	(index: LongInt; percentage: byte)	: boolean; cdecl; external OpenALBridge;
 function openal_setglobalvolume	(percentage: byte)			: boolean; cdecl; external OpenALBridge;
-function openal_fadeout		(index: LongInt; quantity: integer)	: boolean; cdecl; external OpenALBridge;
-function openal_fadein		(index: LongInt; quantity: integer)	: boolean; cdecl; external OpenALBridge;
-function openal_fade		(index: LongInt; quantity: integer; direction: boolean)	: boolean; cdecl; external OpenALBridge;
+function openal_fadeout		(index: LongInt; quantity: SmallInt)	: boolean; cdecl; external OpenALBridge;
+function openal_fadein		(index: LongInt; quantity: SmallInt)	: boolean; cdecl; external OpenALBridge;
+function openal_fade		(index: LongInt; quantity: SmallInt; direction: boolean)	: boolean; cdecl; external OpenALBridge;
 function openal_playsound	(index: LongInt)			: boolean; cdecl; external OpenALBridge;
 function openal_pausesound	(index: LongInt)			: boolean; cdecl; external OpenALBridge;
 function openal_stopsound	(index: LongInt)			: boolean; cdecl; external OpenALBridge;
@@ -85,7 +85,7 @@
 	defVoicepack: PVoicepack;
 	Mus: LongInt = 0;
 
-function  AskForVoicepack(name: shortstring): Pointer;
+function  AskForVoicepack(name: shortstring): PVoicepack;
 var i: Longword;
 begin
 i:= 0;
@@ -187,7 +187,7 @@
 
 procedure StopSound(snd: TSound);
 begin
-if not isSoundEnabled then exit;
+if isSoundEnabled then
 	openal_stopsound(lastChan[snd])
 end;