f2983cc34e
gdb/ChangeLog: * guile/scm-frame.c (gdbscm_frame_read_register): New function. (frame_functions): Bind gdbscm_frame_read_register to frame-read-register. * guile/lib/gdb.scm (frame-read-register): Export. gdb/doc/ChangeLog: * guile.texi (Frames In Guile): Describe frame-read-register. gdb/testsuite/ChangeLog: * gdb.guile/scm-frame.exp: Add frame-read-register tests, modelled after the Python tests.
511 lines
8.6 KiB
Scheme
511 lines
8.6 KiB
Scheme
;; Scheme side of the gdb module.
|
|
;;
|
|
;; Copyright (C) 2014-2015 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 <http://www.gnu.org/licenses/>.
|
|
|
|
;; This file is loaded with scm_c_primitive_load, which is ok, but files
|
|
;; loaded with it are not compiled. So we do very little here, and do
|
|
;; most of the initialization in init.scm.
|
|
|
|
(define-module (gdb)
|
|
;; The version of the (gdb) module as (major minor).
|
|
;; Incompatible changes bump the major version.
|
|
;; Other changes bump the minor version.
|
|
;; It's not clear whether we need a patch-level as well, but this can
|
|
;; be added later if necessary.
|
|
;; This is not the GDB version on purpose. This version tracks the Scheme
|
|
;; gdb module version.
|
|
;; TODO: Change to (1 0) when ready.
|
|
#:version (0 1))
|
|
|
|
;; Export the bits provided by the C side.
|
|
;; This is so that the compiler can see the exports when
|
|
;; other code uses this module.
|
|
;; TODO: Generating this list would be nice, but it would require an addition
|
|
;; to the GDB build system. Still, I think it's worth it.
|
|
|
|
(export
|
|
|
|
;; guile.c
|
|
|
|
execute
|
|
data-directory
|
|
gdb-version
|
|
host-config
|
|
target-config
|
|
|
|
;; scm-arch.c
|
|
|
|
arch?
|
|
current-arch
|
|
arch-name
|
|
arch-charset
|
|
arch-wide-charset
|
|
|
|
arch-void-type
|
|
arch-char-type
|
|
arch-short-type
|
|
arch-int-type
|
|
arch-long-type
|
|
|
|
arch-schar-type
|
|
arch-uchar-type
|
|
arch-ushort-type
|
|
arch-uint-type
|
|
arch-ulong-type
|
|
arch-float-type
|
|
arch-double-type
|
|
arch-longdouble-type
|
|
arch-bool-type
|
|
arch-longlong-type
|
|
arch-ulonglong-type
|
|
|
|
arch-int8-type
|
|
arch-uint8-type
|
|
arch-int16-type
|
|
arch-uint16-type
|
|
arch-int32-type
|
|
arch-uint32-type
|
|
arch-int64-type
|
|
arch-uint64-type
|
|
|
|
;; scm-block.c
|
|
|
|
block?
|
|
block-valid?
|
|
block-start
|
|
block-end
|
|
block-function
|
|
block-superblock
|
|
block-global-block
|
|
block-static-block
|
|
block-global?
|
|
block-static?
|
|
block-symbols
|
|
make-block-symbols-iterator
|
|
block-symbols-progress?
|
|
lookup-block
|
|
|
|
;; scm-breakpoint.c
|
|
|
|
BP_NONE
|
|
BP_BREAKPOINT
|
|
BP_WATCHPOINT
|
|
BP_HARDWARE_WATCHPOINT
|
|
BP_READ_WATCHPOINT
|
|
BP_ACCESS_WATCHPOINT
|
|
|
|
WP_READ
|
|
WP_WRITE
|
|
WP_ACCESS
|
|
|
|
make-breakpoint
|
|
register-breakpoint!
|
|
delete-breakpoint!
|
|
breakpoints
|
|
breakpoint?
|
|
breakpoint-valid?
|
|
breakpoint-number
|
|
breakpoint-type
|
|
brekapoint-visible?
|
|
breakpoint-location
|
|
breakpoint-expression
|
|
breakpoint-enabled?
|
|
set-breakpoint-enabled!
|
|
breakpoint-silent?
|
|
set-breakpoint-silent!
|
|
breakpoint-ignore-count
|
|
set-breakpoint-ignore-count!
|
|
breakpoint-hit-count
|
|
set-breakpoint-hit-count!
|
|
breakpoint-thread
|
|
set-breakpoint-thread!
|
|
breakpoint-task
|
|
set-breakpoint-task!
|
|
breakpoint-condition
|
|
set-breakpoint-condition!
|
|
breakpoint-stop
|
|
set-breakpoint-stop!
|
|
breakpoint-commands
|
|
|
|
;; scm-cmd.c
|
|
|
|
make-command
|
|
register-command!
|
|
command?
|
|
command-valid?
|
|
dont-repeat
|
|
|
|
COMPLETE_NONE
|
|
COMPLETE_FILENAME
|
|
COMPLETE_LOCATION
|
|
COMPLETE_COMMAND
|
|
COMPLETE_SYMBOL
|
|
COMPLETE_EXPRESSION
|
|
|
|
COMMAND_NONE
|
|
COMMAND_RUNNING
|
|
COMMAND_DATA
|
|
COMMAND_STACK
|
|
COMMAND_FILES
|
|
COMMAND_SUPPORT
|
|
COMMAND_STATUS
|
|
COMMAND_BREAKPOINTS
|
|
COMMAND_TRACEPOINTS
|
|
COMMAND_OBSCURE
|
|
COMMAND_MAINTENANCE
|
|
COMMAND_USER
|
|
|
|
;; scm-disasm.c
|
|
|
|
arch-disassemble
|
|
|
|
;; scm-exception.c
|
|
|
|
make-exception
|
|
exception?
|
|
exception-key
|
|
exception-args
|
|
|
|
;; scm-frame.c
|
|
|
|
NORMAL_FRAME
|
|
DUMMY_FRAME
|
|
INLINE_FRAME
|
|
TAILCALL_FRAME
|
|
SIGTRAMP_FRAME
|
|
ARCH_FRAME
|
|
SENTINEL_FRAME
|
|
|
|
FRAME_UNWIND_NO_REASON
|
|
FRAME_UNWIND_NULL_ID
|
|
FRAME_UNWIND_OUTERMOST
|
|
FRAME_UNWIND_UNAVAILABLE
|
|
FRAME_UNWIND_INNER_ID
|
|
FRAME_UNWIND_SAME_ID
|
|
FRAME_UNWIND_NO_SAVED_PC
|
|
FRAME_UNWIND_MEMORY_ERROR
|
|
|
|
frame?
|
|
frame-valid?
|
|
frame-name
|
|
frame-type
|
|
frame-arch
|
|
frame-unwind-stop-reason
|
|
frame-pc
|
|
frame-block
|
|
frame-function
|
|
frame-older
|
|
frame-newer
|
|
frame-sal
|
|
frame-read-register
|
|
frame-read-var
|
|
frame-select
|
|
newest-frame
|
|
selected-frame
|
|
unwind-stop-reason-string
|
|
|
|
;; scm-iterator.c
|
|
|
|
make-iterator
|
|
iterator?
|
|
iterator-object
|
|
iterator-progress
|
|
set-iterator-progress!
|
|
iterator-next!
|
|
end-of-iteration
|
|
end-of-iteration?
|
|
|
|
;; scm-lazy-string.c
|
|
;; FIXME: Where's the constructor?
|
|
|
|
lazy-string?
|
|
lazy-string-address
|
|
lazy-string-length
|
|
lazy-string-encoding
|
|
lazy-string-type
|
|
lazy-string->value
|
|
|
|
;; scm-math.c
|
|
|
|
valid-add
|
|
value-sub
|
|
value-mul
|
|
value-div
|
|
value-rem
|
|
value-mod
|
|
value-pow
|
|
value-not
|
|
value-neg
|
|
value-pos
|
|
value-abs
|
|
value-lsh
|
|
value-rsh
|
|
value-min
|
|
value-max
|
|
value-lognot
|
|
value-logand
|
|
value-logior
|
|
value-logxor
|
|
value=?
|
|
value<?
|
|
value<=?
|
|
value>?
|
|
value>=?
|
|
|
|
;; scm-objfile.c
|
|
|
|
objfile?
|
|
objfile-valid?
|
|
objfile-filename
|
|
objfile-progspace
|
|
objfile-pretty-printers
|
|
set-objfile-pretty-printers!
|
|
current-objfile
|
|
objfiles
|
|
|
|
;; scm-param.c
|
|
|
|
PARAM_BOOLEAN
|
|
PARAM_AUTO_BOOLEAN
|
|
PARAM_ZINTEGER
|
|
PARAM_UINTEGER
|
|
PARAM_ZUINTEGER
|
|
PARAM_ZUINTEGER_UNLIMITED
|
|
PARAM_STRING
|
|
PARAM_STRING_NOESCAPE
|
|
PARAM_OPTIONAL_FILENAME
|
|
PARAM_FILENAME
|
|
PARAM_ENUM
|
|
|
|
make-parameter
|
|
register-parameter!
|
|
parameter?
|
|
parameter-value
|
|
set-parameter-value!
|
|
|
|
;; scm-ports.c
|
|
|
|
input-port
|
|
output-port
|
|
error-port
|
|
stdio-port?
|
|
open-memory
|
|
memory-port?
|
|
memory-port-range
|
|
memory-port-read-buffer-size
|
|
set-memory-port-read-buffer-size!
|
|
memory-port-write-buffer-size
|
|
set-memory-port-write-buffer-size!
|
|
;; with-gdb-output-to-port, with-gdb-error-to-port are in experimental.scm.
|
|
|
|
;; scm-pretty-print.c
|
|
|
|
make-pretty-printer
|
|
pretty-printer?
|
|
pretty-printer-enabled?
|
|
set-pretty-printer-enabled!
|
|
make-pretty-printer-worker
|
|
pretty-printer-worker?
|
|
pretty-printers
|
|
set-pretty-printers!
|
|
|
|
;; scm-progspace.c
|
|
|
|
progspace?
|
|
progspace-valid?
|
|
progspace-filename
|
|
progspace-objfiles
|
|
progspace-pretty-printers
|
|
set-progspace-pretty-printers!
|
|
current-progspace
|
|
progspaces
|
|
|
|
;; scm-gsmob.c
|
|
|
|
gdb-object-kind
|
|
|
|
;; scm-string.c
|
|
|
|
string->argv
|
|
|
|
;; scm-symbol.c
|
|
|
|
SYMBOL_LOC_UNDEF
|
|
SYMBOL_LOC_CONST
|
|
SYMBOL_LOC_STATIC
|
|
SYMBOL_LOC_REGISTER
|
|
SYMBOL_LOC_ARG
|
|
SYMBOL_LOC_REF_ARG
|
|
SYMBOL_LOC_LOCAL
|
|
SYMBOL_LOC_TYPEDEF
|
|
SYMBOL_LOC_LABEL
|
|
SYMBOL_LOC_BLOCK
|
|
SYMBOL_LOC_CONST_BYTES
|
|
SYMBOL_LOC_UNRESOLVED
|
|
SYMBOL_LOC_OPTIMIZED_OUT
|
|
SYMBOL_LOC_COMPUTED
|
|
SYMBOL_LOC_REGPARM_ADDR
|
|
|
|
SYMBOL_UNDEF_DOMAIN
|
|
SYMBOL_VAR_DOMAIN
|
|
SYMBOL_STRUCT_DOMAIN
|
|
SYMBOL_LABEL_DOMAIN
|
|
SYMBOL_VARIABLES_DOMAIN
|
|
SYMBOL_FUNCTIONS_DOMAIN
|
|
SYMBOL_TYPES_DOMAIN
|
|
|
|
symbol?
|
|
symbol-valid?
|
|
symbol-type
|
|
symbol-symtab
|
|
symbol-line
|
|
symbol-name
|
|
symbol-linkage-name
|
|
symbol-print-name
|
|
symbol-addr-class
|
|
symbol-argument?
|
|
symbol-constant?
|
|
symbol-function?
|
|
symbol-variable?
|
|
symbol-needs-frame?
|
|
symbol-value
|
|
lookup-symbol
|
|
lookup-global-symbol
|
|
|
|
;; scm-symtab.c
|
|
|
|
symtab?
|
|
symtab-valid?
|
|
symtab-filename
|
|
symtab-fullname
|
|
symtab-objfile
|
|
symtab-global-block
|
|
symtab-static-block
|
|
sal?
|
|
sal-valid?
|
|
sal-symtab
|
|
sal-line
|
|
sal-pc
|
|
sal-last
|
|
find-pc-line
|
|
|
|
;; scm-type.c
|
|
|
|
TYPE_CODE_BITSTRING
|
|
TYPE_CODE_PTR
|
|
TYPE_CODE_ARRAY
|
|
TYPE_CODE_STRUCT
|
|
TYPE_CODE_UNION
|
|
TYPE_CODE_ENUM
|
|
TYPE_CODE_FLAGS
|
|
TYPE_CODE_FUNC
|
|
TYPE_CODE_INT
|
|
TYPE_CODE_FLT
|
|
TYPE_CODE_VOID
|
|
TYPE_CODE_SET
|
|
TYPE_CODE_RANGE
|
|
TYPE_CODE_STRING
|
|
TYPE_CODE_ERROR
|
|
TYPE_CODE_METHOD
|
|
TYPE_CODE_METHODPTR
|
|
TYPE_CODE_MEMBERPTR
|
|
TYPE_CODE_REF
|
|
TYPE_CODE_CHAR
|
|
TYPE_CODE_BOOL
|
|
TYPE_CODE_COMPLEX
|
|
TYPE_CODE_TYPEDEF
|
|
TYPE_CODE_NAMESPACE
|
|
TYPE_CODE_DECFLOAT
|
|
TYPE_CODE_INTERNAL_FUNCTION
|
|
|
|
type?
|
|
lookup-type
|
|
type-code
|
|
type-fields
|
|
type-tag
|
|
type-sizeof
|
|
type-strip-typedefs
|
|
type-array
|
|
type-vector
|
|
type-pointer
|
|
type-range
|
|
type-reference
|
|
type-target
|
|
type-const
|
|
type-volatile
|
|
type-unqualified
|
|
type-name
|
|
type-num-fields
|
|
type-fields
|
|
make-field-iterator
|
|
type-field
|
|
type-has-field?
|
|
field?
|
|
field-name
|
|
field-type
|
|
field-enumval
|
|
field-bitpos
|
|
field-bitsize
|
|
field-artificial?
|
|
field-baseclass?
|
|
|
|
;; scm-value.c
|
|
|
|
value?
|
|
make-value
|
|
value-optimized-out?
|
|
value-address
|
|
value-type
|
|
value-dynamic-type
|
|
value-cast
|
|
value-dynamic-cast
|
|
value-reinterpret-cast
|
|
value-dereference
|
|
value-referenced-value
|
|
value-field
|
|
value-subscript
|
|
value-call
|
|
value->bool
|
|
value->integer
|
|
value->real
|
|
value->bytevector
|
|
value->string
|
|
value->lazy-string
|
|
value-lazy?
|
|
make-lazy-value
|
|
value-fetch-lazy!
|
|
value-print
|
|
parse-and-eval
|
|
history-ref
|
|
)
|
|
|
|
;; Load the rest of the Scheme side.
|
|
|
|
(include "gdb/init.scm")
|
|
|
|
;; These come from other files, but they're really part of this module.
|
|
|
|
(export
|
|
|
|
;; init.scm
|
|
orig-input-port
|
|
orig-output-port
|
|
orig-error-port
|
|
throw-user-error
|
|
)
|