diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-03-13 09:55:12 -0700 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-03-13 09:55:12 -0700 |
| commit | 5a1e8c7a83c17df130a48fb0a736cde6f22bfca9 (patch) | |
| tree | 6c2bdd8d5cc7ee9dbf331b1f98208a6f5361f28d /gdb/testsuite/gdb.guile | |
| parent | 350e1a768cca6deab7aeca8adcff9561faeb1f35 (diff) | |
| download | gdb-5a1e8c7a83c17df130a48fb0a736cde6f22bfca9.zip gdb-5a1e8c7a83c17df130a48fb0a736cde6f22bfca9.tar.gz gdb-5a1e8c7a83c17df130a48fb0a736cde6f22bfca9.tar.bz2 | |
Fix pr 16612.
* guile/scm-type.c (tyscm_copy_type_recursive): Move type to its
new eq?-hashtab.
testsuite/
* gdb.guile/scm-value.ep (test_value_after_death): Do a garbage
collect after discarding symbols.
Diffstat (limited to 'gdb/testsuite/gdb.guile')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-value.exp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp index a85d5bd..0bcd381 100644 --- a/gdb/testsuite/gdb.guile/scm-value.exp +++ b/gdb/testsuite/gdb.guile/scm-value.exp @@ -286,6 +286,9 @@ proc test_value_after_death {} { "Discard symbol table from.*y or n. $" \ "y" + # First do a garbage collect to delete anything unused. PR 16612. + gdb_scm_test_silent_cmd "gu (gc)" "garbage collect" + # Now create a value using that type. Relies on arg0, created by # test_value_in_inferior. gdb_scm_test_silent_cmd "gu (define castval (value-cast arg0 (type-pointer ptrtype)))" \ |