suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refine comment that is possibly misleading

Browse Source 
on code that might not turn out to be useful
This commit is contained in:
Matthew Flatt 2011-05-30 07:05:41 -06:00
parent 9e9ad2fe38
commit 9f1c2147be
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/eval.c
View File

@ -427,11 +427,11 @@ scheme_handle_stack_overflow(Scheme_Object *(*k)(void))
} }
#ifdef LINUX_FIND_STACK_BASE #ifdef LINUX_FIND_STACK_BASE
uintptr_t adjust_stack_base(uintptr_t bnd) { static uintptr_t adjust_stack_base(uintptr_t bnd) {
if (bnd == scheme_get_primordial_thread_stack_base()) { if (bnd == scheme_get_primordial_thread_stack_base()) {
/* The address `base' might be far from the actual stack base /* The address `base' might be far from the actual stack base
if Exec Sheild is enabled. Use "/proc/self/maps" to get if Exec Shield is enabled (in some versions)? Use
exacty the stack base. */ "/proc/self/maps" to get exactly the stack base. */
FILE *f; FILE *f;
char *buf; char *buf;
f = fopen("/proc/self/maps", "r"); f = fopen("/proc/self/maps", "r");