diff options
Diffstat (limited to 'module/system/vm/debug.scm')
-rw-r--r-- | module/system/vm/debug.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index c66c15b3b..a3aede73c 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -35,6 +35,7 @@ #:use-module (srfi srfi-9) #:export (debug-context-image debug-context-base + debug-context-length debug-context-text-base program-debug-info-name @@ -96,6 +97,11 @@ @var{context}." (elf-bytes (debug-context-elf context))) +(define (debug-context-length context) + "Return the size of the mapped ELF image corresponding to +@var{context}, in bytes." + (bytevector-length (debug-context-image context))) + (define (for-each-elf-symbol context proc) "Call @var{proc} on each symbol in the symbol table of @var{context}." (let ((elf (debug-context-elf context))) |