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