diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 12:36:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 12:36:58 +0000 |
| commit | 04d6f660a83e974513b44f0a4dd4093fc9711a18 (patch) | |
| tree | c4a919db02a75d3f2a5f6a7e7c6835ddca7877dd /gcc/ada/back_end.ads | |
| parent | ee3193465e4298addc2a2318a6089d0717b62d51 (diff) | |
| download | gcc-04d6f660a83e974513b44f0a4dd4093fc9711a18.tar.gz | |
2011-08-02 Eric Botcazou <ebotcazou@adacore.com>
* inline.adb (Add_Inlined_Body): Adjust check for library-level inlined
functions to previous change. Reorganize code slightly.
2011-08-02 Geert Bosch <bosch@adacore.com>
* back_end.ads (Register_Type_Proc): New call back procedure type for
allowing the back end to provide information about available types.
(Register_Back_End_Types): New procedure to register back end types.
* back_end.adb (Register_Back_End_Types): Call the back end to enumerate
available types.
* cstand.adb (Back_End_Float_Types): New list for floating point types
supported by the back end.
(Build_Float_Type): Add extra parameter for Float_Rep_Kind.
(Copy_Float_Type): New procedure to make new copies of predefined types.
(Register_Float_Type): New call back procedure to populate the BEFT list
(Find_Back_End_Float_Type): New procedure to find a BEFT by name
(Create_Back_End_Float_Types): New procedure to populate the BEFT list.
(Create_Float_Types): New procedure to create entities for floating
point types predefined in Standard, and put these and any remaining
BEFTs on the Predefined_Float_Types list.
* stand.ads (Predefined_Float_Types): New list for predefined floating
point types that do not have declarations in package Standard.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177137 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/back_end.ads')
| -rw-r--r-- | gcc/ada/back_end.ads | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/ada/back_end.ads b/gcc/ada/back_end.ads index 93e1ba64381..430f2c9449f 100644 --- a/gcc/ada/back_end.ads +++ b/gcc/ada/back_end.ads @@ -26,6 +26,8 @@ -- Call the back end with all the information needed. Also contains other -- back-end specific interfaces required by the front end. +with Einfo; use Einfo; + package Back_End is type Back_End_Mode_Type is ( @@ -44,6 +46,25 @@ package Back_End is pragma Convention (C, Back_End_Mode_Type); for Back_End_Mode_Type use (0, 1, 2); + type C_String is array (0 .. 255) of aliased Character; + pragma Convention (C, C_String); + + type Register_Type_Proc is access procedure + (C_Name : C_String; -- Nul-terminated string with name of type + Digs : Natural; -- Nr or digits for floating point, 0 otherwise + Complex : Boolean; -- True iff type has real and imaginary parts + Count : Natural; -- Number of elements in vector, 0 otherwise + Float_Rep : Float_Rep_Kind; -- Representation used for fpt type + Size : Positive; -- Size of representation in bits + Alignment : Natural); -- Required alignment in bits + pragma Convention (C, Register_Type_Proc); + -- Call back procedure for Register_Back_End_Types. This is to be used by + -- Create_Standard to create predefined types for all types supported by + -- the back end. + + procedure Register_Back_End_Types (Call_Back : Register_Type_Proc); + -- Calls the Call_Back function with information for each supported type. + procedure Call_Back_End (Mode : Back_End_Mode_Type); -- Call back end, i.e. make call to driver traversing the tree and -- outputting code. This call is made with all tables locked. |