diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-10 13:52:17 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-10 13:52:17 +1200 |
| commit | 97df98beefa9cc088a5b68899dd90baf67d175c5 (patch) | |
| tree | d9754bb8274c04d9b351296a09bd00c5685c5ec3 /body/fltk-widgets-menus.adb | |
| parent | 8e59d5aa80705a03ad39d925c1c2ca0523d964a8 (diff) | |
Addresses of first element of null arrays are now null pointers
Diffstat (limited to 'body/fltk-widgets-menus.adb')
| -rw-r--r-- | body/fltk-widgets-menus.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/body/fltk-widgets-menus.adb b/body/fltk-widgets-menus.adb index 2837921..1295d76 100644 --- a/body/fltk-widgets-menus.adb +++ b/body/fltk-widgets-menus.adb @@ -751,7 +751,8 @@ package body FLTK.Widgets.Menus is (This : in out Menu; Items : in FLTK.Menu_Items.Menu_Item_Array) is - Pointers : aliased array (Items'First .. Items'Last + 1) of Storage.Integer_Address; + Pointers : aliased array + (Items'First .. Integer'Max (Items'First, Items'Last + 1)) of Storage.Integer_Address; pragma Convention (C, Pointers); begin for Place in Pointers'First .. Pointers'Last - 1 loop |