From cd9780147c51009d87cf38325c71c0290f6a3cbe Mon Sep 17 00:00:00 2001
From: dpethes <dejvu@email.cz>
Date: Mon, 15 Jun 2020 13:28:02 +0200
Subject: [PATCH] terrain viewer: fix tile block memory allocation

---
 terrain_viewer/terrain_mesh.pas   | 2 +-
 terrain_viewer/terrain_viewer.lpi | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/terrain_viewer/terrain_mesh.pas b/terrain_viewer/terrain_mesh.pas
index 76e369d..a476f5a 100644
--- a/terrain_viewer/terrain_mesh.pas
+++ b/terrain_viewer/terrain_mesh.pas
@@ -133,7 +133,7 @@ var
   blk: TTerrainBlock;
   tile: TTile;
 begin
-  SetLength(blocks, terrain.TileWidth, terrain.TileHeight);
+  SetLength(blocks, terrain.TileHeight, terrain.TileWidth);
   for y := 0 to terrain.TileHeight - 1 do begin
       for x := 0 to terrain.TileWidth - 1 do begin
           tile_idx := terrain.heightmap.blk[y * terrain.TileWidth + x];
diff --git a/terrain_viewer/terrain_viewer.lpi b/terrain_viewer/terrain_viewer.lpi
index 29490b1..56acab3 100644
--- a/terrain_viewer/terrain_viewer.lpi
+++ b/terrain_viewer/terrain_viewer.lpi
@@ -130,10 +130,7 @@
     </CodeGeneration>
     <Linking>
       <Debugging>
-        <DebugInfoType Value="dsDwarf2Set"/>
-        <UseHeaptrc Value="True"/>
         <TrashVariables Value="True"/>
-        <UseExternalDbgSyms Value="True"/>
       </Debugging>
     </Linking>
   </CompilerOptions>