diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 22:38:23 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-05-08 22:38:23 +1200 |
| commit | ff9d5644c4cb6772dc9b834d1fbb04614f083974 (patch) | |
| tree | 97a7700dcf4dbace8197b2a28bf2b499908db0f7 /src/libsndfile.adb | |
| parent | 3ed0edef137c4b577646c35e0f5beddfb9f57555 (diff) | |
Constants marked constant, things that should be ignored are ignored
Diffstat (limited to 'src/libsndfile.adb')
| -rw-r--r-- | src/libsndfile.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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); |