/[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.34 by pmai, Fri Apr 11 15:17:45 2003 UTC revision 1.35 by gerd, Thu May 29 12:35:05 2003 UTC
# Line 57  Line 57 
57  ;; #+(or cgc gencgc)  ;; #+(or cgc gencgc)
58  ;; (c-var-frob dynamic-usage "bytes_allocated")  ;; (c-var-frob dynamic-usage "bytes_allocated")
59    
60  #+(or cgc gencgc)  #+gencgc
61  (progn  (progn
62  (alien:def-alien-routine get_bytes_allocated_lower c-call:int)    (alien:def-alien-routine get_bytes_allocated_lower c-call:int)
63  (alien:def-alien-routine get_bytes_allocated_upper c-call:int)    (alien:def-alien-routine get_bytes_allocated_upper c-call:int)
64    
65  (defun dynamic-usage ()    (defun dynamic-usage ()
66    (dfixnum:dfixnum-pair-integer      (dfixnum:dfixnum-pair-integer
67     (get_bytes_allocated_upper) (get_bytes_allocated_lower)))       (get_bytes_allocated_upper) (get_bytes_allocated_lower))))
68  )  
69    #+cgc
70    (c-var-frob dynamic-usage "bytes_allocated")
71    
72  (defun static-space-usage ()  (defun static-space-usage ()
73    (- (* lisp::*static-space-free-pointer* vm:word-bytes)    (- (* lisp::*static-space-free-pointer* vm:word-bytes)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5