--- 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