diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-20 14:49:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-20 14:49:28 +0000 |
| commit | c5c6a6386e509c511dbc9ec502cbe7c20b06b90b (patch) | |
| tree | 23ea534f073473db63cb1df7a4649d2a1a8035af /gcc/ada/exp_ch9.adb | |
| parent | d8b267ad7ee7009662567793fe3ca3650f180fea (diff) | |
| download | gcc-c5c6a6386e509c511dbc9ec502cbe7c20b06b90b.tar.gz | |
2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb: minor style fixes in comments.
* sem_ch9.adb (Analyze_Delay_Relative): in GNATprove mode a delay
relative statement introduces an implicit dependency on
Ada.Real_Time.Clock_Time.
* sem_util.adb: Minor reformatting.
2017-01-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications): Aspect Alignment
must be treated as delayed aspect even if the expression is
a literal, because the aspect affects the freezing and the
elaboration of the object to which it applies.
2017-01-20 Tristan Gingold <gingold@adacore.com>
* s-osinte-vxworks.ads (Interrup_Range): New subtype.
2017-01-20 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb (Generate_Reference): Do not warn about the
presence of a pragma Unreferenced if the entity appears as the
actual in a procedure call that does not come from source.
2017-01-20 Pascal Obry <obry@adacore.com>
* expect.c, terminals.c: Fix some warnings about unused variables.
* gsocket.h, adaint.c, adaint.h: Fix some more warnings in the C part
of the runtime.
2017-01-20 Bob Duff <duff@adacore.com>
* exp_attr.adb (Constrained): Apply an access check (check that
the prefix is not null) when the prefix denotes an object of an
access type; that is, when there is an implicit dereference.
2017-01-20 Gary Dismukes <dismukes@adacore.com>
* s-rident.ads (constant Profile_Info): Remove
No_Calendar from GNAT_Extended_Ravenscar restrictions.
2017-01-20 Tristan Gingold <gingold@adacore.com>
* s-maccod.ads: Add pragma No_Elaboration_Code_All
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244718 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 9ea30eebe57..d2772caf1e0 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -4524,7 +4524,7 @@ package body Exp_Ch9 is -- If actual is an out parameter of a null-excluding -- access type, there is access check on entry, so set -- Suppress_Assignment_Checks on the generated statement - -- that assigns the actual to the parameter block + -- that assigns the actual to the parameter block. Set_Suppress_Assignment_Checks (Last (Stats)); end if; @@ -6817,7 +6817,7 @@ package body Exp_Ch9 is Insert_Before (N, Decl); Analyze (Decl); - -- Rewrite abortable part into a call to this procedure. + -- Rewrite abortable part into a call to this procedure Astats := New_List ( @@ -9030,7 +9030,7 @@ package body Exp_Ch9 is elsif Restriction_Active (No_Implicit_Heap_Allocations) then if not Discriminated_Size (Defining_Identifier (Priv)) then - -- Any object of the type will be non-static. + -- Any object of the type will be non-static Error_Msg_N ("component has non-static size??", Priv); Error_Msg_NE @@ -9039,7 +9039,7 @@ package body Exp_Ch9 is & "No_Implicit_Heap_Allocations??", Priv, Prot_Typ); else - -- Object will be non-static if discriminants are. + -- Object will be non-static if discriminants are Error_Msg_NE ("creation of protected object of type& with " @@ -9055,7 +9055,7 @@ package body Exp_Ch9 is then if not Discriminated_Size (Defining_Identifier (Priv)) then - -- Any object of the type will be non-static. + -- Any object of the type will be non-static Error_Msg_N ("component has non-static size??", Priv); Error_Msg_NE @@ -9064,7 +9064,7 @@ package body Exp_Ch9 is & "No_Implicit_Protected_Object_Allocations??", Priv, Prot_Typ); else - -- Object will be non-static if discriminants are. + -- Object will be non-static if discriminants are Error_Msg_NE ("creation of protected object of type& with " @@ -13769,7 +13769,7 @@ package body Exp_Ch9 is Expression (First (Pragma_Argument_Associations (Prio_Clause))); - -- Get_Rep_Item returns either priority pragma. + -- Get_Rep_Item returns either priority pragma if Pragma_Name (Prio_Clause) = Name_Priority then Prio_Type := RTE (RE_Any_Priority); |