diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-02-09 19:40:01 -0800 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-02-09 19:40:01 -0800 |
| commit | ed3ef33944c39d9a3cea72b9a7cef3c20f0e3461 (patch) | |
| tree | 4e67d95b8ea65bb36a9cade5e37df2ad6289052e /gdb/testsuite/gdb.guile/scm-symtab.exp | |
| parent | 7026a7c16ee82d39e84823f8cc3097a9a940ddb2 (diff) | |
| download | gdb-ed3ef33944c39d9a3cea72b9a7cef3c20f0e3461.zip gdb-ed3ef33944c39d9a3cea72b9a7cef3c20f0e3461.tar.gz gdb-ed3ef33944c39d9a3cea72b9a7cef3c20f0e3461.tar.bz2 | |
Add Guile as an extension language.
* NEWS: Mention Guile scripting.
* Makefile.in (SUBDIR_GUILE_OBS): New variable.
(SUBDIR_GUILE_SRCS, SUBDIR_GUILE_DEPS): New variables
(SUBDIR_GUILE_LDFLAGS, SUBDIR_GUILE_CFLAGS): New variables.
(INTERNAL_CPPFLAGS): Add GUILE_CPPFLAGS.
(CLIBS): Add GUILE_LIBS.
(install-guile): New rule.
(guile.o): New rule.
(scm-arch.o, scm-auto-load.o, scm-block.o): New rules.
(scm-breakpoint.o, scm-disasm.o, scm-exception.o): New rules.
(scm-frame.o, scm-iterator.o, scm-lazy-string.o): New rules.
(scm-math.o, scm-objfile.o, scm-ports.o): New rules.
(scm-pretty-print.o, scm-safe-call.o, scm-gsmob.o): New rules.
(scm-string.o, scm-symbol.o, scm-symtab.o): New rules.
(scm-type.o, scm-utils.o, scm-value.o): New rules.
* configure.ac: New option --with-guile.
* configure: Regenerate.
* config.in: Regenerate.
* auto-load.c: Remove #include "python/python.h". Add #include
"gdb/section-scripts.h".
(source_section_scripts): Handle Guile scripts.
(_initialize_auto_load): Add name of Guile objfile script to
scripts-directory help text.
* breakpoint.c (condition_command): Tweak comment to include Scheme.
* breakpoint.h (gdbscm_breakpoint_object): Add forward decl.
(struct breakpoint): New member scm_bp_object.
* defs.h (enum command_control_type): New value guile_control.
* cli/cli-cmds.c: Remove #include "python/python.h". Add #include
"extension.h".
(show_user): Update comment.
(_initialize_cli_cmds): Update help text for "show user". Update help
text for max-user-call-depth.
* cli/cli-script.c: Remove #include "python/python.h". Add #include
"extension.h".
(multi_line_command_p): Add guile_control.
(print_command_lines): Handle guile_control.
(execute_control_command, recurse_read_control_structure): Ditto.
(process_next_line): Recognize "guile" commands.
* disasm.c (gdb_disassemble_info): Make non-static.
* disasm.h: #include "dis-asm.h".
(struct gdbarch): Add forward decl.
(gdb_disassemble_info): Declare.
* extension.c: #include "guile/guile.h".
(extension_languages): Add guile.
(get_ext_lang_defn): Handle EXT_LANG_GDB.
* extension.h (enum extension_language): New value EXT_LANG_GUILE.
* gdbtypes.c (get_unsigned_type_max): New function.
(get_signed_type_minmax): New function.
* gdbtypes.h (get_unsigned_type_max): Declare.
(get_signed_type_minmax): Declare.
* guile/README: New file.
* guile/guile-internal.h: New file.
* guile/guile.c: New file.
* guile/guile.h: New file.
* guile/scm-arch.c: New file.
* guile/scm-auto-load.c: New file.
* guile/scm-block.c: New file.
* guile/scm-breakpoint.c: New file.
* guile/scm-disasm.c: New file.
* guile/scm-exception.c: New file.
* guile/scm-frame.c: New file.
* guile/scm-gsmob.c: New file.
* guile/scm-iterator.c: New file.
* guile/scm-lazy-string.c: New file.
* guile/scm-math.c: New file.
* guile/scm-objfile.c: New file.
* guile/scm-ports.c: New file.
* guile/scm-pretty-print.c: New file.
* guile/scm-safe-call.c: New file.
* guile/scm-string.c: New file.
* guile/scm-symbol.c: New file.
* guile/scm-symtab.c: New file.
* guile/scm-type.c: New file.
* guile/scm-utils.c: New file.
* guile/scm-value.c: New file.
* guile/lib/gdb.scm: New file.
* guile/lib/gdb/boot.scm: New file.
* guile/lib/gdb/experimental.scm: New file.
* guile/lib/gdb/init.scm: New file.
* guile/lib/gdb/iterator.scm: New file.
* guile/lib/gdb/printing.scm: New file.
* guile/lib/gdb/types.scm: New file.
* data-directory/Makefile.in (GUILE_SRCDIR): New variable.
(VPATH): Add $(GUILE_SRCDIR).
(GUILE_DIR): New variable.
(GUILE_INSTALL_DIR, GUILE_FILES): New variables.
(all): Add stamp-guile dependency.
(stamp-guile): New rule.
(clean-guile, install-guile, uninstall-guile): New rules.
(install-only): Add install-guile dependency.
(uninstall): Add uninstall-guile dependency.
(clean): Add clean-guile dependency.
doc/
* Makefile.in (GDB_DOC_FILES): Add guile.texi.
* gdb.texinfo (Auto-loading): Add set/show auto-load guile-scripts.
(Extending GDB): New menu entries Guile, Multiple Extension Languages.
(Guile docs): Include guile.texi.
(objfile-gdbdotext file): Add objfile-gdb.scm.
(dotdebug_gdb_scripts section): Mention Guile scripts.
(Multiple Extension Languages): New node.
* guile.texi: New file.
testsuite/
* configure.ac (AC_OUTPUT): Add gdb.guile.
* configure: Regenerate.
* lib/gdb-guile.exp: New file.
* lib/gdb.exp (get_target_charset): New function.
* gdb.base/help.exp: Update expected output from "apropos apropos".
* gdb.guile/Makefile.in: New file.
* gdb.guile/guile.exp: New file.
* gdb.guile/scm-arch.c: New file.
* gdb.guile/scm-arch.exp: New file.
* gdb.guile/scm-block.c: New file.
* gdb.guile/scm-block.exp: New file.
* gdb.guile/scm-breakpoint.c: New file.
* gdb.guile/scm-breakpoint.exp: New file.
* gdb.guile/scm-disasm.c: New file.
* gdb.guile/scm-disasm.exp: New file.
* gdb.guile/scm-equal.c: New file.
* gdb.guile/scm-equal.exp: New file.
* gdb.guile/scm-error.exp: New file.
* gdb.guile/scm-error.scm: New file.
* gdb.guile/scm-frame-args.c: New file.
* gdb.guile/scm-frame-args.exp: New file.
* gdb.guile/scm-frame-args.scm: New file.
* gdb.guile/scm-frame-inline.c: New file.
* gdb.guile/scm-frame-inline.exp: New file.
* gdb.guile/scm-frame.c: New file.
* gdb.guile/scm-frame.exp: New file.
* gdb.guile/scm-generics.exp: New file.
* gdb.guile/scm-gsmob.exp: New file.
* gdb.guile/scm-iterator.c: New file.
* gdb.guile/scm-iterator.exp: New file.
* gdb.guile/scm-math.c: New file.
* gdb.guile/scm-math.exp: New file.
* gdb.guile/scm-objfile-script-gdb.in: New file.
* gdb.guile/scm-objfile-script.c: New file.
* gdb.guile/scm-objfile-script.exp: New file.
* gdb.guile/scm-objfile.c: New file.
* gdb.guile/scm-objfile.exp: New file.
* gdb.guile/scm-ports.exp: New file.
* gdb.guile/scm-pretty-print.c: New file.
* gdb.guile/scm-pretty-print.exp: New file.
* gdb.guile/scm-pretty-print.scm: New file.
* gdb.guile/scm-section-script.c: New file.
* gdb.guile/scm-section-script.exp: New file.
* gdb.guile/scm-section-script.scm: New file.
* gdb.guile/scm-symbol.c: New file.
* gdb.guile/scm-symbol.exp: New file.
* gdb.guile/scm-symtab-2.c: New file.
* gdb.guile/scm-symtab.c: New file.
* gdb.guile/scm-symtab.exp: New file.
* gdb.guile/scm-type.c: New file.
* gdb.guile/scm-type.exp: New file.
* gdb.guile/scm-value-cc.cc: New file.
* gdb.guile/scm-value-cc.exp: New file.
* gdb.guile/scm-value.c: New file.
* gdb.guile/scm-value.exp: New file.
* gdb.guile/source2.scm: New file.
* gdb.guile/types-module.cc: New file.
* gdb.guile/types-module.exp: New file.
Diffstat (limited to 'gdb/testsuite/gdb.guile/scm-symtab.exp')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-symtab.exp | 142 |
1 files changed, 142 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-symtab.exp b/gdb/testsuite/gdb.guile/scm-symtab.exp new file mode 100644 index 0000000..4309ae6 --- /dev/null +++ b/gdb/testsuite/gdb.guile/scm-symtab.exp @@ -0,0 +1,142 @@ +# Copyright (C) 2010-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 <http://www.gnu.org/licenses/>. + +# This file is part of the GDB testsuite. +# It tests the Guile symbol table support. + +load_lib gdb-guile.exp + +standard_testfile scm-symtab.c scm-symtab-2.c + +if {[prepare_for_testing $testfile.exp $testfile \ + [list $srcfile $srcfile2] debug]} { + return +} + +# Skip all tests if Guile scripting is not enabled. +if { [skip_guile_tests] } { continue } + +if ![gdb_guile_runto_main] { + return +} + +# Setup and get the symbol table. +set line_no [gdb_get_line_number "Block break here."] +gdb_breakpoint $line_no +gdb_continue_to_breakpoint "Block break here." +gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \ + "get frame" +gdb_scm_test_silent_cmd "guile (define sal (frame-sal frame))" \ + "get sal" +gdb_scm_test_silent_cmd "guile (define symtab (sal-symtab sal))" \ + "get symtab" +gdb_scm_test_silent_cmd "guile (define global-block (symtab-global-block symtab))" \ + "get global block" +gdb_scm_test_silent_cmd "guile (define static-block (symtab-static-block symtab))" \ + "get static block" + +gdb_scm_test_silent_cmd "guile (define global-symbols (map symbol-name (block-symbols global-block)))" \ + "get global symbol names" +gdb_scm_test_silent_cmd "guile (define static-symbols (map symbol-name (block-symbols static-block)))" \ + "get static symbol names" +gdb_scm_test_silent_cmd "guile (define global-isymbols '()) (define static-isymbols '())" \ + "set up iterated symbol name lists" +# TODO: iterated symbols +gdb_scm_test_silent_cmd "step" "Step to the next line" +gdb_scm_test_silent_cmd "guile (define new-pc (sal-pc (frame-sal (selected-frame))))" \ + "get new pc" + +# Test sal. +gdb_test "guile (print (sal-symtab sal))" \ + ".*gdb.guile/scm-symtab.c.*" "Test sal-symtab" +gdb_test "guile (print (sal-pc sal))" \ + "${decimal}" "test sal-pc" +gdb_test "guile (print (= (sal-last sal) (- new-pc 1)))" \ + "#t" "test sal-last" +gdb_test "guile (print (sal-line sal))" \ + "$line_no" "test sal-line" +gdb_test "guile (print (sal-valid? sal))" \ + "#t" "test sal-valid?" + +# Test eq? on symtabs. +gdb_scm_test_silent_cmd "guile (define sal1 (frame-sal frame))" \ + "get sal1" +gdb_scm_test_silent_cmd "guile (define sal2 (frame-sal (frame-older frame)))" \ + "get sal2" +gdb_test "guile (print (eq? symtab (sal-symtab sal1)))" \ + "= #t" "test eq? of equal symtabs" +gdb_test "guile (print (eq? symtab (sal-symtab sal2)))" \ + "= #t" "test eq? of equal symtabs from different sals" +gdb_test "guile (print (eq? symtab (symbol-symtab (lookup-global-symbol \"func1\"))))" \ + "= #f" "test eq? of not-equal symtabs" + +# Test symbol table. +gdb_test "guile (print (symtab-filename symtab))" \ + ".*gdb.guile/scm-symtab.c.*" "test symtab-filename" +gdb_test "guile (print (symtab-objfile symtab))" \ + "#<gdb:objfile .*scm-symtab>" "test symtab-objfile" +gdb_test "guile (print (symtab-fullname symtab))" \ + "testsuite/gdb.guile/scm-symtab.c.*" "test symtab-fullname" +gdb_test "guile (print (symtab-valid? symtab))" \ + "#t" "test symtab-valid?" +gdb_test "guile (print (->bool (member \"qq\" global-symbols)))" \ + "#t" "test qq in global symbols" +gdb_test "guile (print (->bool (member \"func\" global-symbols)))" \ + "#t" "test func in global symbols" +gdb_test "guile (print (->bool (member \"main\" global-symbols)))" \ + "#t" "test main in global symbols" +gdb_test "guile (print (->bool (member \"int\" static-symbols)))" \ + "#t" "test int in static symbols" +gdb_test "guile (print (->bool (member \"char\" static-symbols)))" \ + "#t" "test char in static symbols" +gdb_test "guile (print (->bool (member \"simple_struct\" static-symbols)))" \ + "#t" "test simple_struct in static symbols" + +# Test is_valid when the objfile is unloaded. This must be the last +# test as it unloads the object file in GDB. +gdb_unload +gdb_test "guile (print (sal-valid? sal))" \ + "#f" "test sal-valid? after unloading" +gdb_test "guile (print (symtab-valid? symtab))" \ + "#f" "test symtab-valid? after unloading" + +gdb_test_no_output "guile (set! sal #f)" \ + "test sal destructor" +gdb_test_no_output "guile (set! symtab #f)" \ + "test symtab destructor" +gdb_test_no_output "guile (gc)" "GC to trigger destructors" + +# Start with a fresh gdb. +clean_restart ${testfile} + +# Test find-pc-line. +# The following tests require execution. + +if ![gdb_guile_runto_main] { + return +} + +runto [gdb_get_line_number "Break at func2 call site."] + +gdb_scm_test_silent_cmd "guile (define line (sal-line (frame-sal (selected-frame))))" \ + "get line number of func2 call site" +gdb_test "guile (print (= (sal-line (find-pc-line (frame-pc (selected-frame)))) line))" \ + "#t" "test find-pc-line at func2 call site" + +gdb_scm_test_silent_cmd "step" "step into func2" +gdb_scm_test_silent_cmd "up" "step out of func2" + +gdb_test "guile (print (> (sal-line (find-pc-line (frame-pc (selected-frame)))) line))" \ + "#t" "test find-pc-line with resume address" |