Skip to content
Snippets Groups Projects
Commit f824769e authored by gerd's avatar gerd
Browse files

Building with cgc.

	* src/lisp/Config.FreeBSD (NM): Use linux-nm.

	* src/code/gc.lisp: Use bytes_allocated for cgc because
	get_bytes_allocated_{lower,higher} is only implemented for
	gencgc.
parent cdbef3f3
No related branches found
No related tags found
No related merge requests found
......@@ -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.34 2003/04/11 15:17:45 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.35 2003/05/29 12:35:05 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -57,15 +57,17 @@
;; #+(or cgc gencgc)
;; (c-var-frob dynamic-usage "bytes_allocated")
#+(or cgc gencgc)
#+gencgc
(progn
(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_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 dynamic-usage ()
(dfixnum:dfixnum-pair-integer
(get_bytes_allocated_upper) (get_bytes_allocated_lower))))
#+cgc
(c-var-frob dynamic-usage "bytes_allocated")
(defun static-space-usage ()
(- (* lisp::*static-space-free-pointer* vm:word-bytes)
......
......@@ -9,7 +9,7 @@ LD = ld
CPP = cpp
CFLAGS = -Wstrict-prototypes -Wall -O2 -g -DWANT_CGC -m486
ASFLAGS = -g -DWANT_CGC
NM = nm -gp
NM = $(PATH1)/linux-nm
UNDEFSYMPATTERN = -Xlinker -u -Xlinker &
ASSEM_SRC = x86-assem.S
ARCH_SRC = x86-arch.c
......
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