From 39d4bf682cb00d3b73d914b9d4d2563458b3e6be Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 19 Oct 2010 12:29:25 +0000 Subject: 2010-10-19 Ed Schonberg * exp_ch4.adb, exp_ch4.ads (Expand_Quantified_Expression): New procedure * exp_util.adb (Insert_Actions): Include Quantified_Expression. * expander.adb: Call Expand_Qualified_Expression. * par.adb: New procedure P_Quantified_Expression. Make P_Loop_Parameter_Specification global for use in quantified expressions. * par-ch3.adb (P_Subtype_Mark_Resync): Allow "some" as an identifier if version < Ada2012. * par-ch4.adb: New procedure P_Quantified_Expression. * par-ch5.adb: P_Loop_Parameter_Specification is now global. * scans.adb, scans.ads: Introduce token Some. For now leave as unreserved. * scn.adb (Scan_Reserved_Identifier): For earlier versions of Ada, treat Some as a regular identifier. * sem.adb: Call Analyze_Quantified_Expression. * sem_ch4.adb, sem_ch4.ads: New procedure Analyze_Quantified_Expression. * sem_ch5.adb, sem_ch5.ads: Analyze_Iteration_Scheme is public, for use in quantified expressions. * sem_res.adb: New procedure Resolve_Qualified_Expression. * sinfo.adb, sinfo.ads: New node N_Quantified_Expression * snames.ads-tmpl: New name Some. * sprint.adb: Output quantified_expression. 2010-10-19 Robert Dewar * a-exexda.adb: Minor reformatting Minor code reorganization. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165698 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-exexda.adb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc/ada/a-exexda.adb') 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; -- cgit v1.2.1