[Git][cmucl/cmucl][sparc64-dev] Add printf for ensure_space

[Raymond Toy]

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl


Commits:
db249bb9 by Raymond Toy at 2017-01-03T19:52:13-08:00
Add printf for ensure_space

When PRINTNOISE is defined, print out the args to ensure_space.

- - - - -


1 changed file:

- src/lisp/validate.c


Changes:

=====================================
src/lisp/validate.c
=====================================
--- a/src/lisp/validate.c
+++ b/src/lisp/validate.c
@@ -29,6 +29,11 @@ ensure_space(lispobj * start, size_t size)
 		"ensure_space: Failed to validate %ld bytes at 0x%08lx\n",
 		(unsigned long) size, (unsigned long) start);
 	exit(1);
+    } else {
+#ifdef PRINTNOISE
+      fprintf(stderr, "ensure_space at 0x%012lx for %ld bytes\n",
+              (unsigned long) start, (unsigned long) size);
+#endif
     }
 }
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/db249bb966e1f71fec597c90f629355dd8012a9e
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170104/bcfcfc60/attachment.html>