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/db249bb966e1f71fec597c90f6...