generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-25 19:32:11 +01:00
Code Issues Projects Releases Wiki Activity

shorter code, fix comment

Browse Source
This commit is contained in:
Kazuho Oku 2010-10-18 19:26:24 +09:00
parent 3e164eab26
commit 5395b62f2f
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
perl/xs-src/unpack.c
View File

@ -125,14 +125,9 @@ static const char* str_from_uint64(char* buf_end, uint64_t v)
{
char *p = buf_end;
*--p = '\0';
if (v == 0) {
*--p = '0';
} else {
do {
*--p = '0' + v % 10;
v /= 10;
} while (v != 0);
}
do {
*--p = '0' + v % 10;
} while ((v /= 10) != 0);
return p;
}
@ -149,7 +144,7 @@ static int template_callback_uint64(unpack_user* u PERL_UNUSED_DECL, uint64_t co
{
dTHX;
char tbuf[64];
#if 1 /* workaround for win32-32bit (my_snprintf(%%d) returns are incorrect) */
#if 1 /* workaround for win32-32bit (my_snprintf(%llu) returns are incorrect) */
char* s = str_from_uint64(tbuf + sizeof(tbuf), d);
*o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s);
#else
@ -163,7 +158,7 @@ static int template_callback_int64(unpack_user* u PERL_UNUSED_DECL, int64_t cons
{
dTHX;
char tbuf[64];
#if 1 /* workaround for win32-32bit (my_snprintf(%%d) returns are incorrect) */
#if 1 /* workaround for win32-32bit (my_snprintf(%lld) returns are incorrect) */
char* s = str_from_int64(tbuf + sizeof(tbuf), d);
*o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s);
#else