gl: optimize repeatable textures

[d2df-sdl.git] / src / game / renders / opengl / r_console.pas

diff --git a/src/game/renders/opengl/r_console.pas b/src/game/renders/opengl/r_console.pas
index 4487afbf4c059a164e478e205ba2508c97a34597..5c2f51999d266304d91e2b9ef120d152d6cf3636 100644 (file)
--- 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;