8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*
* Copyright (c) 1995 Apple Computer, Inc.
* Copyright (c) 2001-2007 Daniel A. Steffen <das@users.sourceforge.net>
*
* 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.14.4.15 2010/04/02 23:48:14 dgp Exp $
*/
#include "tclInt.h"
#ifndef MODULE_SCOPE
#define MODULE_SCOPE extern
#endif
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*
* Copyright (c) 1995 Apple Computer, Inc.
* Copyright (c) 2001-2007 Daniel A. Steffen <das@users.sourceforge.net>
*
* 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.14.4.16 2010/04/06 02:37:49 dgp Exp $
*/
#include "tclInt.h"
#ifndef MODULE_SCOPE
#define MODULE_SCOPE extern
#endif
|
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
|
}
}
Tcl_DStringFree(&newName);
#endif /* TCL_DYLD_USE_NSMODULE */
}
Tcl_DStringFree(&ds);
if (errMsg && (interp != NULL)) {
Tcl_AppendResult(interp, errMsg, NULL);
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol,
NULL);
}
return proc;
}
/*
|
|
>
|
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
|
}
}
Tcl_DStringFree(&newName);
#endif /* TCL_DYLD_USE_NSMODULE */
}
Tcl_DStringFree(&ds);
if (errMsg && (interp != NULL)) {
Tcl_AppendResult(interp, "cannot find symbol \"", symbol, "\": ",
errMsg, NULL);
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol,
NULL);
}
return proc;
}
/*
|