diff options
Diffstat (limited to 'src/portaudio.adb')
| -rw-r--r-- | src/portaudio.adb | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/portaudio.adb b/src/portaudio.adb index 1b23daa..d34817e 100644 --- a/src/portaudio.adb +++ b/src/portaudio.adb @@ -10,7 +10,7 @@ pragma Ada_2012; with Ada.Strings.Fixed, - Interfaces.C.Strings; + Interfaces.C; use type @@ -477,9 +477,9 @@ package body Portaudio is (Num : in Time) return String is - Test_Out : String := Time'Image (Num); - Mark_Start : Integer := Test_Out'First; - Mark_End : Integer := Test_Out'Last; + Test_Out : constant String := Time'Image (Num); + Mark_Start : Integer := Test_Out'First; + Mark_End : Integer := Test_Out'Last; begin if Test_Out (Mark_Start) = ' ' then Mark_Start := Mark_Start + 1; @@ -499,14 +499,14 @@ package body Portaudio is return String is type Large_Hack is delta 10.0**(-10) digits 30; - Converted : Large_Hack := Large_Hack (Num); - Prelim : String := Large_Hack'Image (Converted); - Test_Out : String := + Converted : constant Large_Hack := Large_Hack (Num); + Prelim : constant String := Large_Hack'Image (Converted); + Test_Out : constant String := (if Prelim (Prelim'Last) /= '9' then Prelim elsif Prelim (Prelim'First) = '-' then Large_Hack'Image (Large_Hack'Pred (Converted)) else Large_Hack'Image (Large_Hack'Succ (Converted))); - Mark_Start : Integer := Test_Out'First + 1; - Mark_End : Integer := Test_Out'Last; + Mark_Start : constant Integer := Test_Out'First + 1; + Mark_End : Integer := Test_Out'Last; begin while Test_Out (Mark_End) = '0' loop Mark_End := Mark_End - 1; @@ -523,9 +523,9 @@ package body Portaudio is return String is type Two_Digit_Hack is delta 10.0**(-2) digits 4; - Test_Out : String := Two_Digit_Hack'Image (Two_Digit_Hack (Num)); - Mark_Start : Integer := Test_Out'First + 1; - Mark_End : Integer := Test_Out'Last; + Test_Out : constant String := Two_Digit_Hack'Image (Two_Digit_Hack (Num)); + Mark_Start : constant Integer := Test_Out'First + 1; + Mark_End : Integer := Test_Out'Last; begin while Test_Out (Mark_End) = '0' loop Mark_End := Mark_End - 1; @@ -546,7 +546,7 @@ package body Portaudio is function Get_Version return Version_Number is - Raw : Interfaces.Unsigned_32 := Interfaces.Unsigned_32 (pa_get_version); + Raw : constant Interfaces.Unsigned_32 := Interfaces.Unsigned_32 (pa_get_version); Result : Version_Number; begin Result.Major := Natural (Interfaces.Shift_Right (Raw, 16) and 16#FF#); |