From 72eaa365121eec76a29a0a231c4edfff28f2a250 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 6 Jan 2015 10:24:33 +0100 Subject: [multiple changes] 2015-01-06 Robert Dewar * s-valllu.adb, a-tiinau.adb, a-timoau.adb, a-ztinau.adb, a-ztmoau.adb, s-valuns.adb, s-valrea.adb, a-wtflau.adb, a-tiflau.adb, a-ztflau.adb, a-wtinau.adb, a-wtmoau.adb: Document recognition of : in place of #. 2015-01-06 Ed Schonberg * sem_ch13.adb (Analyze_Aspect_Specifications): For aspects that specify stream subprograms, if the prefix is a class-wide type then the generated attribute definition clause must apply to the same class-wide type. (Default_Iterator): An iterator defined by an aspect of some container type T must have a first parameter of type T, T'class, or an access to such (from code reading RM 5.5.1 (2/3)). 2015-01-06 Arnaud Charlet * gnat1drv.adb: Minor: complete previous change. 2015-01-06 Olivier Hainque * set_targ.ads (C_Type_For): New function. Return the name of a C type supported by the back-end and suitable as a basis to construct the standard Ada floating point type identified by the T parameter. This is used as a common ground to feed both ttypes values and the GNAT tree nodes for the standard floating point types. * set_targ.adb (Long_Double_Index): The index at which "long double" gets registered in the FPT_Mode_Table. This is useful to know whether we have a "long double" available at all and get at it's characteristics without having to search the FPT_Mode_Table when we need to decide which C type should be used as the basis for Long_Long_Float in Ada. (Register_Float_Type): Fill Long_Double_Index. (FPT_Mode_Index_For): New function. Return the index in FPT_Mode_Table that designates the entry corresponding to the provided C type name. (FPT_Mode_Index_For): New function. Return the index in FPT_Mode_Table that designates the entry for a back-end type suitable as a basis to construct the standard Ada floating point type identified by the input T parameter. (elaboration code): Register_Back_End_Types unconditionally, so C_Type_For can operate regardless of -gnateT. Do it early so we can query it for the floating point sizes, via FPT_Mode_Index_For. Initialize Float_Size, Double_Size and Long_Double_Size from the FPT_Mode_Table, as cstand will do. * cstand.adb (Create_Float_Types): Use C_Type_For to determine which C type should be used as the basis for the construction of the Standard Ada floating point types. * get_targ.ads (Get_Float_Size, Get_Double_Size, Get_Long_Double_Size): Remove. * get_targ.adb: Likewise. 2015-01-06 Thomas Quinot * sem_cat.adb (In_RCI_Declaration): Remove unnecessary parameter and rename to... (In_RCI_Visible_Declarations): Fix handling of private part of nested package. (Validate_RCI_Subprogram_Declaration): Reject illegal function returning anonymous access in RCI unit. From-SVN: r219233 --- gcc/ada/get_targ.adb | 36 ------------------------------------ 1 file changed, 36 deletions(-) (limited to 'gcc/ada/get_targ.adb') diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index 9dde22b..e1dfb26 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -126,42 +126,6 @@ package body Get_Targ is return C_Get_Long_Long_Size; end Get_Long_Long_Size; - -------------------- - -- Get_Float_Size -- - -------------------- - - function Get_Float_Size return Pos is - function C_Get_Float_Size return Pos; - pragma Import (C, C_Get_Float_Size, - "get_target_float_size"); - begin - return C_Get_Float_Size; - end Get_Float_Size; - - --------------------- - -- Get_Double_Size -- - --------------------- - - function Get_Double_Size return Pos is - function C_Get_Double_Size return Pos; - pragma Import (C, C_Get_Double_Size, - "get_target_double_size"); - begin - return C_Get_Double_Size; - end Get_Double_Size; - - -------------------------- - -- Get_Long_Double_Size -- - -------------------------- - - function Get_Long_Double_Size return Pos is - function C_Get_Long_Double_Size return Pos; - pragma Import (C, C_Get_Long_Double_Size, - "get_target_long_double_size"); - begin - return C_Get_Long_Double_Size; - end Get_Long_Double_Size; - ---------------------- -- Get_Pointer_Size -- ---------------------- -- cgit v1.1