Changeset 14232

Timestamp:

Sep 6, 2010, 12:37:55 AM (14 years ago)

Author:

Gary Byers

Message:

In initial_stack_bottom(), don't assume that stack bounds have
anything to do with the address of the environment strings. (There's
traditionally often a relationship between the address of the bottom
of the initial thread's stack and the environment area, but I don't
know that that relationship's guaranteed to hold in all cases.)

File:

• trunk/source/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

trunk/source/lisp-kernel/pmcl-kernel.c

@@ -830 +830 @@
 initial_stack_bottom()
 {
-#ifndef WINDOWS
-  extern char **environ;
-  char *p = *environ;
-  while (*p) {
-    p += (1+strlen(p));
-  }
-  return (BytePtr)((((natural) p) +4095) & ~4095);
-#endif
-#ifdef WINDOWS
-  return (BytePtr)((current_stack_pointer() + 4095) & ~ 4095);
-#endif
-}
+  extern void os_get_current_thread_stack_bounds(void **, natural*);
+  void *stack_bottom;
+  natural stack_size;
+  
+  os_get_current_thread_stack_bounds(&stack_bottom, &stack_size);
+  return (BytePtr)stack_bottom;
+}
+