From 1937fb28c511d7bc01ca94cf6a257d0bf44d5155 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Tue, 13 Feb 2024 17:10:36 +1100 Subject: [PATCH] opengl-texture: Check for errors when setting wrap parameters. --- 3-mid/opengl/source/lean/opengl-texture.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/3-mid/opengl/source/lean/opengl-texture.adb b/3-mid/opengl/source/lean/opengl-texture.adb index 9a8f57a..a54dc1d 100644 --- a/3-mid/opengl/source/lean/opengl-texture.adb +++ b/3-mid/opengl/source/lean/opengl-texture.adb @@ -265,10 +265,11 @@ is use type GL.GLuint; pragma Assert (Self.Name > 0); begin - gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); - gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); - Tasks.check; + + gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); Errors.log; + gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); Errors.log; + glBindTexture (GL.GL_TEXTURE_2D, Self.Name); Errors.log; end enable;