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

gel.Sprite: Rid ".all'Access" conversion from an access variable.

Browse Source
This commit is contained in:
Rod Kay
2023-04-28 21:56:21 +10:00
parent 19a8d22d90
commit c6fdf17ae2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
4-high/gel/source/gel-sprite.adb
View File

@@ -156,7 +156,7 @@ is
while not Self.child_Joints.is_Empty while not Self.child_Joints.is_Empty
loop loop
declare declare
child_Sprite : constant Sprite.view := Self.child_Joints.Last_Element.Sprite_B.all'Access; child_Sprite : constant Sprite.view := Self.child_Joints.last_Element.Sprite_B;
begin begin
Self.detach (child_Sprite); Self.detach (child_Sprite);