Commit 43b85044 authored by Moshe Zadka's avatar Moshe Zadka

Removing warnings discovered by gcc -Wall

parent 0ff02f27
...@@ -87,7 +87,7 @@ static int ulaw_table[256] = { ...@@ -87,7 +87,7 @@ static int ulaw_table[256] = {
120, 112, 104, 96, 88, 80, 72, 64, 120, 112, 104, 96, 88, 80, 72, 64,
56, 48, 40, 32, 24, 16, 8, 0 }; 56, 48, 40, 32, 24, 16, 8, 0 };
/* #define ZEROTRAP /* turn on the trap as per the MIL-STD */ /* #define ZEROTRAP */ /* turn on the trap as per the MIL-STD */
#define BIAS 0x84 /* define the add-in bias for 16 bit samples */ #define BIAS 0x84 /* define the add-in bias for 16 bit samples */
#define CLIP 32635 #define CLIP 32635
......
...@@ -18,14 +18,14 @@ ...@@ -18,14 +18,14 @@
int int
Tcl_AppInit(Tcl_Interp *interp) Tcl_AppInit(Tcl_Interp *interp)
{ {
Tk_Window main; Tk_Window main_window;
if (Tcl_Init (interp) == TCL_ERROR) if (Tcl_Init (interp) == TCL_ERROR)
return TCL_ERROR; return TCL_ERROR;
if (Tk_Init (interp) == TCL_ERROR) if (Tk_Init (interp) == TCL_ERROR)
return TCL_ERROR; return TCL_ERROR;
main = Tk_MainWindow(interp); main_window = Tk_MainWindow(interp);
#ifdef WITH_MOREBUTTONS #ifdef WITH_MOREBUTTONS
{ {
...@@ -33,9 +33,9 @@ Tcl_AppInit(Tcl_Interp *interp) ...@@ -33,9 +33,9 @@ Tcl_AppInit(Tcl_Interp *interp)
extern Tcl_CmdProc triButtonCmd; extern Tcl_CmdProc triButtonCmd;
Tcl_CreateCommand(interp, "studbutton", studButtonCmd, Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
(ClientData) main, NULL); (ClientData) main_window, NULL);
Tcl_CreateCommand(interp, "tributton", triButtonCmd, Tcl_CreateCommand(interp, "tributton", triButtonCmd,
(ClientData) main, NULL); (ClientData) main_window, NULL);
} }
#endif #endif
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment