From ce03f86070c096a59f6774317655485f98f5da70 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 18 Jul 2022 18:03:12 +0300
Subject: [PATCH] gl: fix flickering

---
 src/game/Doom2DF.lpr                 | 3 ---
 src/game/g_menu.pas                  | 3 ---
 src/game/g_netmaster.pas             | 3 ---
 src/game/renders/opengl/r_render.pas | 2 +-
 4 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr
index 98c39b5..1e358b9 100644
--- a/src/game/Doom2DF.lpr
+++ b/src/game/Doom2DF.lpr
@@ -343,9 +343,6 @@ begin
     {$IFDEF ENABLE_RENDER}
       r_Render_Draw;
     {$ENDIF}
-    {$IFDEF ENABLE_SYSTEM}
-      sys_Repaint;
-    {$ENDIF}
     Frame := Time
   end
   else
diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index 9749ad0..7afe98d 100644
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -895,9 +895,6 @@ begin
   {$IFDEF ENABLE_RENDER}
     r_Render_Draw;
   {$ENDIF}
-  {$IFDEF ENABLE_SYSTEM}
-    sys_Repaint;
-  {$ENDIF}
 
   slReturnPressed := True;
   if g_Net_Slist_Fetch(slCurrent) then
diff --git a/src/game/g_netmaster.pas b/src/game/g_netmaster.pas
index 2774b44..e92b087 100644
--- a/src/game/g_netmaster.pas
+++ b/src/game/g_netmaster.pas
@@ -1793,9 +1793,6 @@ begin
       {$IFDEF ENABLE_RENDER}
         r_Render_Draw;
       {$ENDIF}
-      {$IFDEF ENABLE_SYSTEM}
-        sys_Repaint;
-      {$ENDIF}
 
       if g_Net_Slist_Fetch(SL) then
       begin
diff --git a/src/game/renders/opengl/r_render.pas b/src/game/renders/opengl/r_render.pas
index ec08bf1..ff02eba 100644
--- a/src/game/renders/opengl/r_render.pas
+++ b/src/game/renders/opengl/r_render.pas
@@ -485,8 +485,8 @@ implementation
 
     // TODO draw holmes interface
 
-    glFinish();
     glFlush();
+    glFinish();
     sys_Repaint;
   end;
 
-- 
2.29.2