diff options
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f2f1b0c..f65217b 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -11003,10 +11003,10 @@ package body Sem_Ch13 is -- Expression to be analyzed at end of declarations Freeze_Expr : constant Node_Id := Expression (ASN); - -- Expression from call to Check_Aspect_At_Freeze_Point. + -- Expression from call to Check_Aspect_At_Freeze_Point T : constant Entity_Id := - (if Present (Freeze_Expr) and A_Id /= Aspect_Stable_Properties + (if Present (Freeze_Expr) and then A_Id /= Aspect_Stable_Properties then Etype (Original_Node (Freeze_Expr)) else Empty); -- Type required for preanalyze call. We use the original expression to @@ -11073,7 +11073,7 @@ package body Sem_Ch13 is if In_Instance then return; - -- The enclosing scope may have been rewritten during expansion (.e.g. a + -- The enclosing scope may have been rewritten during expansion (e.g. a -- task body is rewritten as a procedure) after this conformance check -- has been performed, so do not perform it again (it may not easily be -- done if full visibility of local entities is not available). |