diff options
| author | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-14 07:07:24 +0000 |
|---|---|---|
| committer | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-14 07:07:24 +0000 |
| commit | c83b1633a7a43c357bf8eeebacb294b3072dadd5 (patch) | |
| tree | 1939edff40cd3e3eb25681a742a9b0853753fd55 /gcc/ada/sem_util.ads | |
| parent | 8ecc497aa49cbfc8acc7a7223f38d34300d52d0e (diff) | |
| download | gcc-c83b1633a7a43c357bf8eeebacb294b3072dadd5.tar.gz | |
gcc/ada/
* sem_attr.adb (Analyze_Attribute, Attribute_Old case): Add
restrictions to the prefix of 'Old.
* sem_util.ads, sem_util.adb (In_Parameter_Specification): New.
* gnat_rm.texi ('Old): Note that 'Old cannot be applied to local
variables.
gcc/testsuite/
* gnat.dg/old_errors.ads, gnat.dg/old_errors.adb: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135282 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index a14d6a0149f..866bd7f98a5 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -590,6 +590,9 @@ package Sem_Util is function In_Package_Body return Boolean; -- Returns True if current scope is within a package body + function In_Parameter_Specification (N : Node_Id) return Boolean; + -- Returns True if node N belongs to a parameter specification + function In_Subprogram_Or_Concurrent_Unit return Boolean; -- Determines if the current scope is within a subprogram compilation -- unit (inside a subprogram declaration, subprogram body, or generic |