diff options
Diffstat (limited to 'gcc/ada/repinfo.adb')
| -rw-r--r-- | gcc/ada/repinfo.adb | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 7f7152d..fd7a931 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -992,7 +992,6 @@ package body Repinfo is declare Ctyp : constant Entity_Id := Underlying_Type (Etype (Comp)); Esiz : constant Uint := Esize (Comp); - Bofs : constant Uint := Component_Bit_Offset (Comp); Npos : constant Uint := Normalized_Position (Comp); Fbit : constant Uint := Normalized_First_Bit (Comp); Spos : Uint; @@ -1047,35 +1046,14 @@ package body Repinfo is Spaces (Max_Spos_Length - UI_Image_Length); Write_Str (UI_Image_Buffer (1 .. UI_Image_Length)); - elsif Known_Component_Bit_Offset (Comp) - and then List_Representation_Info = 3 - then - Spaces (Max_Spos_Length - 2); - Write_Str ("bit offset "); - - if Starting_Position /= Uint_0 - or else Starting_First_Bit /= Uint_0 - then - UI_Write (Starting_Position * SSU + Starting_First_Bit); - Write_Str (" + "); - end if; - - Write_Val (Bofs, Paren => True); - Write_Str (" size in bits = "); - Write_Val (Esiz, Paren => True); - Write_Eol; - - goto Continue; - elsif Known_Normalized_Position (Comp) and then List_Representation_Info = 3 then Spaces (Max_Spos_Length - 2); if Starting_Position /= Uint_0 then - Write_Char (' '); UI_Write (Starting_Position); - Write_Str (" +"); + Write_Str (" + "); end if; Write_Val (Npos); |