mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

(system vm debug): implement arity-low-pc, arity-high-pc

Browse source 
* module/system/vm/debug.scm (arity-low-pc, arity-high-pc): Implement
  these exports.
This commit is contained in:
Andy Wingo 2013-10-18 11:38:36 +02:00
parent 919f304fb2
commit 9dff1df97f
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/system/vm/debug.scm
View file

@ -253,6 +253,14 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}."
(define (has-keyword-args? flags) (not (zero? (logand flags (ash 1 2)))))
(define (is-case-lambda? flags) (not (zero? (logand flags (ash 1 3)))))
(define (arity-low-pc arity)
(arity-low-pc* (elf-bytes (debug-context-elf (arity-context arity)))
(arity-header-offset arity)))
(define (arity-high-pc arity)
(arity-high-pc* (elf-bytes (debug-context-elf (arity-context arity)))
(arity-header-offset arity)))
(define (arity-nreq arity)
(arity-nreq* (elf-bytes (debug-context-elf (arity-context arity)))
(arity-header-offset arity)))