generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-04-03 01:54:45 +02: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

11
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; char *p = buf_end;
*--p = '\0'; *--p = '\0';
if (v == 0) {
*--p = '0';
} else {
do { do {
*--p = '0' + v % 10; *--p = '0' + v % 10;
v /= 10; } while ((v /= 10) != 0);
} while (v != 0);
}
return p; return p;
} }
@ -149,7 +144,7 @@ static int template_callback_uint64(unpack_user* u PERL_UNUSED_DECL, uint64_t co
{ {
dTHX; dTHX;
char tbuf[64]; 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); char* s = str_from_uint64(tbuf + sizeof(tbuf), d);
*o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s); *o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s);
#else #else
@ -163,7 +158,7 @@ static int template_callback_int64(unpack_user* u PERL_UNUSED_DECL, int64_t cons
{ {
dTHX; dTHX;
char tbuf[64]; 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); char* s = str_from_int64(tbuf + sizeof(tbuf), d);
*o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s); *o = newSVpvn(s, tbuf + sizeof(tbuf) - 1 - s);
#else #else