From b14a0b4e294fd2cbc6508cba1f5faf5c5720bf69 Mon Sep 17 00:00:00 2001
From: cwang <cwang>
Date: Mon, 2 Aug 2004 16:03:54 +0000
Subject: [PATCH] Make (room) on amd64 report the correct numbers.

---
 code/gc.lisp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/code/gc.lisp b/code/gc.lisp
index cc0647533..e6c1bfb4a 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.39 2004/01/09 04:22:48 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.40 2004/08/02 16:03:54 cwang Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -79,16 +79,18 @@
 (c-var-frob dynamic-usage "bytes_allocated")
 
 (defun static-space-usage ()
-  (- (* lisp::*static-space-free-pointer* vm:word-bytes)
+  (- (* lisp::*static-space-free-pointer* #-amd64 vm:word-bytes
+	#+amd64 4) ; won't be necessary when amd64 uses 4-bit lowtag
      (static-space-start)))
 
 (defun read-only-space-usage ()
-  (- (* lisp::*read-only-space-free-pointer* vm:word-bytes)
+  (- (* lisp::*read-only-space-free-pointer* #-amd64 vm:word-bytes
+	#+amd64 4) ; won't be necessary when amd64 uses 4-bit lowtag
      (read-only-space-start)))
 
 (defun control-stack-usage ()
-#-x86 (- (system:sap-int (c::control-stack-pointer-sap)) (control-stack-start))
-#+x86 (- (control-stack-end) (system:sap-int (c::control-stack-pointer-sap))) )
+#-(or x86 amd64) (- (system:sap-int (c::control-stack-pointer-sap)) (control-stack-start))
+#+(or x86 amd64) (- (control-stack-end) (system:sap-int (c::control-stack-pointer-sap))) )
 
 (defun binding-stack-usage ()
   (- (system:sap-int (c::binding-stack-pointer-sap)) (binding-stack-start)))
-- 
GitLab