mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:51:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Emit DW_AT_GNU_bias with -fgnat-encodings=gdb

Browse Source 
Emit DW_AT_GNU_bias with -fgnat-encodings=gdb.  gdb implements this,
but not the encoded variant.

2019-09-19  Tom Tromey  <tromey@adacore.com>

gcc/ada/

	* gcc-interface/misc.c (gnat_get_type_bias): Return the bias
	when -fgnat-encodings=gdb.

gcc/testsuite/

	* gnat.dg/bias1.adb: New testcase.

From-SVN: r275958
This commit is contained in:
Tom Tromey 2019-09-19 08:14:57 +00:00 committed by Pierre-Marie de Rodat
parent 0c27222c60
commit 4736041b5a
4 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2019-09-19 Tom Tromey <tromey@adacore.com>
* gcc-interface/misc.c (gnat_get_type_bias): Return the bias
when -fgnat-encodings=gdb.
2019-09-19 Steve Baird <baird@adacore.com>
* sem_prag.adb (Preferred_String_Type): A new function. Given an

2
gcc/ada/gcc-interface/misc.c
View File

@ -1111,7 +1111,7 @@ gnat_get_type_bias (const_tree gnu_type)
{
if (TREE_CODE (gnu_type) == INTEGER_TYPE
&& TYPE_BIASED_REPRESENTATION_P (gnu_type)
&& gnat_encodings == DWARF_GNAT_ENCODINGS_MINIMAL)
&& gnat_encodings != DWARF_GNAT_ENCODINGS_ALL)
return TYPE_RM_MIN_VALUE (gnu_type);
return NULL_TREE;

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2019-09-19 Tom Tromey <tromey@adacore.com>
* gnat.dg/bias1.adb: New testcase.
2019-09-19 Steve Baird <baird@adacore.com>
* gnat.dg/annotation1.adb: New testcase.

34
gcc/testsuite/gnat.dg/bias1.adb Normal file
View File

@ -0,0 +1,34 @@
-- { dg-do compile }
-- { dg-options "-cargs -g -dA -gnatws -fgnat-encodings=gdb -margs" }
-- { dg-final { scan-assembler "DW_AT_GNU_bias" } }
procedure Bias1 is
type Small is range -7 .. -4;
for Small'Size use 2;
Y : Small := -5;
Y1 : Small := -7;
type Byte is mod 256;
type Repeat_Count_T is new Byte range 1 .. 2 ** 6;
for Repeat_Count_T'Size use 6;
X : Repeat_Count_T := 64;
X1 : Repeat_Count_T := 1;
type Char_Range is range 65 .. 68;
for Char_Range'Size use 2;
Cval : Char_Range := 65;
type SomePackedRecord is record
R: Small;
S: Small;
end record;
pragma Pack (SomePackedRecord);
SPR : SomePackedRecord := (R => -4, S => -5);
type Packed_Array is array (1 .. 3) of Small;
pragma pack (Packed_Array);
A : Packed_Array := (-7, -5, -4);
begin
null;
end Bias1;