window: touch: some fixes for headless

diff --git a/src/game/g_touch.pas b/src/game/g_touch.pas
index 697187971a198bea8a001a8badf3f9703206fd64..a35a56ef75fe8ce57750c0585153d04205d83387 100644 (file)
--- 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 b0c06786a82ac434609231d0d69d835d60e04256..3adb2b616da1f09af1dfb5c3c7f0b0b09e1689fe 100644 (file)
--- 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;