Changeset 10476


Ignore:
Timestamp:
Aug 14, 2008, 7:40:17 PM (11 years ago)
Author:
wws
Message:

Comments. (mallinfo)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/leaks.lisp

    r10475 r10476  
    210210(progn
    211211
     212;; (ccl::start-mtrace LOGFILE)
     213;; Do some work.
     214;; (ccl::stop-mtrace)
     215;; (ccl::parse-mtrace-log LOGFILE)
    212216(defun start-mtrace (log-file)
    213217  (touch log-file)
     
    249253        res))))
    250254
     255;; Return the total number of bytes allocated by malloc()
     256(defun mallinfo ()
     257  (ccl:rlet ((mallinfo :mallinfo))
     258    (#_mallinfo mallinfo)
     259    (ccl::rref mallinfo :mallinfo.uordblks)))
     260
    251261)  ;; end of linux-only code
Note: See TracChangeset for help on using the changeset viewer.