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

opengl.renderer.lean: Add extra checks for GL errors.

Browse Source
This commit is contained in:
Rod Kay
2025-03-20 22:31:20 +11:00
parent 082693f3e8
commit b92a5ed84c
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb
View File

@@ -600,9 +600,12 @@ is
begin begin
Tasks.check; Tasks.check;
Errors.log;
if clear_Frame then if clear_Frame
then
Self.clear_Frame; Self.clear_Frame;
Errors.log;
end if; end if;
--------------------- ---------------------
@@ -624,12 +627,14 @@ is
or ( the_Visual.Model.opaque_Geometries = null or ( the_Visual.Model.opaque_Geometries = null
and the_Visual.Model. lucid_Geometries = null) and the_Visual.Model. lucid_Geometries = null)
then then
Errors.log;
the_Visual.Model.create_GL_Geometries (Self.Textures'Access, Self.Fonts); the_Visual.Model.create_GL_Geometries (Self.Textures'Access, Self.Fonts);
-- put_Line ("Rebuild"); -- put_Line ("Rebuild");
elsif the_Visual.Model.is_Modified elsif the_Visual.Model.is_Modified
then then
the_Visual.Model.modify; the_Visual.Model.modify;
Errors.log;
end if; end if;
declare declare
@@ -660,6 +665,9 @@ is
end; end;
end; end;
put_Line ("the_Visuals (" & Each'Image & ") =>");
Errors.log;
end loop; end loop;
Errors.log; Errors.log;