From ff9d5644c4cb6772dc9b834d1fbb04614f083974 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 8 May 2025 22:38:23 +1200 Subject: Constants marked constant, things that should be ignored are ignored --- src/libsndfile.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/libsndfile.adb') diff --git a/src/libsndfile.adb b/src/libsndfile.adb index 25cfd42..80f1d96 100644 --- a/src/libsndfile.adb +++ b/src/libsndfile.adb @@ -799,7 +799,7 @@ package body Libsndfile is Mode : in File_Mode; Info : in out File_Info'Class) is - Mode_Int : Interfaces.C.int := (case Mode is + Mode_Int : constant Interfaces.C.int := (case Mode is when Read_Only => sfm_read, when Write_Only => sfm_write, when Read_Write => sfm_rdwr); @@ -820,7 +820,7 @@ package body Libsndfile is (Info : in File_Info) return Boolean is - Result : Interfaces.C.int := asf_format_check (Info.Data); + Result : constant Interfaces.C.int := asf_format_check (Info.Data); begin if Result = sf_true then return True; @@ -1073,7 +1073,7 @@ package body Libsndfile is (File : in Sound_File) return Natural is - Result : Interfaces.C.int := sf_current_byterate (File.Ptr); + Result : constant Interfaces.C.int := sf_current_byterate (File.Ptr); begin if Result >= 0 then return Natural (Result); -- cgit