Use correct formats / types in snprintf() calls in tcl.c

This commit is contained in:
Kevin Easton
2017-11-17 22:48:03 +11:00
parent 1569d859af
commit abfe84eb5c

View File

@@ -145,7 +145,7 @@ int i;
{ {
DCC_int *n; DCC_int *n;
n = (DCC_int *)s->info; n = (DCC_int *)s->info;
snprintf(buff, sizeof buff, "%d %s", n->dccnum, s->server); snprintf(buff, sizeof buff, "%u %s", n->dccnum, s->server);
Tcl_AppendElement(irp, buff); Tcl_AppendElement(irp, buff);
count++; count++;
} }
@@ -174,7 +174,7 @@ int count = 0;
if ((s->flags & DCC_TYPES) == DCC_CHAT) if ((s->flags & DCC_TYPES) == DCC_CHAT)
{ {
n = (DCC_int *) s->info; n = (DCC_int *) s->info;
snprintf(buff, sizeof buff, "%d %s", n->dccnum, s->server); snprintf(buff, sizeof buff, "%u %s", n->dccnum, s->server);
Tcl_AppendElement(irp, buff); Tcl_AppendElement(irp, buff);
count++; count++;
} }
@@ -1141,7 +1141,7 @@ int tcl_unixtime STDVAR
BADARGS(1,1,""); BADARGS(1,1,"");
snprintf(s, sizeof s, "%lu", now); snprintf(s, sizeof s, "%lu", (unsigned long)now);
Tcl_AppendResult(irp,s,NULL); Tcl_AppendResult(irp,s,NULL);
return TCL_OK; return TCL_OK;
} }