diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-30 21:29:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-30 21:29:20 +0200 |
commit | 542f975e608645122ff41d11f9b782009dadf9dd (patch) | |
tree | 928fba6cdd0efe740d7255c50bba01a471a1eb6f /libguile/frames.h | |
parent | 33002867d7647c595712d0d501c16b8111628b29 (diff) | |
download | guile-542f975e608645122ff41d11f9b782009dadf9dd.tar.gz |
add ,registers
* libguile/frames.h:
* libguile/frames.c (scm_frame_stack_pointer): New function.
* module/system/repl/debug.scm (print-registers): New function, prints
out registers.
* module/system/repl/command.scm (registers): New debugging
meta-command.
(inspect): Not a stack-command, a normal meta-command.
Diffstat (limited to 'libguile/frames.h')
-rw-r--r-- | libguile/frames.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/frames.h b/libguile/frames.h index 89d0f33bf..3d8a4b27a 100644 --- a/libguile/frames.h +++ b/libguile/frames.h @@ -115,6 +115,7 @@ SCM_API SCM scm_frame_num_locals (SCM frame); SCM_API SCM scm_frame_local_ref (SCM frame, SCM index); SCM_API SCM scm_frame_local_set_x (SCM frame, SCM index, SCM val); SCM_API SCM scm_frame_address (SCM frame); +SCM_API SCM scm_frame_stack_pointer (SCM frame); SCM_API SCM scm_frame_instruction_pointer (SCM frame); SCM_API SCM scm_frame_return_address (SCM frame); SCM_API SCM scm_frame_mv_return_address (SCM frame); |