--- a/hedgewars/uLocale.pas	Sat Sep 12 19:00:52 2015 +0200
+++ b/hedgewars/uLocale.pas	Sat Sep 12 20:01:26 2015 +0200
@@ -20,7 +20,7 @@
 
 unit uLocale;
 interface
-uses uTypes;
+uses uTypes{$IFNDEF PAS2C}, gettext{$ENDIF};
 
 const MAX_EVENT_STRINGS = 100;
 
@@ -33,6 +33,8 @@
 procedure LoadLocaleWrapper(path: pchar; filename: pchar); cdecl; export;
 {$ENDIF}
 
+{$IFNDEF PAS2C}var locMOFile: TMOFile;{$ENDIF}
+
 implementation
 uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer;
 
@@ -52,6 +54,10 @@
 f:= pfsOpenRead(FileName);
 TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
 
+{$IFNDEF PAS2C}
+locMOFile:= TMOFile.Create('/home/r/dev/hw/.hg-gettext_build/share/hedgewars/Data/Locale/de.mo');
+{$ENDIF}
+
 s:= '';
 
 if f <> nil then