diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 11:29:46 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 11:29:46 +0200 |
| commit | 88e7531bebc927b249c2055caddcb93c43359820 (patch) | |
| tree | 4a1bddd2f4929ab05a86932cff22860124f1fb69 /gcc/ada/g-comlin.adb | |
| parent | db664118be5bc2ea3e04784d45da659b13af1ef8 (diff) | |
| download | gcc-88e7531bebc927b249c2055caddcb93c43359820.zip gcc-88e7531bebc927b249c2055caddcb93c43359820.tar.gz gcc-88e7531bebc927b249c2055caddcb93c43359820.tar.bz2 | |
[multiple changes]
2012-05-15 Robert Dewar <dewar@adacore.com>
* g-comlin.adb, g-comlin.ads: Minor reformatting.
2012-05-15 Vincent Pucci <pucci@adacore.com>
* aspects.adb, aspects.adb: Reordering of the Aspect_Idi list. New
aspect Aspect_Lock_Free.
* einfo.adb, einfo.ads: New flag Uses_Lock_Free (flag 188).
(Set_Uses_Lock_Free): New routine.
(Uses_Lock_Free): New routine.
* exp_ch7.adb (Is_Simple_Protected_Type): Return False for
lock-free implementation.
* exp_ch9.adb (Allows_Lock_Free_Implementation): Moved to Sem_Ch9.
(Build_Lock_Free_Unprotected_Subprogram_Body): Protected
procedure uses __sync_synchronise. Check both Object_Size
and Value_Size.
(Expand_N_Protected_Body): Lock_Free_Active
renames Lock_Free_On.
(Expand_N_Protected_Type_Declaration):
_Object field removed for lock-free implementation.
(Install_Private_Data_Declarations): Protection object removed
for lock-free implementation.
(Make_Initialize_Protection):
Protection object initialization removed for lock-free implementation.
* rtsfind.ads: RE_Atomic_Synchronize and RE_Relaxed added.
* sem_ch13.adb (Analyze_Aspect_Specifications): Aspect_Lock_Free
analysis added.
* sem_ch9.adb (Allows_Lock_Free_Implementation): New routine.
(Analyze_Protected_Body): Allows_Lock_Free_Implementation call added.
(Analyze_Protected_Type_Declaration):
Allows_Lock_Free_Implementation call added.
(Analyze_Single_Protected_Declaration): Second analysis of
aspects removed.
* s-atopri.ads: Header added.
(Atomic_Synchronize): New routine.
2012-05-15 Robert Dewar <dewar@adacore.com>
* exp_ch7.ads: Add comment.
From-SVN: r187505
Diffstat (limited to 'gcc/ada/g-comlin.adb')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 8615b02..723ff12 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -1343,7 +1343,7 @@ package body GNAT.Command_Line is begin if Switch /= "" or else Long_Switch /= "" then Initialize_Switch_Def - (Def, Switch, Long_Switch, Help, Section, Argument); + (Def, Switch, Long_Switch, Help, Section, Argument); Add (Config, Def); end if; end Define_Switch; @@ -1390,7 +1390,7 @@ package body GNAT.Command_Line is begin if Switch /= "" or else Long_Switch /= "" then Initialize_Switch_Def - (Def, Switch, Long_Switch, Help, Section, Argument); + (Def, Switch, Long_Switch, Help, Section, Argument); Def.Integer_Output := Output.all'Unchecked_Access; Def.Integer_Default := Default; Def.Integer_Initial := Initial; @@ -1415,7 +1415,7 @@ package body GNAT.Command_Line is begin if Switch /= "" or else Long_Switch /= "" then Initialize_Switch_Def - (Def, Switch, Long_Switch, Help, Section, Argument); + (Def, Switch, Long_Switch, Help, Section, Argument); Def.String_Output := Output.all'Unchecked_Access; Add (Config, Def); end if; @@ -3233,7 +3233,9 @@ package body GNAT.Command_Line is end if; end if; - else -- Long_Switch necessarily not null + -- Def.Switch is null (Long_Switch must be non-null) + + else Decompose_Switch (Def.Long_Switch.all, P2, Last2); Append (Result, Def.Long_Switch (Def.Long_Switch'First .. Last2)); |