Description: |
mac os x
tcl-dyload.c
TclpFindSymbol
when loading a package with unresolved externals
the only error message is Xxxx_Init not found
NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR);
if(nsSymbol) {
Tcl_DyldModuleHandle *dyldModuleHandle;
proc = NSAddressOfSymbol(nsSymbol);
dyldModuleHandle = (Tcl_DyldModuleHandle *)
ckalloc(sizeof(Tcl_DyldModuleHandle));
if (dyldModuleHandle) {
dyldModuleHandle->module =
NSModuleForSymbol(nsSymbol);
dyldModuleHandle->nextModuleHandle =
dyldLoadHandle->firstModuleHandle;
dyldLoadHandle->firstModuleHandle = dyldModuleHandle;
}
add the following for a more useful error message
} else {
NSLinkEditErrors editError;
char *name, *msg;
NSLinkEditError(&editError, &errno, &name, &msg);
Tcl_AppendResult(interp, msg, (char *) NULL);
}
end of addition
Tcl_DStringFree(&newName);
|