/[cmucl]/src/code/gc.lisp
ViewVC logotype

Diff of /src/code/gc.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by cracauer, Tue Nov 5 22:45:40 2002 UTC revision 1.29 by toy, Thu Nov 7 16:07:23 2002 UTC
# Line 58  Line 58 
58  ;; #+(or cgc gencgc)  ;; #+(or cgc gencgc)
59  ;; (c-var-frob dynamic-usage "bytes_allocated")  ;; (c-var-frob dynamic-usage "bytes_allocated")
60    
61    #+(or cgc gencgc)
62    (progn
63  (alien:def-alien-routine get_bytes_allocated_lower c-call:int)  (alien:def-alien-routine get_bytes_allocated_lower c-call:int)
64  (alien:def-alien-routine get_bytes_allocated_upper c-call:int)  (alien:def-alien-routine get_bytes_allocated_upper c-call:int)
65    
66  (defun dynamic-usage ()  (defun dynamic-usage ()
67    (dfixnum:dfixnum-pair-integer    (dfixnum:dfixnum-pair-integer
68     (get_bytes_allocated_upper) (get_bytes_allocated_lower)))     (get_bytes_allocated_upper) (get_bytes_allocated_lower)))
69    )
70    
71  (defun static-space-usage ()  (defun static-space-usage ()
72    (- (* lisp::*static-space-free-pointer* vm:word-bytes)    (- (* lisp::*static-space-free-pointer* vm:word-bytes)

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5