opengl.variable: Add a 'null_Variable' constant.

2023-05-05 01:04:06 +10:00
parent 1f6d5924c9
commit 9655567e96
1 changed files with 4 additions and 1 deletions
--- a/3-mid/opengl/source/lean/shader/opengl-variable.ads
+++ b/3-mid/opengl/source/lean/shader/opengl-variable.ads
@@ -20,9 +20,12 @@ is

 private

+   null_Variable : constant gl.GLint := gl.GLint'Last;
+
+
   type Item is abstract tagged
      record
-         gl_Variable : gl.GLint;
+         gl_Variable : gl.GLint := null_Variable;
      end record;

 end openGL.Variable;