diff options
| author | Andy Wingo <wingo@igalia.com> | 2015-03-11 14:20:06 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@igalia.com> | 2015-03-11 14:20:06 +0100 |
| commit | 85642ba08c459bb2f9d1e7beffa1871c9a93ca66 (patch) | |
| tree | 23a625556fd3e2f894ac3d656f654ed8d2d8a0e8 /gdb/testsuite/gdb.guile | |
| parent | 92fab5a61707cd3b487219ea9efa0e410cde3bc4 (diff) | |
| download | gdb-85642ba08c459bb2f9d1e7beffa1871c9a93ca66.zip gdb-85642ba08c459bb2f9d1e7beffa1871c9a93ca66.tar.gz gdb-85642ba08c459bb2f9d1e7beffa1871c9a93ca66.tar.bz2 | |
Add objfile-progspace to Guile interface
This commit adds an objfile-progspace accessor to the (gdb) Guile
module.
gdb/testsuite/ChangeLog:
* gdb.guile/scm-objfile.exp: Add objfile-progspace test.
gdb/doc/ChangeLog:
* guile.texi (Objfiles In Guile): Document objfile-progspace.
gdb/ChangeLog:
* guile/scm-objfile.c (gdbscm_objfile_progspace): New function.
(objfile_functions): Bind gdbscm_objfile_progspace to
objfile-progspace.
* guile/lib/gdb.scm: Add objfile-progspace to exports.
Diffstat (limited to 'gdb/testsuite/gdb.guile')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-objfile.exp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-objfile.exp b/gdb/testsuite/gdb.guile/scm-objfile.exp index c58f4c4..8edda94 100644 --- a/gdb/testsuite/gdb.guile/scm-objfile.exp +++ b/gdb/testsuite/gdb.guile/scm-objfile.exp @@ -48,6 +48,9 @@ gdb_test "gu (print (->bool (or-map (lambda (o) (string-contains (objfile-filena gdb_test "gu (print (objfile-pretty-printers objfile))" \ "= \\(\\)" +gdb_test "gu (print (eq? (current-progspace) (objfile-progspace objfile)))" \ + "= #t" + gdb_test "guile (set-objfile-pretty-printers! objfile 0)" \ "ERROR: .*: Wrong type argument in position 2 \\(expecting list\\): 0.*" |