opengl.shader: Comment out debug code.

2023-05-07 12:22:03 +10:00
parent f7b88262be
commit e1bec3b089
1 changed files with 6 additions and 6 deletions
--- 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;