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-images-rgb-jpeg.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'body/fltk-images-rgb-jpeg.adb') diff --git a/body/fltk-images-rgb-jpeg.adb b/body/fltk-images-rgb-jpeg.adb index 8706778..61d06e6 100644 --- a/body/fltk-images-rgb-jpeg.adb +++ b/body/fltk-images-rgb-jpeg.adb @@ -81,7 +81,9 @@ package body FLTK.Images.RGB.JPEG is return This : JPEG_Image do This.Void_Ptr := new_fl_jpeg_image2 (Interfaces.C.To_C (Name), - Storage.To_Integer (Data (Data'First)'Address)); + (if Data'Length > 0 + then Storage.To_Integer (Data (Data'First)'Address) + else Null_Pointer)); Raise_Fail_Errors (This); end return; end Create; -- cgit