From 9eea4346af869733ba91b92d40a78de3541d3be0 Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Mon, 1 Aug 2011 12:41:48 +0000 Subject: sem_prag.adb (Check_No_Link_Name): New procedure. 2011-08-01 Geert Bosch * sem_prag.adb (Check_No_Link_Name): New procedure. (Process_Import_Or_Interface): Use Check_No_Link_Name. * cstand.adb (Create_Standard): Use Esize (Standard_Long_Long_Float) instead of Standard_Long_Long_Float_Size global. Preparation for eventual removal of per type constants. * exp_util.ads (Get_Stream_Size): New function returning the stream size value of subtype E. * exp_util.adb (Get_Stream_Size): Implement new function. * exp_strm.adb (Build_Elementary_Input_Call): Use Get_Stream_Size function. * exp_attr.adb (Attribute_Stream_Size): Use Get_Stream_Size * einfo.adb: (Machine_Mantissa_Value): Handle 128-bit quad precision IEEE floats From-SVN: r177026 --- gcc/ada/cstand.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/cstand.adb') diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 5b95a7c..8d9d798 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1105,7 +1105,8 @@ package body CStand is Set_Ekind (Any_Real, E_Floating_Point_Type); Set_Scope (Any_Real, Standard_Standard); Set_Etype (Any_Real, Standard_Long_Long_Float); - Init_Size (Any_Real, Standard_Long_Long_Float_Size); + Init_Size (Any_Real, + UI_To_Int (Esize (Standard_Long_Long_Float))); Set_Elem_Alignment (Any_Real); Make_Name (Any_Real, "a real type"); -- cgit v1.1