From 177376ab6d6bfd32802f5ce0d70cfa69c729d116 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Sat, 24 Aug 2024 14:00:08 +1000
Subject: [PATCH] opengl.shader: Disable logging of shader programs.

---
 3-mid/opengl/source/lean/shader/opengl-shader.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/3-mid/opengl/source/lean/shader/opengl-shader.adb b/3-mid/opengl/source/lean/shader/opengl-shader.adb
index c0a5f26..55ec8f6 100644
--- a/3-mid/opengl/source/lean/shader/opengl-shader.adb
+++ b/3-mid/opengl/source/lean/shader/opengl-shader.adb
@@ -113,6 +113,7 @@ is
                         Status'unchecked_Access);
          if    Status = 0
            and Debugging
+           and False
          then
             declare
                use ada.Text_IO;
@@ -151,6 +152,7 @@ is
       the_Source : aliased constant C.char_array := to_C_char_array (shader_Snippets);
    begin
       if Debugging
+        and False
       then
          new_Line;
          put_Line ("Shader snippets:");