hedgewars/uLocale.pas
branchwebgl
changeset 8850 ae8a957c69fd
parent 8444 75db7bb8dce8
child 9127 e350500c4edb
--- a/hedgewars/uLocale.pas	Thu Apr 04 00:32:57 2013 +0200
+++ b/hedgewars/uLocale.pas	Thu Apr 04 01:38:30 2013 +0200
@@ -62,10 +62,10 @@
         if (s[1] < '0') or (s[1] > '9') then
             continue;
         TryDo(Length(s) > 6, 'Load locale: empty string', true);
-        val(s[1]+s[2], a, c);
+        val(s[1]+s[2], a{$IFNDEF PAS2C}, c{$ENDIF});
         TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true);
         TryDo(s[3] = ':', 'Load locale: ":" expected', true);
-        val(s[4]+s[5], b, c);
+        val(s[4]+s[5], b{$IFNDEF PAS2C}, c{$ENDIF});
         TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true);
         TryDo(s[6] = '=', 'Load locale: "=" expected', true);
         Delete(s, 1, 6);