# HG changeset patch # User unc0rr # Date 1190483414 0 # Node ID 8cf6d27cec869f23f6a2f266d5bc1b874477a224 # Parent 9b5a6200f667935041f6b1a296ad403ab95d7378 Fix warnings diff -r 9b5a6200f667 -r 8cf6d27cec86 hedgewars/hwengine.dpr --- a/hedgewars/hwengine.dpr Sat Sep 22 17:04:28 2007 +0000 +++ b/hedgewars/hwengine.dpr Sat Sep 22 17:50:14 2007 +0000 @@ -21,7 +21,6 @@ {$ENDIF} program hwengine; -{$APPTYPE CONSOLE} uses SDLh, uConsts in 'uConsts.pas', diff -r 9b5a6200f667 -r 8cf6d27cec86 hedgewars/uFloat.pas --- a/hedgewars/uFloat.pas Sat Sep 22 17:04:28 2007 +0000 +++ b/hedgewars/uFloat.pas Sat Sep 22 17:50:14 2007 +0000 @@ -62,6 +62,7 @@ function SignAs(const num, signum: hwFloat): hwFloat; {$J-} +{$WARNINGS OFF} const _1div1024: hwFloat = (isNegative: false; QWordValue: 4194304); _1div10000: hwFloat = (isNegative: false; QWordValue: 429496); _1div50000: hwFloat = (isNegative: false; QWordValue: 85899); @@ -115,12 +116,13 @@ _30: hwFloat = (isNegative: false; QWordValue: 4294967296 * 30); _128: hwFloat = (isNegative: false; QWordValue: 4294967296 * 128); _450: hwFloat = (isNegative: false; QWordValue: 4294967296 * 450); - _1024: hwFloat = (isNegative: false; QWordValue: 4398046511104); - _2048: hwFloat = (isNegative: false; QWordValue: 8796093022208); + _1024: hwFloat = (isNegative: false; QWordValue: 4294967296 * 1024); + _2048: hwFloat = (isNegative: false; QWordValue: 4294967296 * 2048); _10000: hwFloat = (isNegative: false; QWordValue: 4294967296 * 10000); cLittle: hwFloat = (isNegative: false; QWordValue: 1); cHHKick: hwFloat = (isNegative: false; QWordValue: 128849018); // _0_03 +{$WARNINGS ON} {$ENDIF} {$IFNDEF FPC} diff -r 9b5a6200f667 -r 8cf6d27cec86 hedgewars/uSound.pas --- a/hedgewars/uSound.pas Sat Sep 22 17:04:28 2007 +0000 +++ b/hedgewars/uSound.pas Sat Sep 22 17:50:14 2007 +0000 @@ -37,8 +37,10 @@ const chanTPU = 12; var Mus: PMixMusic = nil; + Volume: LongInt; +{$IFDEF HAVE_MUSIC} CurrMusic: Longword = 0; - Volume: LongInt; +{$ENDIF} procedure InitSound; begin