From FEDORA_PATCHES Mon Sep 17 00:00:00 2001 From: Fedora GDB patches Date: Fri, 27 Oct 2017 21:07:50 +0200 Subject: gdb-rhbz1156192-recursive-dlopen-test.patch ;; Testcase for '[SAP] Recursive dlopen causes SAP HANA installer to ;; crash.' (RH BZ 1156192). ;;=fedoratest diff --git a/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libbar.c b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libbar.c new file mode 100644 --- /dev/null +++ b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libbar.c @@ -0,0 +1,30 @@ +/* Testcase for recursive dlopen calls. + + Copyright (C) 2014 Free Software Foundation, Inc. + + This file is part of GDB. + + 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 3 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, see . */ + +/* This test was copied from glibc's testcase called + and related files. */ + +#include +#include + +void +bar (void) +{ + printf ("Called bar.\n"); +} diff --git a/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libfoo.c b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libfoo.c new file mode 100644 --- /dev/null +++ b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen-libfoo.c @@ -0,0 +1,30 @@ +/* Testcase for recursive dlopen calls. + + Copyright (C) 2014 Free Software Foundation, Inc. + + This file is part of GDB. + + 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 3 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, see . */ + +/* This test was copied from glibc's testcase called + and related files. */ + +#include +#include + +void +foo (void) +{ + printf ("Called foo.\n"); +} diff --git a/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.c b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.c new file mode 100644 --- /dev/null +++ b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.c @@ -0,0 +1,124 @@ +/* Testcase for recursive dlopen calls. + + Copyright (C) 2014 Free Software Foundation, Inc. + + This file is part of GDB. + + 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 3 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, see . */ + +/* This test was copied from glibc's testcase called + and related files. */ + +#include +#include +#include +#include + +#define DSO "gdb-rhbz1156192-recursive-dlopen-libfoo.so" +#define FUNC "foo" + +#define DSO1 "gdb-rhbz1156192-recursive-dlopen-libbar.so" +#define FUNC1 "bar" + +/* Prototype for my hook. */ +void *custom_malloc_hook (size_t, const void *); + +/* Pointer to old malloc hooks. */ +void *(*old_malloc_hook) (size_t, const void *); + +/* Call function func_name in DSO dso_name via dlopen. */ +void +call_func (const char *dso_name, const char *func_name) +{ + int ret; + void *dso; + void (*func) (void); + char *err; + + /* Open the DSO. */ + dso = dlopen (dso_name, RTLD_NOW|RTLD_GLOBAL); + if (dso == NULL) + { + err = dlerror (); + fprintf (stderr, "%s\n", err); + exit (1); + } + /* Clear any errors. */ + dlerror (); + + /* Lookup func. */ + *(void **) (&func) = dlsym (dso, func_name); + if (func == NULL) + { + err = dlerror (); + if (err != NULL) + { + fprintf (stderr, "%s\n", err); + exit (1); + } + } + /* Call func twice. */ + (*func) (); + + /* Close the library and look for errors too. */ + ret = dlclose (dso); + if (ret != 0) + { + err = dlerror (); + fprintf (stderr, "%s\n", err); + exit (1); + } + +} + +/* Empty hook that does nothing. */ +void * +custom_malloc_hook (size_t size, const void *caller) +{ + void *result; + /* Restore old hooks. */ + __malloc_hook = old_malloc_hook; + /* First call a function in another library via dlopen. */ + call_func (DSO1, FUNC1); + /* Called recursively. */ + result = malloc (size); + /* Restore new hooks. */ + __malloc_hook = custom_malloc_hook; + return result; +} + +int +main (void) +{ + + /* Save old hook. */ + old_malloc_hook = __malloc_hook; + /* Install new hook. */ + __malloc_hook = custom_malloc_hook; + + /* Attempt to dlopen a shared library. This dlopen will + trigger an access to the ld.so.cache, and that in turn + will require a malloc to duplicate data in the cache. + The malloc will call our malloc hook which calls dlopen + recursively, and upon return of this dlopen the non-ref + counted ld.so.cache mapping will be unmapped. We will + return to the original dlopen and crash trying to access + dlopened data. */ + call_func (DSO, FUNC); + + /* Restore old hook. */ + __malloc_hook = old_malloc_hook; + + return 0; +} diff --git a/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.exp b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.exp new file mode 100644 --- /dev/null +++ b/gdb/testsuite/gdb.base/gdb-rhbz1156192-recursive-dlopen.exp @@ -0,0 +1,137 @@ +# Copyright 2014 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 3 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, see . + +if { [skip_shlib_tests] } { + return 0 +} + +# Library foo +set libname1 "gdb-rhbz1156192-recursive-dlopen-libfoo" +set srcfile_lib1 ${srcdir}/${subdir}/${libname1}.c +set binfile_lib1 [standard_output_file ${libname1}.so] +# Library bar +set libname2 "gdb-rhbz1156192-recursive-dlopen-libbar" +set srcfile_lib2 ${srcdir}/${subdir}/${libname2}.c +set binfile_lib2 [standard_output_file ${libname2}.so] + +set testfile "gdb-rhbz1156192-recursive-dlopen" +set srcfile ${testfile}.c +set executable ${testfile} +set binfile [standard_output_file ${executable}] + +if { [gdb_compile_shlib ${srcfile_lib1} ${binfile_lib1} \ + { debug "additional_flags=-fPIC" }] != "" } { + untested "Could not compile ${binfile_lib1}" + return -1 +} + +if { [gdb_compile_shlib ${srcfile_lib2} ${binfile_lib2} \ + { debug "additional_flags=-fPIC" }] != "" } { + untested "Could not compile ${binfile_lib2}" + return -1 +} + +if { [prepare_for_testing ${testfile}.exp ${executable} ${srcfile} \ + [ list debug shlib_load "additional_flags=-Wno-deprecated-declarations" ]] } { + untested "Could not compile ${executable}" + return -1 +} + +proc do_test { has_libfoo has_libbar } { + global hex binfile_lib2 binfile_lib1 gdb_prompt + set libbar_match "[string_to_regexp $binfile_lib2]" + set libfoo_match "[string_to_regexp $binfile_lib1]" + + gdb_test_multiple "info shared" "info shared" { + -re ".*$libfoo_match\r\n.*$libbar_match\(\r\n.*Shared library is missing\)?.*\r\n${gdb_prompt} $" { + if { $has_libfoo && $has_libbar } { + pass "matched libfoo and libbar" + } else { + fail "matched libfoo and libbar (has_libfoo = $has_libfoo, has_libbar = $has_libbar)" + } + } + -re ".*$libfoo_match\(\r\n.*Shared library is missing\)?.*\r\n${gdb_prompt} $" { + if { $has_libfoo && !$has_libbar } { + pass "matched libfoo" + } else { + fail "matched libfoo (has_libfoo = $has_libfoo, has_libbar = $has_libbar)" + } + } + -re ".*$libbar_match\(\r\n.*Shared library is missing\)?.*\r\n${gdb_prompt} $" { + if { $has_libbar && !$has_libfoo } { + pass "matched libbar" + } else { + fail "matched libbar (has_libfoo = $has_libfoo, has_libbar = $has_libbar)" + } + } + "\r\n${gdb_prompt} $" { + if { !$has_libfoo && !$has_libbar } { + pass "did not match libfoo nor libbar" + } else { + fail "did not match libfoo nor libbar (has_libfoo = $has_libfoo, has_libbar = $has_libbar)" + } + } + } +} + +proc test_stop_on_solib_events { } { + set pass 0 + # This variable holds the information about whether libfoo and + # libbar (respectively) are expected in the "info shared" output. + set solib_event_order { { 0 0 } { 0 0 } { 0 0 } { 0 1 } \ + { 0 1 } { 0 0 } { 0 0 } { 0 1 } \ + { 0 1 } { 0 0 } { 0 0 } { 0 1 } \ + { 0 1 } { 0 0 } { 0 0 1 } { 1 1 } \ + { 1 1 } { 1 0 } { 1 0 } { 1 1 } \ + { 1 1 } { 1 0 1 } { 1 0 } { 1 0 } } + + with_test_prefix "stop-on-solib-events" { + gdb_test_no_output "set stop-on-solib-events 1" "setting stop-on-solib-events" + + gdb_run_cmd + foreach l $solib_event_order { + incr pass + with_test_prefix "pass #$pass" { + set should_be_corrupted [expr 0+0[lindex $l 2]] + do_test [lindex $l 0] [lindex $l 1] + set test "continue" + global gdb_prompt + gdb_test_multiple $test $test { + -re "\r\nwarning: Corrupted shared library list:.*\r\nStopped due to shared library event.*\r\n$gdb_prompt $" { + set corrupted 1 + pass $test + } + -re "\r\nStopped due to shared library event.*\r\n$gdb_prompt $" { + set corrupted 0 + pass $test + } + } + set test "corrupted=$corrupted but should_be_corrupted=$should_be_corrupted" + if {$corrupted == $should_be_corrupted} { + pass $test + } else { + fail $test + } + } + } + # In the last pass we do not expect to see libfoo or libbar. + incr pass + with_test_prefix "pass #$pass" { + do_test 0 0 + } + } +} + +test_stop_on_solib_events