mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix `gc-profile.scm'.

Browse source 
* gc-benchmarks/gc-profile.scm (memory-mappings)[mapping-line-rx]: Fix
  and give an example.
  (total-heap-size): Fix docstring.
This commit is contained in:
Ludovic Courtès 2011-02-25 14:54:36 +01:00
parent 6800f86d63
commit 249f2788c6
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gc-benchmarks/gc-profile.scm
View file

@ -3,7 +3,7 @@
exec ${GUILE-guile} --no-debug -q -l "$0" \ exec ${GUILE-guile} --no-debug -q -l "$0" \
-c '(apply main (cdr (command-line)))' "$@" -c '(apply main (cdr (command-line)))' "$@"
!# !#
;;; Copyright (C) 2008 Free Software Foundation, Inc. ;;; Copyright (C) 2008, 2011 Free Software Foundation, Inc.
;;; ;;;
;;; This program is free software; you can redistribute it and/or ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License ;;; modify it under the terms of the GNU Lesser General Public License
@ -38,8 +38,10 @@ memory mapping of process @var{pid}. This information is obtained by reading
@file{/proc/PID/smaps} on Linux. See `procs(5)' for details." @file{/proc/PID/smaps} on Linux. See `procs(5)' for details."
(define mapping-line-rx (define mapping-line-rx
;; As of Linux 2.6.32.28, an `smaps' line looks like this:
;; "00400000-00401000 r-xp 00000000 fe:00 108264 /home/ludo/soft/bin/guile"
(make-regexp (make-regexp
"^([[:xdigit:]]+)-([[:xdigit:]]+) ([rwx-]{3}[ps]) ([[:xdigit:]]+) [0-9]{2}:[0-9]{2} [0-9]+[[:blank:]]+(.*)$")) "^([[:xdigit:]]+)-([[:xdigit:]]+) ([rwx-]{3}[ps]) ([[:xdigit:]]+) [[:xdigit:]]{2}:[[:xdigit:]]{2} [0-9]+[[:blank:]]+(.*)$"))
(define rss-line-rx (define rss-line-rx
(make-regexp (make-regexp
@ -83,7 +85,7 @@ memory mapping of process @var{pid}. This information is obtained by reading
(loop (read-line) result)))))))) (loop (read-line) result))))))))
(define (total-heap-size pid) (define (total-heap-size pid)
"Return the total heap size of process @var{pid}." "Return a pair representing the total and RSS heap size of PID."
(define heap-or-anon-rx (define heap-or-anon-rx
(make-regexp "\\[(heap|anon)\\]")) (make-regexp "\\[(heap|anon)\\]"))