diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-11-19 05:42:03 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-17 05:49:25 -0500 |
commit | 6a6926635c36e0ef2598b5399afdbfc2dbd4bf1f (patch) | |
tree | 337fd3f5c298bf6422dc32f4a0e5fb8d6fbe35b3 /gcc/testsuite/gnat.dg | |
parent | 68dd664912916c3bce87e95b2ddf12184e0c1b43 (diff) |
[Ada] Performance of CW_Membership
gcc/ada/
* libgnat/a-tags.ads, libgnat/a-tags.adb (CW_Membership): Move
to spec to allow inlining.
gcc/testsuite/
* gnat.dg/debug15.adb: Remove fragile testcase.
Diffstat (limited to 'gcc/testsuite/gnat.dg')
-rw-r--r-- | gcc/testsuite/gnat.dg/debug15.adb | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gcc/testsuite/gnat.dg/debug15.adb b/gcc/testsuite/gnat.dg/debug15.adb deleted file mode 100644 index 75470e3c319..00000000000 --- a/gcc/testsuite/gnat.dg/debug15.adb +++ /dev/null @@ -1,23 +0,0 @@ --- { dg-do compile } --- { dg-options "-g1" } - -procedure Debug15 is - - type Shape is abstract tagged record - S : Integer; - end record; - - type Rectangle is new Shape with record - R : Integer; - end record; - - X : Integer; - - R: Rectangle := (1, 2); - S: Shape'Class := R; - -begin - X := 12; -end; - --- { dg-final { scan-assembler-not "loc 2" } } |