X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Frenders%2Fopengl%2Fr_console.pas;h=5c2f51999d266304d91e2b9ef120d152d6cf3636;hb=315aac20797d3060960df924fad4b7c98f970b34;hp=4487afbf4c059a164e478e205ba2508c97a34597;hpb=903f156fdd7dd5ef4eedc7a99d96b56a0501ee24;p=d2df-sdl.git

diff --git a/src/game/renders/opengl/r_console.pas b/src/game/renders/opengl/r_console.pas
index 4487afb..5c2f519 100644
--- a/src/game/renders/opengl/r_console.pas
+++ b/src/game/renders/opengl/r_console.pas
@@ -29,7 +29,7 @@ interface
 implementation
 
   uses
-    Math, utils, conbuf,
+    Math, SysUtils, utils, conbuf,
     g_game, g_options, g_console, g_language,
     r_draw, r_textures, r_fonts, r_common
   ;
@@ -57,12 +57,12 @@ implementation
   procedure r_Console_Load;
   begin
     r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
-    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE');
+    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE', [TGLHints.txNoRepeat]);
   end;
 
   procedure r_Console_Free;
   begin
-    Background.Free;
+    r_Common_FreeAndNil(Background);
   end;
 
   procedure r_Console_Update;