From e1bec3b08947a9fc8675495b29fd0082be371f36 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 7 May 2023 12:22:03 +1000 Subject: [PATCH] opengl.shader: Comment out debug code. --- 3-mid/opengl/source/lean/shader/opengl-shader.adb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/3-mid/opengl/source/lean/shader/opengl-shader.adb b/3-mid/opengl/source/lean/shader/opengl-shader.adb index 8e06507..a5cc086 100644 --- a/3-mid/opengl/source/lean/shader/opengl-shader.adb +++ b/3-mid/opengl/source/lean/shader/opengl-shader.adb @@ -74,7 +74,7 @@ is is use GL.Pointers, C.Strings; - use ada.Text_IO; + -- use ada.Text_IO; use type interfaces.C.char_array; @@ -86,11 +86,11 @@ is Tasks.check; - new_Line (20); - for i in the_Source'Range - loop - put (Character (the_Source (i))); - end loop; + -- new_Line (20); + -- for i in the_Source'Range + -- loop + -- put (Character (the_Source (i))); + -- end loop; Self.Kind := Kind;