123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- #ifdef HAVE_CONFIG_H
- # include <config.h>
- #endif
- #include "libguile/_scm.h"
- #include "libguile/ports.h"
- #include "libguile/root.h"
- #include "libguile/threads.h"
- #include "libguile/dynwind.h"
- #include "libguile/stackchk.h"
- int scm_stack_checking_enabled_p;
- long
- scm_stack_size (SCM_STACKITEM *start)
- {
- SCM_STACKITEM stack;
- #if SCM_STACK_GROWS_UP
- return &stack - start;
- #else
- return start - &stack;
- #endif
- }
- void
- scm_stack_report ()
- {
- SCM port = scm_current_error_port ();
- SCM_STACKITEM stack;
- scm_i_thread *thread = SCM_I_CURRENT_THREAD;
- scm_uintprint ((scm_stack_size (thread->continuation_base)
- * sizeof (SCM_STACKITEM)),
- 16, port);
- scm_puts_unlocked (" of stack: 0x", port);
- scm_uintprint ((scm_t_bits) thread->continuation_base, 16, port);
- scm_puts_unlocked (" - 0x", port);
- scm_uintprint ((scm_t_bits) &stack, 16, port);
- scm_puts_unlocked ("\n", port);
- }
- SCM_DEFINE (scm_sys_get_stack_size, "%get-stack-size", 0, 0, 0,
- (),
- "Return the current thread's C stack size (in Scheme objects).")
- #define FUNC_NAME s_scm_sys_get_stack_size
- {
- return scm_from_long (scm_stack_size (SCM_I_CURRENT_THREAD->base));
- }
- #undef FUNC_NAME
- void
- scm_init_stackchk ()
- {
- #include "libguile/stackchk.x"
- }
|