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

openGL.errors: Add missing errors.

Browse Source
This commit is contained in:
Rod Kay
2025-04-30 12:19:08 +10:00
parent 710fae02e7
commit ad4d1229d5
2 changed files with 20 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
3-mid/opengl/private/gl/source/gl.ads
View File

@@ -131,11 +131,15 @@ is
GL_POLYGON_OFFSET_FILL : constant := 16#8037#;
-- ErrorCode
GL_NO_ERROR : constant := 0;
GL_INVALID_ENUM : constant := 16#500#;
GL_INVALID_VALUE : constant := 16#501#;
GL_INVALID_OPERATION : constant := 16#502#;
GL_OUT_OF_MEMORY : constant := 16#505#;
GL_NO_ERROR : constant := 0;
GL_INVALID_ENUM : constant := 16#500#;
GL_INVALID_VALUE : constant := 16#501#;
GL_INVALID_OPERATION : constant := 16#502#;
GL_STACK_OVERFLOW : constant := 16#503#;
GL_STACK_UNDERFLOW : constant := 16#504#;
GL_OUT_OF_MEMORY : constant := 16#505#;
GL_INVALID_FRAMEBUFFER_OPERATION : constant := 16#506#;
GL_CONTEXT_LOST : constant := 16#507#;
-- FrontFaceDirection
GL_CW : constant := 16#900#;

17
3-mid/opengl/source/opengl-errors.adb
View File

@@ -21,12 +21,16 @@ is
begin
case the_Error
is
when GL.GL_NO_ERROR => return "no error";
when GL_INVALID_ENUM => return "invalid Enum";
when GL_INVALID_VALUE => return "invalid Value";
when GL_INVALID_OPERATION => return "invalid Operation";
when GL_OUT_OF_MEMORY => return "out of Memory";
when others => return "unknown openGL error detected (Code:" & the_Error'Image & ")";
when GL.GL_NO_ERROR => return "no error";
when GL_INVALID_ENUM => return "invalid Enum";
when GL_INVALID_VALUE => return "invalid Value";
when GL_INVALID_OPERATION => return "invalid Operation";
when GL_STACK_OVERFLOW => return "Stack overflow";
when GL_STACK_UNDERFLOW => return "Stack underflow";
when GL_OUT_OF_MEMORY => return "out of Memory";
when GL_INVALID_FRAMEBUFFER_OPERATION => return "invalid framebuffer Operation";
when GL_CONTEXT_LOST => return "Context lost";
when others => return "unknown openGL error detected (Code:" & the_Error'Image & ")";
end case;
end;
end if;
@@ -36,6 +40,7 @@ is
procedure log (Prefix : in String := "")
is
begin