Mercurial > pidgin
diff plugins/tcl/tcl.c @ 10344:5976491e07a7
[gaim-migrate @ 11554]
Assorted silly compile warning fixes
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Sat, 11 Dec 2004 00:06:06 +0000 |
parents | f1a4e59711f4 |
children | 4f1a59fb4159 |
line wrap: on
line diff
--- 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);