diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-01 16:16:24 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 18:16:24 +0200 |
| commit | 2933b16cf255cc606c6b29ee542d3eef6a063315 (patch) | |
| tree | 46a56dc338b04690e329bebaaa2bc1eeb8757661 /gcc/ada/errout.adb | |
| parent | 05dbd302cf611413886938da4448a7cdaeb88232 (diff) | |
| download | gcc-2933b16cf255cc606c6b29ee542d3eef6a063315.zip gcc-2933b16cf255cc606c6b29ee542d3eef6a063315.tar.gz gcc-2933b16cf255cc606c6b29ee542d3eef6a063315.tar.bz2 | |
sem_util.ads, [...] (Last_Source_Statement): Replaces Last_Source_Node_In_Sequence.
2011-08-01 Robert Dewar <dewar@adacore.com>
* sem_util.ads, sem_util.adb, sem_ch6.adb (Last_Source_Statement):
Replaces Last_Source_Node_In_Sequence.
* err_vars.ads (Error_Msg_Lang): 16 is OK, don't need 4K
* errout.adb (Set_Error_Msg_Lang): Takes arg with no parens, but stores
parens and blank in string (this was inconsistently implemented).
* errout.ads
(Set_Error_Msg_Lang): Takes arg with no parens, but stores parens and
blank in string (this was inconsistently implemented).
* gnat1drv.adb
(Set_Global_Switches): Set formal mode switches appropriately
* opt.ads, opt.adb: Formal mode is now global switches, more consistent
* par-prag.adb
(Analyze_Pragma, case SPARK_95): Set opt switches appropriately and
call Set_Error_Msg_Lang to set "spark" as language name.
* par.adb: Remove unnecessary call to set formal language for errout
* sem_prag.adb (P_Pragma, case SPARK_95): Set opt switches
appropriately and call Set_Error_Msg_Lang to set "spark" as language
name.
* sem_ch4.adb (Analyze_Concatenation_Operand): remove procedure and
calls to it, moved after resolution so that types are known
* sem_res.adb (Resolve_Op_Concat): issue an error in formal mode if
result of concatenation is not of type String
(Resolve_Op_Concat_Arg): issue an error in formal mode if an operand of
concatenation is not properly restricted
* gnat_rm.texi: Add doc on pragma Spark_95.
* gcc-interface/Makefile.in: Remove obsolete target pairs for
Interfaces.C.* on VMS. Remove s-parame-vms-restrict.ads.
* gcc-interface/Make-lang.in: Update dependencies.
From-SVN: r177061
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index be963db..59babb1 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -2177,8 +2177,11 @@ package body Errout is procedure Set_Error_Msg_Lang (To : String) is begin - Error_Msg_Langlen := To'Length; - Error_Msg_Lang (1 .. Error_Msg_Langlen) := To; + Error_Msg_Lang (1) := '('; + Error_Msg_Lang (2 .. To'Length + 1) := To; + Error_Msg_Lang (To'Length + 2) := ')'; + Error_Msg_Lang (To'Length + 3) := ' '; + Error_Msg_Langlen := To'Length + 3; end Set_Error_Msg_Lang; ----------------------- |