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

opengl.context: Add extra debugging message.

Browse Source
This commit is contained in:
Rod Kay
2024-04-24 12:41:30 +10:00
parent 081fcd860e
commit b9d9930a93
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
3-mid/opengl/source/platform/egl/opengl-context.adb
View File

@@ -4,6 +4,7 @@ with
opengl.Surface .privvy, opengl.Surface .privvy,
egl.Binding, egl.Binding,
ada.Text_IO,
System; System;
@@ -13,7 +14,7 @@ is
System; System;
procedure define (Self : in out Item; the_Display : access opengl.Display.item'Class; procedure define (Self : in out Item; the_Display : access opengl.Display.item'class;
the_surface_Profile : in opengl.surface_Profile.item) the_surface_Profile : in opengl.surface_Profile.item)
is is
use EGL, use EGL,
@@ -26,10 +27,12 @@ is
Self.egl_Context := eglCreateContext (to_eGL (the_Display.all), Self.egl_Context := eglCreateContext (to_eGL (the_Display.all),
to_eGL (the_surface_Profile), to_eGL (the_surface_Profile),
EGL_NO_CONTEXT, EGL_NO_CONTEXT,
contextAttribs (contextAttribs'First)'Unchecked_Access); contextAttribs (contextAttribs'First)'unchecked_Access);
if Self.egl_Context = EGL_NO_CONTEXT
if Self.egl_Context = EGL_NO_CONTEXT then then
raise opengl.Error with "Unable to create an EGL Context."; raise opengl.Error with "Unable to create an EGL Context.";
else
ada.Text_IO.put_Line ("Created a new eGL context.");
end if; end if;
Self.Display := the_Display; Self.Display := the_Display;
@@ -45,7 +48,7 @@ is
opengl.Surface.privvy; opengl.Surface.privvy;
use type EGLBoolean; use type EGLBoolean;
Success : constant EGLBoolean := eglmakeCurrent (to_eGL (Self.Display.all), Success : constant EGLBoolean := eGLmakeCurrent (to_eGL (Self.Display.all),
to_eGL (read_Surface), to_eGL (read_Surface),
to_eGL (write_Surface), to_eGL (write_Surface),
Self.egl_Context); Self.egl_Context);