diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-18 12:06:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-18 12:06:53 +0200 |
| commit | 12009a12f4f447123c23b6b54674b105b26cbb54 (patch) | |
| tree | 15cf7ddbdb39be1740cdc9eea238f48ccc4c277e /gcc/ada/einfo.adb | |
| parent | e7efbe2f093468f9316e891136833aae0e404a24 (diff) | |
| download | gcc-12009a12f4f447123c23b6b54674b105b26cbb54.zip gcc-12009a12f4f447123c23b6b54674b105b26cbb54.tar.gz gcc-12009a12f4f447123c23b6b54674b105b26cbb54.tar.bz2 | |
[multiple changes]
2010-10-18 Tristan Gingold <gingold@adacore.com>
* init.c: Add __gnat_set_stack_guard_page and __gnat_set_stack_limit.
Implement stack limitation on VMS.
Minor reformatting.
2010-10-18 Vincent Celier <celier@adacore.com>
* prj.adb (Is_Compilable): Do not modify Source.Compilable until the
source record has been initialized.
2010-10-18 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor code reorganization (Primitive_Operations is a
synthesized attribute routine and was in the wrong place).
From-SVN: r165620
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index a8bb4d2..1ffdbbb 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -2359,20 +2359,6 @@ package body Einfo is return Node8 (Id); end Postcondition_Proc; - function Primitive_Operations (Id : E) return L is - begin - if Is_Concurrent_Type (Id) then - if Present (Corresponding_Record_Type (Id)) then - return Direct_Primitive_Operations - (Corresponding_Record_Type (Id)); - else - return No_Elist; - end if; - else - return Direct_Primitive_Operations (Id); - end if; - end Primitive_Operations; - function Prival (Id : E) return E is begin pragma Assert (Is_Protected_Component (Id)); @@ -6599,6 +6585,24 @@ package body Einfo is Set_First_Rep_Item (E, N); end Record_Rep_Item; + -------------------------- + -- Primitive_Operations -- + -------------------------- + + function Primitive_Operations (Id : E) return L is + begin + if Is_Concurrent_Type (Id) then + if Present (Corresponding_Record_Type (Id)) then + return Direct_Primitive_Operations + (Corresponding_Record_Type (Id)); + else + return No_Elist; + end if; + else + return Direct_Primitive_Operations (Id); + end if; + end Primitive_Operations; + --------------- -- Root_Type -- --------------- |