diff options
-rw-r--r-- | module/system/vm/debug.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index f7adb20a3..8eb423748 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -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))) |