[Git][cmucl/cmucl][sparc64-dev] Add printf for stack allocations

[Raymond Toy]

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/8355e971b8a7bf6fb3a0aed931e171b5fe705572
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170104/036b9fba/attachment-0001.html>