Skip to content

Commit 728ae52

Browse files
Merge branch 'topic/miranda-1292-gtkada' into 'master'
Fix sources after enforcing RM 8.6(27.1) in the compiler See merge request eng/ide/gtkada!34
2 parents 6106d46 + 26be71a commit 728ae52

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/gtkada-canvas_view.ads

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -589,7 +589,7 @@ package Gtkada.Canvas_View is
589589
(Self : not null access Canvas_Item_Record;
590590
Dummy_At_Point : Model_Point;
591591
Dummy_Context : Draw_Context)
592-
return Abstract_Item is (Self);
592+
return Abstract_Item is (Abstract_Item (Self));
593593
overriding function Position
594594
(Self : not null access Canvas_Item_Record) return Gtkada.Style.Point;
595595
overriding function Contains
@@ -2027,7 +2027,7 @@ package Gtkada.Canvas_View is
20272027
(Self : not null access Canvas_Link_Record;
20282028
Dummy_At_Point : Model_Point;
20292029
Dummy_Context : Draw_Context)
2030-
return Abstract_Item is (Self);
2030+
return Abstract_Item is (Abstract_Item (Self));
20312031
overriding function Parent
20322032
(Self : not null access Canvas_Link_Record)
20332033
return Abstract_Item is (null);

0 commit comments

Comments
 (0)