diff options
Diffstat (limited to 'gcc/ada/s-imgint.adb')
| -rw-r--r-- | gcc/ada/s-imgint.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb index 4fad4e66e75..0d19e56fcad 100644 --- a/gcc/ada/s-imgint.adb +++ b/gcc/ada/s-imgint.adb @@ -32,7 +32,9 @@ package body System.Img_Int is procedure Set_Digits - (T : Integer; S : in out String; P : in out Natural); + (T : Integer; + S : in out String; + P : in out Natural); -- Set digits of absolute value of T, which is zero or negative. We work -- with the negative of the value so that the largest negative number is -- not a special case. @@ -64,7 +66,10 @@ package body System.Img_Int is ---------------- procedure Set_Digits - (T : Integer; S : in out String; P : in out Natural) is + (T : Integer; + S : in out String; + P : in out Natural) + is begin if T <= -10 then Set_Digits (T / 10, S, P); @@ -83,7 +88,8 @@ package body System.Img_Int is procedure Set_Image_Integer (V : Integer; S : in out String; - P : in out Natural) is + P : in out Natural) + is begin if V >= 0 then Set_Digits (-V, S, P); |