diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 10:53:00 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 10:53:00 +0100 |
| commit | 97779c340acc02f574fa943d059f68a74d36c4ca (patch) | |
| tree | 0ee2912d63a73536733f817f576811cb7ab23f41 /gcc/ada/sprint.adb | |
| parent | c801e24619405cf2ca3eb3faea28c45f10ce00d7 (diff) | |
| download | gcc-97779c340acc02f574fa943d059f68a74d36c4ca.zip gcc-97779c340acc02f574fa943d059f68a74d36c4ca.tar.gz gcc-97779c340acc02f574fa943d059f68a74d36c4ca.tar.bz2 | |
[multiple changes]
2014-02-06 Robert Dewar <dewar@adacore.com>
* sprint.adb: Minor reformatting.
2014-02-06 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Process_Transient_Object): Add local variable
Temp_Ins. When the transient object is initialized by an
aggregate, the hook must capture the object after the last
component assignment takes place.
* exp_ch7.adb (Detect_Subprogram_Call): Expose the subprogram to
routine Is_Subprogram_Call.
(Is_Subprogram_Call): Inspect an
aggregate that has been heavily expanded for subprogram calls.
(Process_Transient_Objects): Add local variables Expr, Ptr_Id
and Temp_Ins. Remove the nested declare block and adjust the
indentation. When the transient object is initialized by an
aggregate, the hook must capture the object after the last
component assignment takes place.
2014-02-06 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Analyze_Global_Item): Detect illegal uses of
external states with enabled properties that do not match the
global mode.
(Property_Error): New routine.
* sem_res.adb (Property_Error): New routine.
(Resolve_Actuals): Detect illegal uses of external variables with
enabled properties in procedure calls that do not match the mode of
the corresponding formal parameter.
2014-02-06 Hristian Kirtchev <kirtchev@adacore.com>
* sem_util.adb (Has_Enabled_Property): Rename
formal parameter Prop_Nam to Property. Update the comment on usage
and all occurrences in the body. Add local variable Prop_Nam. When
inspecting a property with an expression, the property name
appears as the first choice of the component association.
From-SVN: r207534
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index e909474..49adb11 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -204,7 +204,7 @@ package body Sprint is (Node : Node_Id; Default : Node_Id); -- Print the end label for a Handled_Sequence_Of_Statements in a body. - -- If there is not end label, use the defining identifier of the enclosing + -- If there is no end label, use the defining identifier of the enclosing -- construct. If the end label is present, treat it as a reference to the -- defining entity of the construct: this guarantees that it carries the -- proper sloc information for debugging purposes. |