From: Juho Snellman <jsnell@iki.fi>
Date: Wed, 3 Jan 2007 20:42:32 +0000 (+0000)
Subject: 1.0.1.9:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=17ae4361ba5f4c1062d510f3951b0cc10e0bcd8e;p=sbcl.git

1.0.1.9:
        Support executable cores on NetBSD (patch from Richard Kreuter on
        sbcl-devel).
---

diff --git a/NEWS b/NEWS
index c66e659..87ceb27 100644
--- a/NEWS
+++ b/NEWS
@@ -7,6 +7,8 @@ changes in sbcl-1.0.2 relative to sbcl-1.0.1:
     (thanks to Chun Tian (binghe))
   * improvement: the debugger now displays variables that have been closed
     over, in code compiled with (DEBUG 2) or higher
+  * improvement: support for executable cores on NetBSD (thanks to 
+    Richard Kreuter)
   * bug fix: an error is signaled for attempts to use READ-SEQUENCE
     for a (SIGNED-BYTE 8) stream and (UNSIGNED-BYTE 8) vector, or vice versa.
     (thanks to Tony Martinez)
diff --git a/src/runtime/bsd-os.c b/src/runtime/bsd-os.c
index cfd7c31..6d16790 100644
--- a/src/runtime/bsd-os.c
+++ b/src/runtime/bsd-os.c
@@ -406,7 +406,20 @@ os_get_runtime_executable_path()
         return NULL;
     return copied_string(path);
 }
-#else /* Not DARWIN or FREEBSD */
+#elif defined(LISP_FEATURE_NETBSD)
+char *
+os_get_runtime_executable_path()
+{
+    struct stat sb;
+    char *path = strdup("/proc/curproc/file");
+    if (path && ((stat(path, &sb)) == 0))
+        return path;
+    else {
+        fprintf(stderr, "Couldn't stat /proc/curproc/file; is /proc mounted?\n");
+        return NULL;
+    }
+}
+#else /* Not DARWIN or FREEBSD or NETBSD */
 char *
 os_get_runtime_executable_path()
 {
diff --git a/version.lisp-expr b/version.lisp-expr
index 39dbfef..7a2561e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.8"
+"1.0.1.9"