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

opengl.shader: Only show debug info when in debug build mode.

Browse Source
This commit is contained in:
Rod Kay
2024-04-24 20:05:09 +10:00
parent 55cac1b347
commit 0889c6c07c
1 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -17,6 +17,7 @@ with
package body openGL.Shader package body openGL.Shader
is is
use GL.lean, use GL.lean,
openGL.Errors,
Interfaces; Interfaces;
----------- -----------
@@ -85,14 +86,6 @@ is
begin begin
Tasks.check; Tasks.check;
-- new_Line (20);
-- for i in the_Source'Range
-- loop
-- put (Character (the_Source (i)));
-- end loop;
Self.Kind := Kind; Self.Kind := Kind;
if Kind = Vertex if Kind = Vertex
@@ -118,7 +111,8 @@ is
glGetShaderiv (self.gl_Shader, glGetShaderiv (self.gl_Shader,
GL_COMPILE_STATUS, GL_COMPILE_STATUS,
Status'unchecked_Access); Status'unchecked_Access);
if Status = 0 if Status = 0
and Debugging
then then
declare declare
use ada.Text_IO; use ada.Text_IO;
@@ -156,8 +150,8 @@ is
the_Source : aliased constant C.char_array := to_C_char_array (shader_Snippets); the_Source : aliased constant C.char_array := to_C_char_array (shader_Snippets);
begin begin
-- if Debug if Debugging
-- then then
new_Line; new_Line;
put_Line ("Shader snippets:"); put_Line ("Shader snippets:");
@@ -177,7 +171,7 @@ is
new_Line; new_Line;
new_Line; new_Line;
new_Line; new_Line;
-- end if; end if;
create_Shader (Self, Kind, the_Source); create_Shader (Self, Kind, the_Source);
end define; end define;