Date: Sat, 17 May 2003 22:21:22 +0200 (CEST) From: Henrik Motakef <henrik.motakef@web.de> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/52382: [Patch] lang/sbcl crashes on stack exhaustion Message-ID: <20030517202122.E622420D1@interim.henrik-motakef.de> Resent-Message-ID: <200305172020.h4HKKB2c035825@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 52382
>Category: ports
>Synopsis: [Patch] lang/sbcl crashes on stack exhaustion
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: sw-bug
>Submitter-Id: current-users
>Arrival-Date: Sat May 17 13:20:11 PDT 2003
>Closed-Date:
>Last-Modified:
>Originator: Henrik Motakef
>Release: FreeBSD 5.1-BETA i386
>Organization:
>Environment:
System: FreeBSD interim.henrik-motakef.de 5.1-BETA FreeBSD 5.1-BETA #0: Wed May 7 14:59:01 CEST 2003 henrik@interim.henrik-motakef.de:/usr/obj/usr/src/sys/GENERIC i386
>Description:
lang/sbcl 0.7.14 has a bug that makes it crash when the control
stack is exhausted, instead of just signaling a condition.
The following fix has been proposed by the SBCL developers to
work around this.
>How-To-Repeat:
$ sbcl
* (defun recurse () (recuse) (recurse))
* (recurse)
This will print a warning, then crash with a message "Illegal
instruction". After applying the patches, the user will be put
in the debugger instead.
>Fix:
--- src/runtime/validate.c.orig Sat May 17 18:09:12 2003
+++ src/runtime/validate.c Sat May 17 18:10:35 2003
@@ -90,7 +90,7 @@
void protect_control_stack_guard_page(int protect_p) {
os_protect(CONTROL_STACK_GUARD_PAGE,
- os_vm_page_size,protect_p ?
+ 10*os_vm_page_size,protect_p ?
(OS_VM_PROT_READ|OS_VM_PROT_EXECUTE) : OS_VM_PROT_ALL);
}
--- src/runtime/interrupt.c.orig Sat May 17 18:09:40 2003
+++ src/runtime/interrupt.c Sat May 17 18:10:23 2003
@@ -528,7 +528,7 @@
/* note the os_context hackery here. When the signal handler returns,
* it won't go back to what it was doing ... */
if(addr>=(void *)CONTROL_STACK_GUARD_PAGE &&
- addr<(void *)(CONTROL_STACK_GUARD_PAGE+os_vm_page_size)) {
+ addr<(void *)(CONTROL_STACK_GUARD_PAGE+10*os_vm_page_size)) {
void *fun;
void *code;
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20030517202122.E622420D1>