Changeset 5403

Timestamp:

Oct 23, 2006, 4:22:14 AM (18 years ago)

Author:

Gary Byers

Message:

%HEAP-BYTES-ALLOCATED: don't add "current" allocation if nothing's reserved.

File:

• trunk/ccl/level-0/X86/x86-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-misc.lisp

@@ -176 +176 @@
 
 (defx86lapfunction %heap-bytes-allocated ()
+  (movq (@ (% :rcontext) x8664::tcr.save-allocptr) (% temp1))
   (movq (@ (% :rcontext) x8664::tcr.last-allocptr) (% temp0))
-  (movq (@ (% :rcontext) x8664::tcr.save-allocptr) (% temp1))
+  (cmpq ($ -16) (% temp1))
   (movq (@ (% :rcontext) x8664::tcr.total-bytes-allocated) (% imm0))
+  (jz @go)
   (movq (% temp0) (% temp2))
   (subq (% temp1) (% temp0))