This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
PATCH: Avoid compiler warning in src/tclhelp.c
- To: insight at sources dot redhat dot com
- Subject: PATCH: Avoid compiler warning in src/tclhelp.c
- From: Mo DeJong <mdejong at cygnus dot com>
- Date: Fri, 3 Aug 2001 16:25:34 -0700 (PDT)
Here is a patch to avoid a compiler warning in src/tclhelp.c:
The compiler warning:
...
../../../devo/libgui/src/tclhelp.c
../../../devo/libgui/src/tclhelp.c: In function `help_display_file_command':
../../../devo/libgui/src/tclhelp.c:327: warning: passing arg 3 of
`Tcl_GetInt'
from incompatible pointer type
2001-08-03 Mo DeJong <mdejong@redhat.com>
* src/tclhelp.c (help_display_file_command): Pass int
address to Tcl_GetInt instead of an unsigned long to
avoid compiler warning.
Index: src/tclhelp.c
===================================================================
RCS file: /cvs/cvsfiles/devo/libgui/src/tclhelp.c,v
retrieving revision 1.6.212.3
diff -u -r1.6.212.3 tclhelp.c
--- tclhelp.c 2001/08/03 23:06:13 1.6.212.3
+++ tclhelp.c 2001/08/03 23:19:24
@@ -303,7 +303,8 @@
{
struct help_command_data *hdata = (struct help_command_data *) cd;
FILE *e;
- DWORD topic_id = 0; /* default topic id is 0 which brings up the find dialog */
+ int id = 0;
+ DWORD topic_id; /* default topic id is 0 which brings up the find dialog */
/* We call Help initialize just to make sure the window handle is
setup */
/* We don't care about the finding the main help file and checking the */
@@ -324,10 +325,11 @@
fclose (e);
if (argc > 3)
{
- if ( Tcl_GetInt (interp, argv[3], &topic_id) != TCL_OK )
+ if ( Tcl_GetInt (interp, argv[3], &id) != TCL_OK )
return TCL_ERROR;
}
+ topic_id = (DWORD) id;
if (! WinHelp (hdata->window, argv[2], HELP_CONTEXT, topic_id))
{
char buf[200];
cheers
Mo