From d6733d8e7dd555b965d4ccc93a3a8ae4d306dfc0 Mon Sep 17 00:00:00 2001
From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sat, 12 Oct 2019 05:35:55 +0300
Subject: [PATCH] window: touch: some fixes for headless

---
 src/game/g_touch.pas  | 2 ++
 src/game/g_window.pas | 2 ++
 2 files changed, 4 insertions(+)

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;
-- 
2.29.2