From beaf98f79d691d0b67cadc1dee7f38a822f3f747 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 11 Mar 2023 09:39:15 +1300 Subject: Empty extended return statements to get around weird dangling reference error --- src/fltk-widgets-menus.adb | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb index 817776e..d2bf2ff 100644 --- a/src/fltk-widgets-menus.adb +++ b/src/fltk-widgets-menus.adb @@ -435,7 +435,9 @@ package body FLTK.Widgets.Menus is begin Wrapper (This.My_Items (Place).all).Void_Ptr := fl_menu_get_item (This.Void_Ptr, Interfaces.C.int (Place) - 1); - return (Data => This.My_Items (Place)); + return R : FLTK.Menu_Items.Menu_Item_Reference := (Data => This.My_Items (Place)) do + null; + end return; end Item; @@ -460,7 +462,9 @@ package body FLTK.Widgets.Menus is end if; Wrapper (This.My_Items (Place).all).Void_Ptr := fl_menu_find_item (This.Void_Ptr, Interfaces.C.To_C (Name)); - return (Data => This.My_Items (Place)); + return R : FLTK.Menu_Items.Menu_Item_Reference := (Data => This.My_Items (Place)) do + null; + end return; end Find_Item; @@ -476,7 +480,9 @@ package body FLTK.Widgets.Menus is end if; Wrapper (This.My_Items (Place).all).Void_Ptr := fl_menu_find_item2 (This.Void_Ptr, Callback_Convert.To_Address (Action)); - return (Data => This.My_Items (Place)); + return R : FLTK.Menu_Items.Menu_Item_Reference := (Data => This.My_Items (Place)) do + null; + end return; end Find_Item; @@ -590,7 +596,9 @@ package body FLTK.Widgets.Menus is raise No_Reference; end if; Wrapper (This.My_Items (Place).all).Void_Ptr := fl_menu_mvalue (This.Void_Ptr); - return (Data => This.My_Items (Place)); + return R : FLTK.Menu_Items.Menu_Item_Reference := (Data => This.My_Items (Place)) do + null; + end return; end Chosen; -- cgit