sv.c
/* uiv_2buf(): private routine for use by sv_2pv_flags(): print an IV or
 * UV as a string towards the end of buf, and return pointers to start and
 * end of it.
 *
 * We assume that buf is at least TYPE_CHARS(UV) long.
 */
private routine for use by sv_2pv_flags(): print an IV or
UV as a string towards the end of buf, and return pointers to start and
end of it.

We assume that buf is at least TYPE_CHARS(UV) long.
private routine for use by sv_2pv_flags () : print an IV or UV as a string towards the end of buf and return pointers to start and end of it . We assume that buf is at least TYPE_CHARS ( UV ) long .
static char *
S_uiv_2buf(char *const buf, const IV iv, UV uv, const int is_uv, char **const peob)
{
    char *ptr = buf + TYPE_CHARS(UV);
    char * const ebuf = ptr;
    int sign;
    PERL_ARGS_ASSERT_UIV_2BUF;
    if (is_uv)
	sign = 0;
    else if (iv >= 0) {
	uv = iv;
	sign = 0;
    } else {
	uv = -iv;
	sign = 1;
    }
    do {
	*--ptr = '0' + (char)(uv % 10);
    } while (uv /= 10);
    if (sign)
	*--ptr = '-';
    *peob = ebuf;
    return ptr;
}
static char * S_uiv_2buf ( char * const buf , const IV iv , UV uv , const int is_uv , char * * const peob ) { char * ptr = buf + TYPE_CHARS ( UV ) ; char * const ebuf = ptr ; int sign ; PERL_ARGS_ASSERT_UIV_2BUF ; if ( is_uv ) sign = 0 ; else if ( iv >= 0 ) { uv = iv ; sign = 0 ; } else { uv = - iv ; sign = 1 ; } do { * -- ptr = ' ' + ( char ) ( uv % 10 ) ; } while ( uv /= 10 ) ; if ( sign ) * -- ptr = ' ' ; * peob = ebuf ; return ptr ; }
uiv_2buf(): private routine for use by sv_2pv_flags(): print an IV or
 UV as a string towards the end of buf, and return pointers to start and
 end of it.
uiv_2buf () : private routine for use by sv_2pv_flags () : print an IV or UV as a string towards the end of buf and return pointers to start and end of it .