Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits: 8355e971 by Raymond Toy at 2017-01-03T19:58:04-08:00 Add printf for stack allocations
When PRINTNOISE is defined, print out address and size of the control stack and binding stack.
- - - - -
1 changed file:
- src/lisp/validate.c
Changes:
===================================== src/lisp/validate.c ===================================== --- a/src/lisp/validate.c +++ b/src/lisp/validate.c @@ -130,11 +130,14 @@ validate_stacks() #else /* Map the conrol stack wherever we have space */ control_stack = (lispobj*) os_validate(NULL, control_stack_size); - #if (defined(i386) || defined(__x86_64)) control_stack_end = (void*)control_stack + control_stack_size; #endif #endif +#ifdef PRINTNOISE + fprintf(stderr, "control_stack at 0x%o12lx size %ld\n", + (unsigned long) control_stack, (unsigned long) control_stack_size); +#endif
/* Binding Stack */ #ifdef BINDING_STACK_START @@ -144,6 +147,10 @@ validate_stacks() /* Map the binding stack wherever we have space */ binding_stack = (lispobj*) os_validate(NULL, binding_stack_size); #endif +#ifdef PRINTNOISE + fprintf(stderr, "binding_stack at 0x%o12lx size %ld\n", + (unsigned long) binding_stack, (unsigned long) binding_stack_size); +#endif #ifdef sparc make_stack_holes(); #endif
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/8355e971b8a7bf6fb3a0aed931...