Tcl Source Code

Artifact ad8fc7ac1d5152599d8fc0f762c7a5e4bde558b4:

Attachment "tclLoadDyld.diff" to ticket [627546ffff] added by das 2002-10-29 07:03:35.

---

Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.1302
diff -u -r1.1302 ChangeLog
--- ChangeLog	28 Oct 2002 21:14:11 -0000	1.1302
+++ ChangeLog	29 Oct 2002 00:01:42 -0000
@@ -1,3 +1,8 @@
+2002-10-29  Daniel Steffen  <[email protected]>
+
+	* unix/tclLoadDyld.c (Tcl_PackageInitProc): pass all dyld error
+	messages upstream [Bug #627546].
+
 2002-10-28  Andreas Kupries  <[email protected]>
 
 	* library/dde/pkgIndex.tcl:
Index: unix/tclLoadDyld.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclLoadDyld.c,v
retrieving revision 1.13
diff -u -r1.13 tclLoadDyld.c
--- unix/tclLoadDyld.c	10 Oct 2002 12:25:53 -0000	1.13
+++ unix/tclLoadDyld.c	29 Oct 2002 00:01:42 -0000
@@ -151,6 +151,11 @@
 	    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);