From FEDORA_PATCHES Mon Sep 17 00:00:00 2001

From: Fedora GDB patches <invalid@email.com>

Date: Fri, 27 Oct 2017 21:07:50 +0200

Subject: gdb-6.3-test-dtorfix-20050121.patch

;; Test support of multiple destructors just like multiple constructors

;;=fedoratest

diff --git a/gdb/testsuite/gdb.cp/constructortest.cc b/gdb/testsuite/gdb.cp/constructortest.cc

new file mode 100644

--- /dev/null

+++ b/gdb/testsuite/gdb.cp/constructortest.cc

@@ -0,0 +1,99 @@

+/* This testcase is part of GDB, the GNU debugger.

+

+   Copyright 2005 Free Software Foundation, Inc.

+

+   This program is free software; you can redistribute it and/or modify

+   it under the terms of the GNU General Public License as published by

+   the Free Software Foundation; either version 2 of the License, or

+   (at your option) any later version.

+

+   This program is distributed in the hope that it will be useful,

+   but WITHOUT ANY WARRANTY; without even the implied warranty of

+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+   GNU General Public License for more details.

+

+   You should have received a copy of the GNU General Public License

+   along with this program; if not, write to the Free Software

+   Foundation, Inc., 59 Temple Place - Suite 330,

+   Boston, MA 02111-1307, USA.  */

+

+class A

+{

+  public:

+    A();

+    ~A();

+    int  k;

+  private:

+    int  x;

+};

+

+class B: public A

+{

+  public:

+    B();

+  private:

+    int  y;

+};

+

+/* C and D are for the $delete destructor.  */

+

+class C

+{

+  public:

+    C();

+    virtual ~C();

+  private:

+    int  x;

+};

+

+class D: public C

+{

+  public:

+    D();

+  private:

+    int  y;

+};

+

+int main(int argc, char *argv[])

+{

+  A* a = new A;

+  B* b = new B;

+  D* d = new D;

+  delete a;

+  delete b;

+  delete d;

+  return 0;

+}

+

+A::A() /* Constructor A */

+{

+   x = 1; /* First line A */

+   k = 4; /* Second line A */

+}

+

+A::~A() /* Destructor A */

+{

+   x = 3; /* First line ~A */

+   k = 6; /* Second line ~A */

+}

+

+B::B()

+{

+   y = 2; /* First line B */

+   k = 5;

+}

+

+C::C() /* Constructor C */

+{

+   x = 1; /* First line C */

+}

+

+C::~C() /* Destructor C */

+{

+   x = 3; /* First line ~C */

+}

+

+D::D()

+{

+   y = 2; /* First line D */

+}

diff --git a/gdb/testsuite/gdb.cp/constructortest.exp b/gdb/testsuite/gdb.cp/constructortest.exp

new file mode 100644

--- /dev/null

+++ b/gdb/testsuite/gdb.cp/constructortest.exp

@@ -0,0 +1,130 @@

+# This testcase is part of GDB, the GNU debugger.

+

+# Copyright 2005, 2007 Free Software Foundation, Inc.

+

+# This program is free software; you can redistribute it and/or modify

+# it under the terms of the GNU General Public License as published by

+# the Free Software Foundation; either version 2 of the License, or

+# (at your option) any later version.

+#

+# This program is distributed in the hope that it will be useful,

+# but WITHOUT ANY WARRANTY; without even the implied warranty of

+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+# GNU General Public License for more details.

+#

+# You should have received a copy of the GNU General Public License

+# along with this program; if not, write to the Free Software

+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  

+

+# Check that GDB can break at multiple forms of constructors.

+

+set testfile "constructortest"

+set srcfile ${testfile}.cc

+set binfile [standard_output_file ${testfile}]

+# PIE is required for testing proper BREAKPOINT_RE_SET of the multiple-PC

+# breakpoints.

+if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++ "additional_flags=-fpie -pie"}] != "" } {

+    return -1

+}

+

+gdb_exit

+gdb_start

+gdb_reinitialize_dir $srcdir/$subdir

+gdb_load ${binfile}

+

+#

+# Run to `main' where we begin our tests.

+#

+

+if ![runto_main] then {

+    gdb_suppress_tests

+}

+

+# Break on the various forms of the A::A constructor.

+# " (2 locations)" is displayed depending on G++ version.

+gdb_test "break A\:\:A" "Breakpoint 2 at .*" "breaking on A::A"

+        

+# Verify that we break for the A constructor two times

+# Once for new A and once for new B

+gdb_continue_to_breakpoint "First line A"

+gdb_test "bt" "#0.*A.*#1.*main.*" "Verify in in-charge A::A"

+gdb_continue_to_breakpoint "First line A"

+gdb_test "bt" "#0.*A.*#1.*B.*#2.*main.*" "Verify in not-in-charge A::A"

+

+# Now do the same for destructors

+gdb_test "break 'A::~A()'" ""

+

+# Verify that we break for the A destructor two times

+# Once for delete a and once for delete b

+gdb_continue_to_breakpoint "First line ~A"

+gdb_test "bt" "#0.*~A.*#1.*main.*" "Verify in in-charge A::~A"

+gdb_continue_to_breakpoint "First line ~A"

+gdb_test "bt" "#0.*~A.*#1.*~B.*#2.*main.*" "Verify in not-in-charge A::~A"

+

+

+# Verify that we can break by line number in a constructor and find

+# both occurrences

+runto_main

+gdb_test "break 'A::A()'" "" "break in constructor A 2"

+gdb_continue_to_breakpoint "First line A"

+set second_line [gdb_get_line_number "Second line A"]

+# " (2 locations)" is displayed depending on G++ version.

+gdb_test "break $second_line" "Breakpoint .*, line $second_line\\..*" "break by line in constructor"

+gdb_continue_to_breakpoint "Second line A"

+gdb_test "bt" "#0.*A.*#1.*main.*" "Verify in in-charge A::A second line"

+gdb_continue_to_breakpoint "Second line A"

+gdb_test "bt" "#0.*A.*#1.*B.*#2.*main.*" "Verify in not-in-charge A::A second line"

+

+# Verify that we can break by line number in a destructor and find

+# both occurrences

+gdb_test "break 'A::~A()'" "" "break in constructor ~A 2"

+gdb_continue_to_breakpoint "First line ~A"

+set second_line_dtor [gdb_get_line_number "Second line ~A"]

+# " (2 locations)" is displayed depending on G++ version.

+gdb_test "break $second_line_dtor" "Breakpoint .*, line $second_line_dtor\\..*" "break by line in destructor"

+gdb_continue_to_breakpoint "Second line ~A"

+gdb_test "bt" "#0.*A.*#1.*main.*" "Verify in in-charge A::~A second line"

+# FIXME: Analyse this case better.

+gdb_continue_to_breakpoint "Second line ~A"

+gdb_test "bt" "#0.*A.*#1.*main.*" "Verify in A::~A second line #2"

+gdb_continue_to_breakpoint "Second line ~A"

+gdb_test "bt" "#0.*A.*#1.*B.*#2.*main.*" "Verify in not-in-charge A::~A second line"

+

+

+# Test now the $delete destructors.

+

+gdb_load ${binfile}

+runto_main

+

+set first_line_dtor [gdb_get_line_number "First line ~C"]

+set define_line_dtor [gdb_get_line_number "Destructor C"]

+# Break on the various forms of the C::~C destructor

+# " ([23] locations)" is displayed depending on G++ version.

+gdb_test "break C\:\:~C" "Breakpoint .*: C::~C\\. \\(2 locations\\)" "breaking on C::~C"

+gdb_continue_to_breakpoint "First line ~C"

+

+# Verify that we can break by line number in a destructor and find

+# the $delete occurence

+

+gdb_load ${binfile}

+delete_breakpoints

+

+# " (3 locations)" is displayed depending on G++ version.

+gdb_test "break $first_line_dtor" "Breakpoint .*, line $first_line_dtor\\..*" "break by line in destructor"

+

+# Run to `main' where we begin our tests.

+# Set the breakpoints first to test PIE multiple-PC BREAKPOINT_RE_SET.

+# RUNTO_MAIN or RUNTO MAIN are not usable here as it runs DELETE_BREAKPOINTS.

+

+if ![gdb_breakpoint main] {

+    gdb_suppress_tests

+}

+gdb_run_cmd

+set test "running to main"

+gdb_test_multiple "" $test {

+    -re "Breakpoint \[0-9\]*, main .*$gdb_prompt $" {

+	pass $test

+    }

+}

+

+gdb_continue_to_breakpoint "First line ~C"