From b30199b8c0f408ad954bacfffeb0d38b56e394c9 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Wed, 4 Jun 2008 17:01:24 +0000 Subject: [PATCH] einfo.ads, einfo.adb: Remove unused flag Function_Returns_With_DSP. gcc/ada/ * einfo.ads, einfo.adb: Remove unused flag Function_Returns_With_DSP. From-SVN: r136362 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/einfo.adb | 17 +---------------- gcc/ada/einfo.ads | 18 ------------------ 3 files changed, 5 insertions(+), 34 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 246f6fc..329630f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2008-06-04 Samuel Tardieu + + * einfo.ads, einfo.adb: Remove unused flag Function_Returns_With_DSP. + 2008-06-03 Ralf Wildenhues * Makefile.in (common_tools): Fix typos in $(exeext) extension. diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index fa212a7..49dffae 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -421,7 +421,6 @@ package body Einfo is -- Debug_Info_Off Flag166 -- Sec_Stack_Needed_For_Return Flag167 -- Materialize_Entity Flag168 - -- Function_Returns_With_DSP Flag169 -- Is_Known_Valid Flag170 -- Is_Hidden_Open_Scope Flag171 @@ -506,6 +505,7 @@ package body Einfo is -- Overlays_Constant Flag243 -- Is_RACW_Stub_Type Flag244 + -- (unused) Flag169 -- (unused) Flag245 -- (unused) Flag246 -- (unused) Flag247 @@ -1098,13 +1098,6 @@ package body Einfo is return Node11 (Id); end Full_View; - function Function_Returns_With_DSP (Id : E) return B is - begin - pragma Assert - (Is_Subprogram (Id) or else Ekind (Id) = E_Subprogram_Type); - return Flag169 (Id); - end Function_Returns_With_DSP; - function Generic_Homonym (Id : E) return E is begin pragma Assert (Ekind (Id) = E_Generic_Package); @@ -3505,13 +3498,6 @@ package body Einfo is Set_Node11 (Id, V); end Set_Full_View; - procedure Set_Function_Returns_With_DSP (Id : E; V : B := True) is - begin - pragma Assert - (Is_Subprogram (Id) or else Ekind (Id) = E_Subprogram_Type); - Set_Flag169 (Id, V); - end Set_Function_Returns_With_DSP; - procedure Set_Generic_Homonym (Id : E; V : E) is begin Set_Node11 (Id, V); @@ -7472,7 +7458,6 @@ package body Einfo is W ("Can_Use_Internal_Rep", Flag229 (Id)); W ("Finalize_Storage_Only", Flag158 (Id)); W ("From_With_Type", Flag159 (Id)); - W ("Function_Returns_With_DSP", Flag169 (Id)); W ("Has_Aliased_Components", Flag135 (Id)); W ("Has_Alignment_Clause", Flag46 (Id)); W ("Has_All_Calls_Remote", Flag79 (Id)); diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 41d53c0..43e0e17 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -1289,17 +1289,6 @@ package Einfo is -- For all types other than private and incomplete types, this field -- always contains Empty. See also Underlying_Type. --- Function_Returns_With_DSP (Flag169) --- Present in all subprogram entities, and type entities for access --- to subprogram values. Set True if the function (or referenced --- function in the case of an access value) returns with using the --- DSP (depressed stack pointer) approach. This can only be set --- True if Targparm.Functions_Return_By_DSP_On_Target is True and --- the function returns a value of a type whose size is not known --- at compile time. --- --- Note: this flag is obsolete, it is always False ??? - -- Generic_Homonym (Node11) -- Present in generic packages. The generic homonym is the entity of -- a renaming declaration inserted in every generic unit. It is used @@ -5027,7 +5016,6 @@ package Einfo is -- Extra_Formals (Node28) -- Body_Needed_For_SAL (Flag40) -- Elaboration_Entity_Required (Flag174) - -- Function_Returns_With_DSP (Flag169) -- Default_Expressions_Processed (Flag108) -- Delay_Cleanups (Flag114) -- Delay_Subprogram_Descriptors (Flag50) @@ -5292,7 +5280,6 @@ package Einfo is -- Delay_Cleanups (Flag114) -- Discard_Names (Flag88) -- Elaboration_Entity_Required (Flag174) - -- Function_Returns_With_DSP (Flag169) (false for procedure) -- Default_Expressions_Processed (Flag108) -- Delay_Cleanups (Flag114) -- Delay_Subprogram_Descriptors (Flag50) @@ -5459,7 +5446,6 @@ package Einfo is -- First_Formal (synth) -- First_Formal_With_Extras (synth) -- Number_Formals (synth) - -- Function_Returns_With_DSP (Flag169) -- (plus type attributes) -- E_Task_Body @@ -5841,7 +5827,6 @@ package Einfo is function Freeze_Node (Id : E) return N; function From_With_Type (Id : E) return B; function Full_View (Id : E) return E; - function Function_Returns_With_DSP (Id : E) return B; function Generic_Homonym (Id : E) return E; function Generic_Renamings (Id : E) return L; function Handler_Records (Id : E) return S; @@ -6399,7 +6384,6 @@ package Einfo is procedure Set_Freeze_Node (Id : E; V : N); procedure Set_From_With_Type (Id : E; V : B := True); procedure Set_Full_View (Id : E; V : E); - procedure Set_Function_Returns_With_DSP (Id : E; V : B := True); procedure Set_Generic_Homonym (Id : E; V : E); procedure Set_Generic_Renamings (Id : E; V : L); procedure Set_Handler_Records (Id : E; V : S); @@ -7047,7 +7031,6 @@ package Einfo is pragma Inline (Freeze_Node); pragma Inline (From_With_Type); pragma Inline (Full_View); - pragma Inline (Function_Returns_With_DSP); pragma Inline (Generic_Homonym); pragma Inline (Generic_Renamings); pragma Inline (Handler_Records); @@ -7472,7 +7455,6 @@ package Einfo is pragma Inline (Set_Freeze_Node); pragma Inline (Set_From_With_Type); pragma Inline (Set_Full_View); - pragma Inline (Set_Function_Returns_With_DSP); pragma Inline (Set_Generic_Homonym); pragma Inline (Set_Generic_Renamings); pragma Inline (Set_Handler_Records); -- 2.7.4