Fix integer->SmallInt
authorunc0rr
Thu, 08 Oct 2009 13:38:50 +0000 (2009-10-08)
changeset 2410 e7bbb27b24b3
parent 2409 dbf195c3e09c
child 2411 c643672ae9a5
Fix integer->SmallInt
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;