diff options
Diffstat (limited to 'gdb/testsuite/gdb.guile/scm-value.exp')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-value.exp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp index 91e1a56..ae80d1b 100644 --- a/gdb/testsuite/gdb.guile/scm-value.exp +++ b/gdb/testsuite/gdb.guile/scm-value.exp @@ -219,7 +219,11 @@ proc test_lazy_strings {} { "= const char \*." "Test lazy-string type name equality" gdb_test "gu (print (value-type sptr))" \ "= const char \*." "Test string type name equality" + + # Prevent symbol on address 0x0 being printed. + gdb_test_no_output "set print symbol off" gdb_test "print sn" "0x0" + gdb_scm_test_silent_cmd "gu (define snptr (history-ref 0))" \ "lazy strings: get snptr value from history" gdb_test "gu (define snstr (value->lazy-string snptr #:length 5))" \ |