From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Sat, 16 Mar 2002 12:18:59 +0000 (+0000)
Subject: 0.7.1.39:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0a4e239b1562bc859eb37dce7d9d94e75cc5a9a2;p=sbcl.git

0.7.1.39:
	(on the basis that the first checkin should probably be something
	simple and straightforward):
	Fix for wrapped_readlink, allowing TRUENAME to return sensible
	results on SPARC.
---

diff --git a/src/runtime/wrap.c b/src/runtime/wrap.c
index c7c878c..49b5c24 100644
--- a/src/runtime/wrap.c
+++ b/src/runtime/wrap.c
@@ -125,7 +125,7 @@ wrapped_readlink(char *path)
     int bufsiz = strlen(path) + 16;
     while (1) {
 	char *result = malloc(bufsiz);
-	int n_read = readlink(path, result, n_read);
+	int n_read = readlink(path, result, bufsiz);
 	if (n_read < 0) {
 	    free(result);
 	    return 0;
diff --git a/version.lisp-expr b/version.lisp-expr
index 089bc2d..c6098ca 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.1.38"
+"0.7.1.39"