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

opengl.geometry: Change mode of the 'Self' parameter in 'enable_Texture' to 'in out'.

Browse Source
This commit is contained in:
Rod Kay
2023-05-05 03:50:30 +10:00
parent 84283a72ea
commit ba8a471557
4 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb
View File

@@ -192,7 +192,7 @@ is
overriding overriding
procedure enable_Texture (Self : in Item) procedure enable_Texture (Self : in out Item)
is is
use GL, use GL,
GL.Binding, GL.Binding,

3
3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads
View File

@@ -41,7 +41,8 @@ private
null; null;
end record; end record;
overriding overriding
procedure enable_Texture (Self : in Item); procedure enable_Texture (Self : in out Item);
end openGL.Geometry.colored_textured; end openGL.Geometry.colored_textured;

2
3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb
View File

@@ -258,7 +258,7 @@ is
overriding overriding
procedure enable_Texture (Self : in Item) procedure enable_Texture (Self : in out Item)
is is
begin begin
null; null;

3
3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads
View File

@@ -51,7 +51,8 @@ private
type Item is new Geometry.item with null record; type Item is new Geometry.item with null record;
overriding overriding
procedure enable_Texture (Self : in Item); procedure enable_Texture (Self : in out Item);
end openGL.Geometry.lit_colored_skinned; end openGL.Geometry.lit_colored_skinned;