hedgewars/uSound.pas
changeset 5052 74a81c276d67
parent 4976 088d40d8aba2
child 5107 d7fc678d78f4
equal deleted inserted replaced
5051:7b5fa8d3c904 5052:74a81c276d67
   227     LoopSound:= LoopSound(snd, nil, fadems)
   227     LoopSound:= LoopSound(snd, nil, fadems)
   228 end;
   228 end;
   229 
   229 
   230 function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt;
   230 function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt;
   231 begin
   231 begin
       
   232     voicepack:= voicepack;    // avoid compiler hint
   232     LoopSound:= LoopSound(snd, nil, 0)
   233     LoopSound:= LoopSound(snd, nil, 0)
   233 end;
   234 end;
   234 
   235 
   235 function LoopSound(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt;
   236 function LoopSound(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt;
   236 var s: shortstring;
   237 var s: shortstring;