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

opengl: Fix simple warnings and cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-09-20 12:31:05 +10:00
parent b679ac4bf5
commit f8cdf27998
46 changed files with 83 additions and 949 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
3-mid/opengl/source/lean/shader/opengl-shader.adb
View File

@@ -116,7 +116,6 @@ is
-- and False
then
declare
use ada.Text_IO;
compile_Log : constant String := Self.shader_info_Log;
begin
new_Line;
@@ -149,8 +148,7 @@ is
procedure define (Self : in out Item; Kind : in Shader.Kind;
shader_Snippets : in asset_Names)
is
use ada.Text_IO,
interfaces.C;
use interfaces.C;
the_Source : aliased constant C.char_array := to_C_char_array (shader_Snippets);
begin
@@ -251,14 +249,13 @@ is
function read_text_File (Filename : in String) return C.char_array
is
use ada.Text_IO,
ada.Strings.unbounded;
use ada.Strings.unbounded;
use type interfaces.C.size_t;
NL : constant String := "" & ada.characters.latin_1.LF;
the_File : ada.Text_IO.File_type;
Pad : unbounded_String;
NL : constant String := "" & ada.characters.latin_1.LF;
the_File : ada.Text_IO.File_type;
Pad : unbounded_String;
begin
if Filename = ""