You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2002/10/30 06:46:44 UTC
cvs commit: tcl-rivet/src rivetParser.c TclWebapache.c rivetWWW.c
davidw 2002/10/29 21:46:44
Modified: . ChangeLog
src rivetParser.c TclWebapache.c rivetWWW.c
Log:
* src/rivetWWW.c (Rivet_EscapeStringCmd): Eliminate warning on Solaris
by casting a char to an int.
Revision Changes Path
1.79 +5 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- ChangeLog 28 Oct 2002 21:42:08 -0000 1.78
+++ ChangeLog 30 Oct 2002 05:46:44 -0000 1.79
@@ -1,3 +1,8 @@
+2002-10-29 David N. Welton <da...@dedasys.com>
+
+ * src/rivetWWW.c (Rivet_EscapeStringCmd): Eliminate warning on
+ Solaris by casting a char to an int.
+
2002-10-28 David N. Welton <da...@dedasys.com>
* src/rivetCore.c (Rivet_Include): Changed Tcl_Channel name to
1.8 +3 -3 tcl-rivet/src/rivetParser.c
Index: rivetParser.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetParser.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- rivetParser.c 22 Oct 2002 18:21:47 -0000 1.7
+++ rivetParser.c 30 Oct 2002 05:46:44 -0000 1.8
@@ -158,7 +158,7 @@
while (*next != 0)
{
cur = next;
- (CONST84 char*)next = Tcl_UtfNext(cur);
+ next = (char *)Tcl_UtfNext(cur);
if (!inside)
{
/* Outside the delimiting tags. */
@@ -170,7 +170,7 @@
Tcl_AppendToObj(outbuf, "\"\n", 2);
inside = 1;
p = 0;
- (CONST84 char*)cur = Tcl_UtfNext(cur);
+ cur = (char *)Tcl_UtfNext(cur);
continue;
}
} else {
1.36 +2 -3 tcl-rivet/src/TclWebapache.c
Index: TclWebapache.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/TclWebapache.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- TclWebapache.c 23 Oct 2002 03:58:29 -0000 1.35
+++ TclWebapache.c 30 Oct 2002 05:46:44 -0000 1.36
@@ -438,8 +438,7 @@
char *tmp;
Tcl_DString dstr;
Tcl_DStringInit(&dstr);
- Tcl_ExternalToUtfDString(NULL, (CONST84 char*)in, (signed)strlen(in), &dstr);
-
+ Tcl_ExternalToUtfDString(NULL, in, (signed)strlen(in), &dstr);
tmp = ap_pstrdup(TCLWEBPOOL, Tcl_DStringValue(&dstr));
Tcl_DStringFree(&dstr);
return tmp;
1.3 +1 -1 tcl-rivet/src/rivetWWW.c
Index: rivetWWW.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetWWW.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- rivetWWW.c 18 Jan 2002 19:08:53 -0000 1.2
+++ rivetWWW.c 30 Oct 2002 05:46:44 -0000 1.3
@@ -159,7 +159,7 @@
origStringP++) {
char c = *origStringP;
- if (isalnum (c)) {
+ if (isalnum ((int)c)) {
*newStringP++ = c;
} else {
*newStringP++ = '%';
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-dev-help@tcl.apache.org