From 4138af452c3949c861b66d47a0f123966698f74d Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 26 Apr 2010 13:49:12 +0000
Subject: * unix/tclLoadDl.c (FindSymbol): [Bug 2992295]: Added an
explicit cast because auto-casting between function and non-function types
is never naturally warning-free.
---
ChangeLog | 4 ++++
unix/tclLoadDl.c | 4 ++--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 8b457b6..67ec5bb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2010-04-26 Donal K. Fellows <dkf@users.sf.net>
+ * unix/tclLoadDl.c (FindSymbol): [Bug 2992295]: Added an explicit cast
+ because auto-casting between function and non-function types is never
+ naturally warning-free.
+
* generic/tclStubInit.c: Add a small amount of gcc-isms (with #ifdef
* generic/tclOOStubInit.c: guards) to ensure that warnings are issued
when these files are older than the various *.decls files.
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c
index 0620bd3..71349bb 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.21 2010/04/05 07:38:08 dkf Exp $
+ * RCS: @(#) $Id: tclLoadDl.c,v 1.22 2010/04/26 13:49:12 dkf Exp $
*/
#include "tclInt.h"
@@ -172,7 +172,7 @@ FindSymbol(
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol,
NULL);
}
- return proc;
+ return (void *) proc;
}
/*
--
cgit v0.12