From be157ea2e644cf4554b03e2650450eb4abbfb675 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Thu, 7 Nov 2002 16:07:23 +0000 Subject: [PATCH] Fix typo on the dfixnum profile changes so this works on non-x86 platforms. --- code/gc.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/code/gc.lisp b/code/gc.lisp index 7e1ee187f..017e042f4 100644 --- a/code/gc.lisp +++ b/code/gc.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (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 @@ ;; #+(or cgc gencgc) ;; (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_upper c-call:int) (defun dynamic-usage () (dfixnum:dfixnum-pair-integer (get_bytes_allocated_upper) (get_bytes_allocated_lower))) +) (defun static-space-usage () (- (* lisp::*static-space-free-pointer* vm:word-bytes) -- GitLab