From 2a02fa985d8c474e0855f1354746f54a2b3fc749 Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Mon, 23 Jan 2017 11:31:25 +0000 Subject: [PATCH] sem_ch3.adb (Analyze_Declarations): Correct comments 2017-01-23 Justin Squirek * sem_ch3.adb (Analyze_Declarations): Correct comments * freeze.adb (Find_Constant): Add detection of deferred constants so they are not incorrectly flagged as premature. From-SVN: r244785 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/freeze.adb | 1 + gcc/ada/sem_ch3.adb | 2 +- 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8a676d89a61..c279bce30bd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2017-01-23 Justin Squirek + + * sem_ch3.adb (Analyze_Declarations): Correct comments + * freeze.adb (Find_Constant): Add detection of deferred constants + so they are not incorrectly flagged as premature. + 2017-01-23 Ed Schonberg * scans.ads: New token At_Sign. Remove '@' from list of illegal diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index c1dbd33c557..c8eef9c9ecb 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1356,6 +1356,7 @@ package body Freeze is N_Object_Declaration and then not Is_Imported (Entity (Nod)) and then not Has_Completion (Entity (Nod)) + and then not Is_Frozen (Entity (Nod)) then Error_Msg_NE ("premature use of& in call or instance", N, Entity (Nod)); diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 9cc64b31725..fb42f6a0717 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -2637,7 +2637,7 @@ package body Sem_Ch3 is -- Check for an edge case that may cause premature freezing of a -- private type. - -- If there is an array type which uses a private type from an + -- If there is an type which depends on a private type from an -- enclosing package that is in the same scope as a non-completing -- expression function then we cannot freeze here. -- 2.30.2