# HG changeset patch
# User unc0rr
# Date 1416079178 -10800
# Node ID a888e649bea2e667f12cb380cb2c1e9fc6e85193
# Parent  89e8d6d05dfa561ac722088c8751da3052924cd9
Fix difference in map generation between fpc and pas2c engine

diff -r 89e8d6d05dfa -r a888e649bea2 hedgewars/uLandGenTemplateBased.pas
--- a/hedgewars/uLandGenTemplateBased.pas	Sat Nov 15 09:43:21 2014 -0500
+++ b/hedgewars/uLandGenTemplateBased.pas	Sat Nov 15 22:19:38 2014 +0300
@@ -149,7 +149,7 @@
         if t1 > 0 then distL:= d else distR:= d;
 
         // right border
-        iy:= (rightX - mapBorderMargin - mp.x) * b div a + mp.y;
+        iy:= (LongInt(rightX) - mapBorderMargin - mp.x) * b div a + mp.y;
         d:= DistanceI(mp.x - rightX + mapBorderMargin, mp.y - iy).Round;
         if t1 > 0 then distR:= d else distL:= d;
     end else
diff -r 89e8d6d05dfa -r a888e649bea2 hedgewars/uUtils.pas
--- a/hedgewars/uUtils.pas	Sat Nov 15 09:43:21 2014 -0500
+++ b/hedgewars/uUtils.pas	Sat Nov 15 22:19:38 2014 +0300
@@ -516,7 +516,11 @@
             logfileBase:= 'game';
     end
     else
+        {$IFDEF PAS2C}
         logfileBase:= 'preview';
+        {$ELSE}
+        logfileBase:= 'preview_pas2c';
+        {$ENDIF}
 {$IFDEF USE_VIDEO_RECORDING}
     InitCriticalSection(logMutex);
 {$ENDIF}