Skip to content
Snippets Groups Projects
Commit be157ea2 authored by toy's avatar toy
Browse files

Fix typo on the dfixnum profile changes so this works on non-x86

platforms.
parent 65f0bdc0
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.28 2002/11/05 22:45:40 cracauer Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.29 2002/11/07 16:07:23 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -58,12 +58,15 @@ ...@@ -58,12 +58,15 @@
;; #+(or cgc gencgc) ;; #+(or cgc gencgc)
;; (c-var-frob dynamic-usage "bytes_allocated") ;; (c-var-frob dynamic-usage "bytes_allocated")
#+(or cgc gencgc)
(progn
(alien:def-alien-routine get_bytes_allocated_lower c-call:int) (alien:def-alien-routine get_bytes_allocated_lower c-call:int)
(alien:def-alien-routine get_bytes_allocated_upper c-call:int) (alien:def-alien-routine get_bytes_allocated_upper c-call:int)
(defun dynamic-usage () (defun dynamic-usage ()
(dfixnum:dfixnum-pair-integer (dfixnum:dfixnum-pair-integer
(get_bytes_allocated_upper) (get_bytes_allocated_lower))) (get_bytes_allocated_upper) (get_bytes_allocated_lower)))
)
(defun static-space-usage () (defun static-space-usage ()
(- (* lisp::*static-space-free-pointer* vm:word-bytes) (- (* lisp::*static-space-free-pointer* vm:word-bytes)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment