diff plugins/tcl/tcl.c @ 10344:5976491e07a7

[gaim-migrate @ 11554] Assorted silly compile warning fixes committer: Tailor Script <[e-mail]>

--- a/plugins/tcl/tcl.c	Fri Dec 10 05:49:01 2004 +0000
+++ b/plugins/tcl/tcl.c	Sat Dec 11 00:06:06 2004 +0000
@@ -158,6 +158,7 @@
 	struct stat st;
 	FILE *fp;
 	char *buf, *cur;
+	const char *next;
 	int len, found = 0, err = 0, nelems;
 	gboolean status = FALSE;
 
@@ -170,11 +171,11 @@
 	len = st.st_size;
 
 	buf = g_malloc(len + 1);
-	
-	cur = buf;	
+
+	cur = buf;
 	while (fgets(cur, (int) buf - (buf - cur), fp)) {
 		cur += strlen(cur);
-		if (feof(fp)) 
+		if (feof(fp))
 			break;
 	}
 
@@ -191,9 +192,9 @@
 		return FALSE;
 	}
 
-	cur = buf;
+	next = buf;
 	do {
-		if (Tcl_ParseCommand(interp, cur, len, 0, &parse) == TCL_ERROR) {
+		if (Tcl_ParseCommand(interp, next, len, 0, &parse) == TCL_ERROR) {
 			gaim_debug(GAIM_DEBUG_ERROR, "tcl", "parse error in %s: %s\n", plugin->path,
 				   Tcl_GetString(Tcl_GetObjResult(interp)));
 			err = 1;
@@ -210,8 +211,8 @@
 				/* We'll continue parsing the file, just in case */
 			}
 		}
-		len -= (parse.commandStart + parse.commandSize) - cur;
-		cur = parse.commandStart + parse.commandSize;
+		len -= (parse.commandStart + parse.commandSize) - next;
+		next = parse.commandStart + parse.commandSize;
 		Tcl_FreeParse(&parse);
 	} while (len);