diff options
Diffstat (limited to 'gcc/ada/repinfo.adb')
| -rw-r--r-- | gcc/ada/repinfo.adb | 80 |
1 files changed, 1 insertions, 79 deletions
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index dff3272..61912ef 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -92,18 +92,6 @@ package body Repinfo is Table_Increment => Alloc.Rep_Table_Increment, Table_Name => "BE_Rep_Table"); - -------------------------------------------------------------- - -- Representation of Front-End Dynamic Size/Offset Entities -- - -------------------------------------------------------------- - - package Dynamic_SO_Entity_Table is new Table.Table ( - Table_Component_Type => Entity_Id, - Table_Index_Type => Nat, - Table_Low_Bound => 1, - Table_Initial => Alloc.Rep_Table_Initial, - Table_Increment => Alloc.Rep_Table_Increment, - Table_Name => "FE_Rep_Table"); - Unit_Casing : Casing_Type; -- Identifier casing for current unit. This is set by List_Rep_Info for -- each unit, before calling subprograms which may read it. @@ -138,11 +126,6 @@ package body Repinfo is -- Local Subprograms -- ----------------------- - function Back_End_Layout return Boolean; - -- Test for layout mode, True = back end, False = front end. This function - -- is used rather than checking the configuration parameter because we do - -- not want Repinfo to depend on Targparm. - procedure List_Entities (Ent : Entity_Id; Bytes_Big_Endian : Boolean; @@ -218,18 +201,6 @@ package body Repinfo is -- flag Paren is set, then the output is surrounded in parentheses if it is -- other than a simple value. - --------------------- - -- Back_End_Layout -- - --------------------- - - function Back_End_Layout return Boolean is - begin - -- We have back-end layout if the back end has made any entries in the - -- table of GCC expressions, otherwise we have front-end layout. - - return Rep_Table.Last > 0; - end Back_End_Layout; - ------------------------ -- Create_Discrim_Ref -- ------------------------ @@ -241,16 +212,6 @@ package body Repinfo is Op1 => Discriminant_Number (Discr)); end Create_Discrim_Ref; - --------------------------- - -- Create_Dynamic_SO_Ref -- - --------------------------- - - function Create_Dynamic_SO_Ref (E : Entity_Id) return Dynamic_SO_Ref is - begin - Dynamic_SO_Entity_Table.Append (E); - return UI_From_Int (-Dynamic_SO_Entity_Table.Last); - end Create_Dynamic_SO_Ref; - ----------------- -- Create_Node -- ----------------- @@ -279,33 +240,6 @@ package body Repinfo is return Entity_Header_Num (Id mod Relevant_Entities_Size); end Entity_Hash; - --------------------------- - -- Get_Dynamic_SO_Entity -- - --------------------------- - - function Get_Dynamic_SO_Entity (U : Dynamic_SO_Ref) return Entity_Id is - begin - return Dynamic_SO_Entity_Table.Table (-UI_To_Int (U)); - end Get_Dynamic_SO_Entity; - - ----------------------- - -- Is_Dynamic_SO_Ref -- - ----------------------- - - function Is_Dynamic_SO_Ref (U : SO_Ref) return Boolean is - begin - return U < Uint_0; - end Is_Dynamic_SO_Ref; - - ---------------------- - -- Is_Static_SO_Ref -- - ---------------------- - - function Is_Static_SO_Ref (U : SO_Ref) return Boolean is - begin - return U >= Uint_0; - end Is_Static_SO_Ref; - --------- -- lgx -- --------- @@ -1224,14 +1158,6 @@ package body Repinfo is else Write_Val (Esiz, Paren => not List_Representation_Info_To_JSON); - -- If in front-end layout mode, then dynamic size is stored in - -- storage units, so renormalize for output. - - if not Back_End_Layout then - Write_Str (" * "); - Write_Int (SSU); - end if; - -- Add appropriate first bit offset if not List_Representation_Info_To_JSON then @@ -2397,11 +2323,7 @@ package body Repinfo is Write_Char ('('); end if; - if Back_End_Layout then - List_GCC_Expression (Val); - else - Write_Name_Decoded (Chars (Get_Dynamic_SO_Entity (Val))); - end if; + List_GCC_Expression (Val); if Paren then Write_Char (')'); |