summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--unix/tclLoadDl.c4
-rw-r--r--unix/tclLoadDyld.c6
-rw-r--r--unix/tclLoadNext.c4
-rw-r--r--unix/tclLoadOSF.c4
-rw-r--r--unix/tclLoadShl.c4
-rw-r--r--win/tclWinLoad.c4
7 files changed, 13 insertions, 19 deletions
diff --git a/ChangeLog b/ChangeLog
index e88fd25..e063929 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,13 +3,7 @@
* generic/tclTest.c Remove unnecessary '&' decoration for function
* generic/tclIOUtil.c pointers
* win/tclWin32Dll.c Double declaration of TclNativeDupInternalRep
- * win/tclWinLoad.c
* unix/tclIOUtil.c
- * unix/tclLoadDl.c
- * unix/tclLoadDyld.c
- * unix/tclLoadNext.c
- * unix/tclLoadOSF.c
- * unix/tclLoadShl.c
* unix/dltest/.cvsignore Ignore *.so here
2010-03-09 Andreas Kupries <andreask@activestate.com>
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c
index 3043f92..282d5bb 100644
--- a/unix/tclLoadDl.c
+++ b/unix/tclLoadDl.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadDl.c,v 1.18 2010/03/11 13:35:25 nijtmans Exp $
+ * RCS: @(#) $Id: tclLoadDl.c,v 1.19 2010/03/11 15:02:33 nijtmans Exp $
*/
#include "tclInt.h"
@@ -104,7 +104,7 @@ TclpDlopen(
return TCL_ERROR;
}
- *unloadProcPtr = TclpUnloadFile;
+ *unloadProcPtr = &TclpUnloadFile;
*loadHandle = (Tcl_LoadHandle) handle;
return TCL_OK;
}
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 */
diff --git a/unix/tclLoadNext.c b/unix/tclLoadNext.c
index 5b66f4e..0f82593 100644
--- a/unix/tclLoadNext.c
+++ b/unix/tclLoadNext.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadNext.c,v 1.15 2010/03/11 13:35:25 nijtmans Exp $
+ * RCS: @(#) $Id: tclLoadNext.c,v 1.16 2010/03/11 15:02:33 nijtmans Exp $
*/
#include "tclInt.h"
@@ -96,7 +96,7 @@ TclpDlopen(
NXCloseMemory(errorStream, NX_FREEBUFFER);
*loadHandle = (Tcl_LoadHandle)1; /* A dummy non-NULL value */
- *unloadProcPtr = TclpUnloadFile;
+ *unloadProcPtr = &TclpUnloadFile;
return TCL_OK;
}
diff --git a/unix/tclLoadOSF.c b/unix/tclLoadOSF.c
index 4d91243..136fad9 100644
--- a/unix/tclLoadOSF.c
+++ b/unix/tclLoadOSF.c
@@ -31,7 +31,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadOSF.c,v 1.15 2010/03/11 13:35:25 nijtmans Exp $
+ * RCS: @(#) $Id: tclLoadOSF.c,v 1.16 2010/03/11 15:02:33 nijtmans Exp $
*/
#include "tclInt.h"
@@ -120,7 +120,7 @@ TclpDlopen(
pkg++;
}
*loadHandle = pkg;
- *unloadProcPtr = TclpUnloadFile;
+ *unloadProcPtr = &TclpUnloadFile;
return TCL_OK;
}
diff --git a/unix/tclLoadShl.c b/unix/tclLoadShl.c
index b989d7e..bf46cf5 100644
--- a/unix/tclLoadShl.c
+++ b/unix/tclLoadShl.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadShl.c,v 1.18 2010/03/11 13:35:25 nijtmans Exp $
+ * RCS: @(#) $Id: tclLoadShl.c,v 1.19 2010/03/11 15:02:33 nijtmans Exp $
*/
#include <dl.h>
@@ -98,7 +98,7 @@ TclpDlopen(
return TCL_ERROR;
}
*loadHandle = (Tcl_LoadHandle) handle;
- *unloadProcPtr = TclpUnloadFile;
+ *unloadProcPtr = &TclpUnloadFile;
return TCL_OK;
}
diff --git a/win/tclWinLoad.c b/win/tclWinLoad.c
index fea7b85..bdc62ae 100644
--- a/win/tclWinLoad.c
+++ b/win/tclWinLoad.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinLoad.c,v 1.25 2010/03/11 13:35:23 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinLoad.c,v 1.26 2010/03/11 15:02:33 nijtmans Exp $
*/
#include "tclWinInt.h"
@@ -130,7 +130,7 @@ TclpDlopen(
}
return TCL_ERROR;
} else {
- *unloadProcPtr = TclpUnloadFile;
+ *unloadProcPtr = &TclpUnloadFile;
}
return TCL_OK;
}