From e3448f1a131ac9ad584f324906217bb63584e131 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Tue, 29 Oct 2002 00:04:07 +0000
Subject: 	* unix/tclLoadDyld.c (Tcl_PackageInitProc): pass all dyld
 error 	messages upstream [Bug #627546].

---
 ChangeLog          | 5 +++++
 unix/tclLoadDyld.c | 7 ++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 18a9293..b7d6610 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-29  Daniel Steffen  <das@users.sourceforge.net>
+
+	* unix/tclLoadDyld.c (Tcl_PackageInitProc): pass all dyld error
+	messages upstream [Bug #627546].
+
 2002-10-28  Andreas Kupries  <andreask@activestate.com>
 
 	* library/dde/pkgIndex.tcl:
diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c
index 531a3c2..906cce3 100644
--- a/unix/tclLoadDyld.c
+++ b/unix/tclLoadDyld.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclLoadDyld.c,v 1.13 2002/10/10 12:25:53 vincentdarley Exp $
+ * RCS: @(#) $Id: tclLoadDyld.c,v 1.14 2002/10/29 00:04:08 das Exp $
  */
 
 #include "tclInt.h"
@@ -151,6 +151,11 @@ TclpFindSymbol(interp, loadHandle, symbol)
 	    dyldModuleHandle->nextModuleHandle = dyldLoadHandle->firstModuleHandle;
 	    dyldLoadHandle->firstModuleHandle = dyldModuleHandle;
 	}
+    } else {
+        NSLinkEditErrors editError;
+        char *name, *msg;
+        NSLinkEditError(&editError, &errno, &name, &msg);
+        Tcl_AppendResult(interp, msg, (char *) NULL);
     }
     Tcl_DStringFree(&newName);
     Tcl_DStringFree(&ds);
-- 
cgit v0.12