diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 08:43:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 08:43:42 +0000 |
| commit | f84c0da6b775eba9eb8d79fadce24169cf11f1f3 (patch) | |
| tree | 61b9423513f189f83c625631b581033c832eb05c /gcc/ada/erroutc.adb | |
| parent | 83a0ab2a2fd2930fe97279844d6999d51a8b0d94 (diff) | |
| download | gcc-f84c0da6b775eba9eb8d79fadce24169cf11f1f3.tar.gz | |
2011-08-31 Jose Ruiz <ruiz@adacore.com>
* s-taprop-linux.adb (Set_Task_Affinity): Avoid the use of anonymous
access types.
* affinity.c (__gnat_set_affinity_mask): Declare index variable.
2011-08-31 Yannick Moy <moy@adacore.com>
* sem_ch8.adb (Analyze_Subprogram_Renaming): Refine expander test in
full-expander test.
Minor reformatting, renaming ALFA in Alfa (we dropped acronym)
* einfo.adb (Primitive_Operations): Correctly return list of primitive
operations in a case where it returned previously No_Elist.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178358 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 593b71ceb27..649238018a1 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -955,12 +955,12 @@ package body Erroutc is if Name_Len = 2 and then Name_Buffer (1 .. 2) = "RM" then Set_Msg_Name_Buffer; - -- We make a similar exception for ALFA + -- We make a similar exception for Alfa - elsif Name_Len = 4 and then Name_Buffer (1 .. 4) = "ALFA" then + elsif Name_Len = 4 and then Name_Buffer (1 .. 4) = "Alfa" then Set_Msg_Name_Buffer; - -- Neither RM nor ALFA: case appropriately and add surrounding quotes + -- Neither RM nor Alfa: case appropriately and add surrounding quotes else Set_Casing (Keyword_Casing (Flag_Source), All_Lower_Case); |