diff options
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); |