From 620c9cedb6880f28a2b3657a5d55d120bf83e9ba Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 23 Mar 2025 13:10:56 +1300
Subject: Improved project files, constant variables now constant

---
 body/fltk-images.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'body/fltk-images.adb')

diff --git a/body/fltk-images.adb b/body/fltk-images.adb
index 3ce3bee..3d5dce7 100644
--- a/body/fltk-images.adb
+++ b/body/fltk-images.adb
@@ -6,7 +6,7 @@
 
 with
 
-    Interfaces.C.Strings;
+    Interfaces.C;
 
 use type
 
@@ -181,7 +181,7 @@ package body FLTK.Images is
     procedure Raise_Fail_Errors
            (This : in Image'Class)
     is
-        Result : Interfaces.C.int := fl_image_fail (This.Void_Ptr);
+        Result : constant Interfaces.C.int := fl_image_fail (This.Void_Ptr);
     begin
         if Result = fl_image_err_no_image and This.Is_Empty then
             raise No_Image_Error;
-- 
cgit