; docformat = 'rst' ;+ ; Information about the current state of the heap. ; ; :Keywords: ; n_pointers : out, optional, type=long ; set to a named variable to receive the number of pointers on the heap ; n_objects : out, optional, type=long ; set to a named variable to receive the number of objects on the heap ;- pro mg_heapinfo, n_pointers=nPointers, n_objects=nObjects compile_opt strictarr help, /heap, output=output if (arg_present(nPointers)) then begin nPointers = long(strmid(output[1], strpos(output[1], ':') + 1)) endif if (arg_present(nObjects)) then begin nObjects = long(strmid(output[2], strpos(output[2], ':') + 1)) endif end