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