Removing warnings discovered by gcc -Wall

Moshe Zadka · Moshe Zadka · commit 6a078edb0768 · 2000-08-04T15:53:06.000Z
diff --git a/Modules/audioop.c b/Modules/audioop.c
@@ -87,7 +87,7 @@ static int ulaw_table[256] = {
 	120,    112,    104,     96,     88,     80,     72,     64,
 	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 CLIP 32635
 
diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
@@ -18,24 +18,24 @@
 int
 Tcl_AppInit(Tcl_Interp *interp)
 {
-	Tk_Window main;
+	Tk_Window main_window;
 
 	if (Tcl_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 	if (Tk_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 
-	main = Tk_MainWindow(interp);
+	main_window = Tk_MainWindow(interp);
 
 #ifdef WITH_MOREBUTTONS
 	{
 		extern Tcl_CmdProc studButtonCmd;
 		extern Tcl_CmdProc triButtonCmd;
 
 		Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
-				  (ClientData) main, NULL);
+				  (ClientData) main_window, NULL);
 		Tcl_CreateCommand(interp, "tributton", triButtonCmd,
-				  (ClientData) main, NULL);
+				  (ClientData) main_window, NULL);
 	}
 #endif
 
