diff options
| author | nijtmans <nijtmans> | 2010-03-11 15:02:32 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-03-11 15:02:32 (GMT) |
| commit | 9d18c761c4715d164e990bd70d90a73517f5d79f (patch) | |
| tree | f21014837dc28f357b1c727976ff7a890a772eb9 /unix/tclLoadDyld.c | |
| parent | ad3425f0ba4af76882183ec4bf7a07034fd77311 (diff) | |
| download | tcl-9d18c761c4715d164e990bd70d90a73517f5d79f.zip tcl-9d18c761c4715d164e990bd70d90a73517f5d79f.tar.gz tcl-9d18c761c4715d164e990bd70d90a73517f5d79f.tar.bz2 | |
Revert a few files from the previous commit, preventing
conflicts with Kevin's TIP #357 work
Diffstat (limited to 'unix/tclLoadDyld.c')
| -rw-r--r-- | unix/tclLoadDyld.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c index 79fa227..4b64032 100644 --- a/unix/tclLoadDyld.c +++ b/unix/tclLoadDyld.c @@ -12,7 +12,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.33 2010/03/11 13:35:25 nijtmans Exp $ + * RCS: @(#) $Id: tclLoadDyld.c,v 1.34 2010/03/11 15:02:33 nijtmans Exp $ */ #include "tclInt.h" @@ -308,7 +308,7 @@ TclpDlopen( dyldLoadHandle->modulePtr = modulePtr; #endif *loadHandle = (Tcl_LoadHandle) dyldLoadHandle; - *unloadProcPtr = TclpUnloadFile; + *unloadProcPtr = &TclpUnloadFile; result = TCL_OK; } else { Tcl_AppendResult(interp, errMsg, NULL); @@ -758,7 +758,7 @@ TclpLoadMemory( dyldLoadHandle->dyldLibHeader = NULL; dyldLoadHandle->modulePtr = modulePtr; *loadHandle = (Tcl_LoadHandle) dyldLoadHandle; - *unloadProcPtr = TclpUnloadFile; + *unloadProcPtr = &TclpUnloadFile; return TCL_OK; } #endif /* TCL_LOAD_FROM_MEMORY */ |