From 97df98beefa9cc088a5b68899dd90baf67d175c5 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 10 Apr 2025 13:52:17 +1200 Subject: Addresses of first element of null arrays are now null pointers --- body/fltk-widgets-groups-text_displays.adb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'body/fltk-widgets-groups-text_displays.adb') diff --git a/body/fltk-widgets-groups-text_displays.adb b/body/fltk-widgets-groups-text_displays.adb index 0b70bf6..ac1f6e9 100644 --- a/body/fltk-widgets-groups-text_displays.adb +++ b/body/fltk-widgets-groups-text_displays.adb @@ -1009,7 +1009,9 @@ package body FLTK.Widgets.Groups.Text_Displays is fl_text_display_highlight_data (This.Void_Ptr, Wrapper (Buff).Void_Ptr, - Storage.To_Integer (Table (Table'First)'Address), + (if Table'Length > 0 + then Storage.To_Integer (Table (Table'First)'Address) + else Null_Pointer), Table'Length); end Highlight_Data; @@ -1025,7 +1027,9 @@ package body FLTK.Widgets.Groups.Text_Displays is fl_text_display_highlight_data2 (This.Void_Ptr, Wrapper (Buff).Void_Ptr, - Storage.To_Integer (Table (Table'First)'Address), + (if Table'Length > 0 + then Storage.To_Integer (Table (Table'First)'Address) + else Null_Pointer), Table'Length, Interfaces.C.To_C (Unfinished), Storage.To_Integer (Style_Hook'Address), -- cgit