diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2020-10-20 14:02:25 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-26 03:39:38 -0500 |
| commit | e3946607a681a1bbbc50befcabcfc78a86f42f45 (patch) | |
| tree | da0485b4751f8f666e0afe2ea86782b5f0c17a7f /gcc | |
| parent | 3268fb4dace884ad985965cbd64f3804b2f8fd74 (diff) | |
| download | gcc-e3946607a681a1bbbc50befcabcfc78a86f42f45.zip gcc-e3946607a681a1bbbc50befcabcfc78a86f42f45.tar.gz gcc-e3946607a681a1bbbc50befcabcfc78a86f42f45.tar.bz2 | |
[Ada] Correct a typo, plus other minor reformatting
gcc/ada/
* exp_util.adb (Expand_Subtype_From_Expr): A typo correction,
plus other minor reformatting.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_util.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index dd3aa49..b595de0 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -5347,7 +5347,7 @@ package body Exp_Util is then null; - -- For limited objects initialized with build in place function calls, + -- For limited objects initialized with build-in-place function calls, -- nothing to be done; otherwise we prematurely introduce an N_Reference -- node in the expression initializing the object, which breaks the -- circuitry that detects and adds the additional arguments to the @@ -5356,9 +5356,9 @@ package body Exp_Util is elsif Is_Build_In_Place_Function_Call (Exp) then null; - -- If the exprewsion is an uninitialized aggregate, no need to build - -- a subtype from the expression. because this may require the use - -- of dynamic memory to create the object. + -- If the expression is an uninitialized aggregate, no need to build + -- a subtype from the expression, because this may require the use of + -- dynamic memory to create the object. elsif Is_Uninitialized_Aggregate (Exp, Exp_Typ) then Rewrite (Subtype_Indic, New_Occurrence_Of (Etype (Exp), Sloc (N))); |