diff options
Diffstat (limited to 'gcc/ada/a-exexda.adb')
| -rw-r--r-- | gcc/ada/a-exexda.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/a-exexda.adb b/gcc/ada/a-exexda.adb index e6a006e0b9b..63ab461a9fa 100644 --- a/gcc/ada/a-exexda.adb +++ b/gcc/ada/a-exexda.adb @@ -574,8 +574,9 @@ package body Exception_Data is ------------------- procedure Append_Number (Number : Integer) is - Val : Integer := Number; - Size : Integer := 1; + Val : Integer; + Size : Integer; + begin if Number <= 0 then return; @@ -583,6 +584,8 @@ package body Exception_Data is -- Compute the number of needed characters + Size := 1; + Val := Number; while Val > 0 loop Val := Val / 10; Size := Size + 1; @@ -606,6 +609,8 @@ package body Exception_Data is end if; end Append_Number; + -- Start of processing for Set_Exception_C_Msg + begin Exception_Propagation.Setup_Exception (Excep, Excep); Excep.Exception_Raised := False; |