diff --git a/3-mid/opengl/library/opengl_core.gpr b/3-mid/opengl/library/opengl_core.gpr index 23977df..f3bf032 100644 --- a/3-mid/opengl/library/opengl_core.gpr +++ b/3-mid/opengl/library/opengl_core.gpr @@ -30,7 +30,19 @@ is "../source/platform/" & external ("opengl_platform", "egl") & "/private", "../source/platform/" & external ("opengl_platform", "egl") & "/private/thin"); - + package Naming + is + case Lace_shared.lace_Build_Mode + is + when "debug" => + for Body ("openGL.Errors.Debugging") use "opengl-errors-debugging.adb"; + + when others => + for Body ("openGL.Errors.Debugging") use "opengl-errors-not_debugging.adb"; + end case; + end Naming; + + package Builder renames Lace_shared.Builder; diff --git a/3-mid/opengl/source/opengl-errors-debugging.adb b/3-mid/opengl/source/opengl-errors-debugging.adb new file mode 100644 index 0000000..126ad2d --- /dev/null +++ b/3-mid/opengl/source/opengl-errors-debugging.adb @@ -0,0 +1,7 @@ +separate (openGL.Errors) + +function Debugging return Boolean +is +begin + return True; +end Debugging; diff --git a/3-mid/opengl/source/opengl-errors-not_debugging.adb b/3-mid/opengl/source/opengl-errors-not_debugging.adb new file mode 100644 index 0000000..2b69ab2 --- /dev/null +++ b/3-mid/opengl/source/opengl-errors-not_debugging.adb @@ -0,0 +1,7 @@ +separate (openGL.Errors) + +function Debugging return Boolean +is +begin + return False; +end Debugging; diff --git a/3-mid/opengl/source/opengl-errors.adb b/3-mid/opengl/source/opengl-errors.adb index 20141bb..63b8351 100644 --- a/3-mid/opengl/source/opengl-errors.adb +++ b/3-mid/opengl/source/opengl-errors.adb @@ -70,4 +70,9 @@ is end log; + + + function Debugging return Boolean is separate; + + end openGL.Errors; diff --git a/3-mid/opengl/source/opengl-errors.ads b/3-mid/opengl/source/opengl-errors.ads index 3ff911b..765b916 100644 --- a/3-mid/opengl/source/opengl-errors.ads +++ b/3-mid/opengl/source/opengl-errors.ads @@ -22,4 +22,9 @@ is -- Clears any existing error. -- Sets 'Error_occurred' to true, if a GL error was detected. + + function Debugging return Boolean; + -- + -- True when the build mode is + end openGL.Errors;