nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opengl.shader: Comment out debug code.

Browse Source
This commit is contained in:
Rod Kay
2023-05-07 12:22:03 +10:00
parent f7b88262be
commit e1bec3b089
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
3-mid/opengl/source/lean/shader/opengl-shader.adb
View File

@@ -74,7 +74,7 @@ is
is is
use GL.Pointers, use GL.Pointers,
C.Strings; C.Strings;
use ada.Text_IO; -- use ada.Text_IO;
use type interfaces.C.char_array; use type interfaces.C.char_array;
@@ -86,11 +86,11 @@ is
Tasks.check; Tasks.check;
new_Line (20); -- new_Line (20);
for i in the_Source'Range -- for i in the_Source'Range
loop -- loop
put (Character (the_Source (i))); -- put (Character (the_Source (i)));
end loop; -- end loop;
Self.Kind := Kind; Self.Kind := Kind;