# HG changeset patch # User unc0rr # Date 1388912930 -14400 # Node ID 0c6286c67b8de43527d300533d1033941bc9498b # Parent bf51bc7e28080c587b96a19f578016186b6556ab Prevent assertion on uninitialized variable diff -r bf51bc7e2808 -r 0c6286c67b8d hedgewars/uLocale.pas --- a/hedgewars/uLocale.pas Sun Jan 05 10:54:03 2014 +0400 +++ b/hedgewars/uLocale.pas Sun Jan 05 13:08:50 2014 +0400 @@ -63,10 +63,10 @@ continue; TryDo(Length(s) > 6, 'Load locale: empty string', true); val(s[1]+s[2], a{$IFNDEF PAS2C}, c{$ENDIF}); - TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true); + {$IFNDEF PAS2C}TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true);{$ENDIF} TryDo(s[3] = ':', 'Load locale: ":" expected', true); val(s[4]+s[5], b{$IFNDEF PAS2C}, c{$ENDIF}); - TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true); + {$IFNDEF PAS2C}TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true);{$ENDIF} TryDo(s[6] = '=', 'Load locale: "=" expected', true); Delete(s, 1, 6); case a of