From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sat, 12 Oct 2019 02:35:55 +0000 (+0300)
Subject: window: touch: some fixes for headless
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=d6733d8e7dd555b965d4ccc93a3a8ae4d306dfc0;p=d2df-sdl.git

window: touch: some fixes for headless
---

diff --git a/src/game/g_touch.pas b/src/game/g_touch.pas
index 6971879..a35a56e 100644
--- a/src/game/g_touch.pas
+++ b/src/game/g_touch.pas
@@ -295,7 +295,9 @@ implementation
   end;
 
   procedure g_Touch_Draw;
+{$IFNDEF HEADLESS}
     var i, x, y, w, h: Integer; founded: Boolean;
+{$ENDIF}
   begin
 {$IFNDEF HEADLESS}
     if not g_touch_enabled then
diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index b0c0678..3adb2b6 100644
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -790,7 +790,9 @@ var
 procedure ProcessLoading (forceUpdate: Boolean=false);
 var
   ev: TSDL_Event;
+{$IFNDEF HEADLESS}
   stt: UInt64;
+{$ENDIF}
 begin
   FillChar(ev, sizeof(ev), 0);
   wLoadingProgress := true;