system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-09-01 11:43:37 +00:00
Code Issues Packages Projects Releases Wiki Activity
wine/dlls/msvcrt/string.c
Martin Storsjo 057ecd41cc msvcrt: Fix strtof() error reporting for values out of float range. 
If the values weren't out of range for the internal strtod() call,
we still must mark them as out of range when returning as float.

Signed-off-by: Martin Storsjo <martin@martin.st>
Signed-off-by: Piotr Caban <piotr@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
2021-07-28 22:07:05 +02:00

3157 lines
76 KiB
C
Raw Blame History

/*
* MSVCRT string functions
*
* Copyright 1996,1998 Marcus Meissner
* Copyright 1996 Jukka Iivonen
* Copyright 1997,2000 Uwe Bonnes
* Copyright 2000 Jon Griffiths
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include <assert.h>
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <limits.h>
#include <locale.h>
#include <float.h>
#include "msvcrt.h"
#include "bnum.h"
#include "winnls.h"
#include "wine/asm.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
/*********************************************************************
* _mbsdup (MSVCRT.@)
* _strdup (MSVCRT.@)
*/
char* CDECL _strdup(const char* str)
{
if(str)
{
char * ret = malloc(strlen(str)+1);
if (ret) strcpy( ret, str );
return ret;
}
else return 0;
}
/*********************************************************************
* _strlwr_s_l (MSVCRT.@)
*/
int CDECL _strlwr_s_l(char *str, size_t len, _locale_t locale)
{
pthreadlocinfo locinfo;
char *ptr = str;
if (!str || !len)
{
*_errno() = EINVAL;
return EINVAL;
}
while (len && *ptr)
{
len--;
ptr++;
}
if (!len)
{
str[0] = '\0';
*_errno() = EINVAL;
return EINVAL;
}
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_CTYPE])
{
while (*str)
{
if (*str >= 'A' && *str <= 'Z')
*str -= 'A' - 'a';
str++;
}
}
else
{
while (*str)
{
*str = _tolower_l((unsigned char)*str, locale);
str++;
}
}
return 0;
}
/*********************************************************************
* _strlwr_s (MSVCRT.@)
*/
int CDECL _strlwr_s(char *str, size_t len)
{
return _strlwr_s_l(str, len, NULL);
}
/*********************************************************************
* _strlwr_l (MSVCRT.@)
*/
char* CDECL _strlwr_l(char *str, _locale_t locale)
{
_strlwr_s_l(str, -1, locale);
return str;
}
/*********************************************************************
* _strlwr (MSVCRT.@)
*/
char* CDECL _strlwr(char *str)
{
_strlwr_s_l(str, -1, NULL);
return str;
}
/*********************************************************************
* _strupr_s_l (MSVCRT.@)
*/
int CDECL _strupr_s_l(char *str, size_t len, _locale_t locale)
{
pthreadlocinfo locinfo;
char *ptr = str;
if (!str || !len)
{
*_errno() = EINVAL;
return EINVAL;
}
while (len && *ptr)
{
len--;
ptr++;
}
if (!len)
{
str[0] = '\0';
*_errno() = EINVAL;
return EINVAL;
}
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_CTYPE])
{
while (*str)
{
if (*str >= 'a' && *str <= 'z')
*str -= 'a' - 'A';
str++;
}
}
else
{
while (*str)
{
*str = _toupper_l((unsigned char)*str, locale);
str++;
}
}
return 0;
}
/*********************************************************************
* _strupr_s (MSVCRT.@)
*/
int CDECL _strupr_s(char *str, size_t len)
{
return _strupr_s_l(str, len, NULL);
}
/*********************************************************************
* _strupr_l (MSVCRT.@)
*/
char* CDECL _strupr_l(char *str, _locale_t locale)
{
_strupr_s_l(str, -1, locale);
return str;
}
/*********************************************************************
* _strupr (MSVCRT.@)
*/
char* CDECL _strupr(char *str)
{
_strupr_s_l(str, -1, NULL);
return str;
}
/*********************************************************************
* _strnset_s (MSVCRT.@)
*/
int CDECL _strnset_s(char *str, size_t size, int c, size_t count)
{
size_t i;
if(!str && !size && !count) return 0;
if(!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if(!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
for(i=0; i<size-1 && i<count; i++) {
if(!str[i]) return 0;
str[i] = c;
}
for(; i<size; i++)
if(!str[i]) return 0;
str[0] = 0;
_invalid_parameter(NULL, NULL, NULL, 0, 0);
*_errno() = EINVAL;
return EINVAL;
}
/*********************************************************************
* _strnset (MSVCRT.@)
*/
char* CDECL _strnset(char* str, int value, size_t len)
{
if (len > 0 && str)
while (*str && len--)
*str++ = value;
return str;
}
/*********************************************************************
* _strrev (MSVCRT.@)
*/
char* CDECL _strrev(char* str)
{
char * p1;
char * p2;
if (str && *str)
for (p1 = str, p2 = str + strlen(str) - 1; p2 > p1; ++p1, --p2)
{
*p1 ^= *p2;
*p2 ^= *p1;
*p1 ^= *p2;
}
return str;
}
/*********************************************************************
* _strset (MSVCRT.@)
*/
char* CDECL _strset(char* str, int value)
{
char *ptr = str;
while (*ptr)
*ptr++ = value;
return str;
}
/*********************************************************************
* strtok (MSVCRT.@)
*/
char * CDECL strtok( char *str, const char *delim )
{
thread_data_t *data = msvcrt_get_thread_data();
char *ret;
if (!str)
if (!(str = data->strtok_next)) return NULL;
while (*str && strchr( delim, *str )) str++;
if (!*str)
{
data->strtok_next = str;
return NULL;
}
ret = str++;
while (*str && !strchr( delim, *str )) str++;
if (*str) *str++ = 0;
data->strtok_next = str;
return ret;
}
/*********************************************************************
* strtok_s (MSVCRT.@)
*/
char * CDECL strtok_s(char *str, const char *delim, char **ctx)
{
if (!MSVCRT_CHECK_PMT(delim != NULL)) return NULL;
if (!MSVCRT_CHECK_PMT(ctx != NULL)) return NULL;
if (!MSVCRT_CHECK_PMT(str != NULL || *ctx != NULL)) return NULL;
if(!str)
str = *ctx;
while(*str && strchr(delim, *str))
str++;
if(!*str)
{
*ctx = str;
return NULL;
}
*ctx = str+1;
while(**ctx && !strchr(delim, **ctx))
(*ctx)++;
if(**ctx)
*(*ctx)++ = 0;
return str;
}
/*********************************************************************
* _swab (MSVCRT.@)
*/
void CDECL _swab(char* src, char* dst, int len)
{
if (len > 1)
{
len = (unsigned)len >> 1;
while (len--) {
char s0 = src[0];
char s1 = src[1];
*dst++ = s1;
*dst++ = s0;
src = src + 2;
}
}
}
static struct fpnum fpnum(int sign, int exp, ULONGLONG m, enum fpmod mod)
{
struct fpnum ret;
ret.sign = sign;
ret.exp = exp;
ret.m = m;
ret.mod = mod;
return ret;
}
int fpnum_double(struct fpnum *fp, double *d)
{
ULONGLONG bits = 0;
if (fp->mod == FP_VAL_INFINITY)
{
*d = fp->sign * INFINITY;
return 0;
}
if (fp->mod == FP_VAL_NAN)
{
bits = ~0;
if (fp->sign == 1)
bits &= ~((ULONGLONG)1 << (MANT_BITS + EXP_BITS - 1));
*d = *(double*)&bits;
return 0;
}
TRACE("%c %s *2^%d (round %d)\n", fp->sign == -1 ? '-' : '+',
wine_dbgstr_longlong(fp->m), fp->exp, fp->mod);
if (!fp->m)
{
*d = fp->sign * 0.0;
return 0;
}
/* make sure that we don't overflow modifying exponent */
if (fp->exp > 1<<EXP_BITS)
{
*d = fp->sign * INFINITY;
return ERANGE;
}
if (fp->exp < -(1<<EXP_BITS))
{
*d = fp->sign * 0.0;
return ERANGE;
}
fp->exp += MANT_BITS - 1;
/* normalize mantissa */
while(fp->m < (ULONGLONG)1 << (MANT_BITS-1))
{
fp->m <<= 1;
fp->exp--;
}
while(fp->m >= (ULONGLONG)1 << MANT_BITS)
{
if (fp->m & 1 || fp->mod != FP_ROUND_ZERO)
{
if (!(fp->m & 1)) fp->mod = FP_ROUND_DOWN;
else if(fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
else fp->mod = FP_ROUND_UP;
}
fp->m >>= 1;
fp->exp++;
}
fp->exp += (1 << (EXP_BITS-1)) - 1;
/* handle subnormals */
if (fp->exp <= 0)
{
if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
else if (fp->m & 1) fp->mod = FP_ROUND_UP;
else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
fp->m >>= 1;
}
while(fp->m && fp->exp<0)
{
if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
else if (fp->m & 1) fp->mod = FP_ROUND_UP;
else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
fp->m >>= 1;
fp->exp++;
}
/* round mantissa */
if (fp->mod == FP_ROUND_UP || (fp->mod == FP_ROUND_EVEN && fp->m & 1))
{
fp->m++;
/* handle subnormal that falls into regular range due to rounding */
if (fp->m == (ULONGLONG)1 << (MANT_BITS - 1))
{
fp->exp++;
}
else if (fp->m >= (ULONGLONG)1 << MANT_BITS)
{
fp->exp++;
fp->m >>= 1;
}
}
if (fp->exp >= (1<<EXP_BITS)-1)
{
*d = fp->sign * INFINITY;
return ERANGE;
}
if (!fp->m || fp->exp < 0)
{
*d = fp->sign * 0.0;
return ERANGE;
}
if (fp->sign == -1)
bits |= (ULONGLONG)1 << (MANT_BITS + EXP_BITS - 1);
bits |= (ULONGLONG)fp->exp << (MANT_BITS - 1);
bits |= fp->m & (((ULONGLONG)1 << (MANT_BITS - 1)) - 1);
TRACE("returning %s\n", wine_dbgstr_longlong(bits));
*d = *(double*)&bits;
return 0;
}
#define LDBL_EXP_BITS 15
#define LDBL_MANT_BITS 64
int fpnum_ldouble(struct fpnum *fp, MSVCRT__LDOUBLE *d)
{
if (fp->mod == FP_VAL_INFINITY)
{
d->x80[0] = 0;
d->x80[1] = 0x80000000;
d->x80[2] = (1 << LDBL_EXP_BITS) - 1;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return 0;
}
if (fp->mod == FP_VAL_NAN)
{
d->x80[0] = ~0;
d->x80[1] = ~0;
d->x80[2] = (1 << LDBL_EXP_BITS) - 1;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return 0;
}
TRACE("%c %s *2^%d (round %d)\n", fp->sign == -1 ? '-' : '+',
wine_dbgstr_longlong(fp->m), fp->exp, fp->mod);
if (!fp->m)
{
d->x80[0] = 0;
d->x80[1] = 0;
d->x80[2] = 0;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return 0;
}
/* make sure that we don't overflow modifying exponent */
if (fp->exp > 1<<LDBL_EXP_BITS)
{
d->x80[0] = 0;
d->x80[1] = 0x80000000;
d->x80[2] = (1 << LDBL_EXP_BITS) - 1;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return ERANGE;
}
if (fp->exp < -(1<<LDBL_EXP_BITS))
{
d->x80[0] = 0;
d->x80[1] = 0;
d->x80[2] = 0;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return ERANGE;
}
fp->exp += LDBL_MANT_BITS - 1;
/* normalize mantissa */
while(fp->m < (ULONGLONG)1 << (LDBL_MANT_BITS-1))
{
fp->m <<= 1;
fp->exp--;
}
fp->exp += (1 << (LDBL_EXP_BITS-1)) - 1;
/* handle subnormals */
if (fp->exp <= 0)
{
if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
else if (fp->m & 1) fp->mod = FP_ROUND_UP;
else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
fp->m >>= 1;
}
while(fp->m && fp->exp<0)
{
if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
else if (fp->m & 1) fp->mod = FP_ROUND_UP;
else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
fp->m >>= 1;
fp->exp++;
}
/* round mantissa */
if (fp->mod == FP_ROUND_UP || (fp->mod == FP_ROUND_EVEN && fp->m & 1))
{
if (fp->m == UI64_MAX)
{
fp->m = (ULONGLONG)1 << (LDBL_MANT_BITS - 1);
fp->exp++;
}
else
{
fp->m++;
/* handle subnormal that falls into regular range due to rounding */
if ((fp->m ^ (fp->m - 1)) & ((ULONGLONG)1 << (LDBL_MANT_BITS - 1))) fp->exp++;
}
}
if (fp->exp >= (1<<LDBL_EXP_BITS)-1)
{
d->x80[0] = 0;
d->x80[1] = 0x80000000;
d->x80[2] = (1 << LDBL_EXP_BITS) - 1;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return ERANGE;
}
if (!fp->m || fp->exp < 0)
{
d->x80[0] = 0;
d->x80[1] = 0;
d->x80[2] = 0;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return ERANGE;
}
d->x80[0] = fp->m;
d->x80[1] = fp->m >> 32;
d->x80[2] = fp->exp;
if (fp->sign == -1)
d->x80[2] |= 1 << LDBL_EXP_BITS;
return 0;
}
#if _MSVCR_VER >= 140
static inline int hex2int(char c)
{
if (c >= '0' && c <= '9')
return c - '0';
else if (c >= 'a' && c <= 'f')
return c - 'a' + 10;
else if (c >= 'A' && c <= 'F')
return c - 'A' + 10;
return -1;
}
static struct fpnum fpnum_parse16(wchar_t get(void *ctx), void unget(void *ctx),
void *ctx, int sign, pthreadlocinfo locinfo)
{
BOOL found_digit = FALSE, found_dp = FALSE;
enum fpmod round = FP_ROUND_ZERO;
wchar_t nch;
ULONGLONG m = 0;
int val, exp = 0;
nch = get(ctx);
while(m < UI64_MAX/16)
{
val = hex2int(nch);
if (val == -1) break;
found_digit = TRUE;
nch = get(ctx);
m = m*16 + val;
}
while(1)
{
val = hex2int(nch);
if (val == -1) break;
nch = get(ctx);
exp += 4;
if (val || round != FP_ROUND_ZERO)
{
if (val < 8) round = FP_ROUND_DOWN;
else if (val == 8 && round == FP_ROUND_ZERO) round = FP_ROUND_EVEN;
else round = FP_ROUND_UP;
}
}
if(nch == *locinfo->lconv->decimal_point)
{
found_dp = TRUE;
nch = get(ctx);
}
else if (!found_digit)
{
if(nch!=WEOF) unget(ctx);
unget(ctx);
return fpnum(0, 0, 0, 0);
}
while(m <= UI64_MAX/16)
{
val = hex2int(nch);
if (val == -1) break;
found_digit = TRUE;
nch = get(ctx);
m = m*16 + val;
exp -= 4;
}
while(1)
{
val = hex2int(nch);
if (val == -1) break;
nch = get(ctx);
if (val || round != FP_ROUND_ZERO)
{
if (val < 8) round = FP_ROUND_DOWN;
else if (val == 8 && round == FP_ROUND_ZERO) round = FP_ROUND_EVEN;
else round = FP_ROUND_UP;
}
}
if (!found_digit)
{
if (nch != WEOF) unget(ctx);
if (found_dp) unget(ctx);
unget(ctx);
return fpnum(0, 0, 0, 0);
}
if(nch=='p' || nch=='P') {
BOOL found_sign = FALSE;
int e=0, s=1;
nch = get(ctx);
if(nch == '-') {
found_sign = TRUE;
s = -1;
nch = get(ctx);
} else if(nch == '+') {
found_sign = TRUE;
nch = get(ctx);
}
if(nch>='0' && nch<='9') {
while(nch>='0' && nch<='9') {
if(e>INT_MAX/10 || e*10>INT_MAX-nch+'0')
e = INT_MAX;
else
e = e*10+nch-'0';
nch = get(ctx);
}
if((nch!=WEOF) && (nch < '0' || nch > '9')) unget(ctx);
e *= s;
if(e<0 && exp<INT_MIN-e) exp = INT_MIN;
else if(e>0 && exp>INT_MAX-e) exp = INT_MAX;
else exp += e;
} else {
if(nch != WEOF) unget(ctx);
if(found_sign) unget(ctx);
unget(ctx);
}
}
return fpnum(sign, exp, m, round);
}
#endif
/* Converts first 3 limbs to ULONGLONG */
/* Return FALSE on overflow */
static inline BOOL bnum_to_mant(struct bnum *b, ULONGLONG *m)
{
if(UI64_MAX / LIMB_MAX / LIMB_MAX < b->data[bnum_idx(b, b->e-1)]) return FALSE;
*m = (ULONGLONG)b->data[bnum_idx(b, b->e-1)] * LIMB_MAX * LIMB_MAX;
if(b->b == b->e-1) return TRUE;
if(UI64_MAX - *m < (ULONGLONG)b->data[bnum_idx(b, b->e-2)] * LIMB_MAX) return FALSE;
*m += (ULONGLONG)b->data[bnum_idx(b, b->e-2)] * LIMB_MAX;
if(b->b == b->e-2) return TRUE;
if(UI64_MAX - *m < b->data[bnum_idx(b, b->e-3)]) return FALSE;
*m += b->data[bnum_idx(b, b->e-3)];
return TRUE;
}
static struct fpnum fpnum_parse_bnum(wchar_t (*get)(void *ctx), void (*unget)(void *ctx),
void *ctx, pthreadlocinfo locinfo, BOOL ldouble, struct bnum *b)
{
#if _MSVCR_VER >= 140
const wchar_t _infinity[] = L"infinity";
const wchar_t _nan[] = L"nan";
const wchar_t *str_match = NULL;
int matched=0;
#endif
BOOL found_digit = FALSE, found_dp = FALSE, found_sign = FALSE;
int e2 = 0, dp=0, sign=1, off, limb_digits = 0, i;
enum fpmod round = FP_ROUND_ZERO;
wchar_t nch;
ULONGLONG m;
nch = get(ctx);
if(nch == '-') {
found_sign = TRUE;
sign = -1;
nch = get(ctx);
} else if(nch == '+') {
found_sign = TRUE;
nch = get(ctx);
}
#if _MSVCR_VER >= 140
if(nch == _infinity[0] || nch == _toupper(_infinity[0]))
str_match = _infinity;
if(nch == _nan[0] || nch == _toupper(_nan[0]))
str_match = _nan;
while(str_match && nch != WEOF &&
(nch == str_match[matched] || nch == _toupper(str_match[matched]))) {
nch = get(ctx);
matched++;
}
if(str_match) {
int keep = 0;
if(matched >= 8) keep = 8;
else if(matched >= 3) keep = 3;
if(nch != WEOF) unget(ctx);
for (; matched > keep; matched--) {
unget(ctx);
}
if(keep) {
if (str_match == _infinity)
return fpnum(sign, 0, 0, FP_VAL_INFINITY);
if (str_match == _nan)
return fpnum(sign, 0, 0, FP_VAL_NAN);
} else if(found_sign) {
unget(ctx);
}
return fpnum(0, 0, 0, 0);
}
if(nch == '0') {
found_digit = TRUE;
nch = get(ctx);
if(nch == 'x' || nch == 'X')
return fpnum_parse16(get, unget, ctx, sign, locinfo);
}
#endif
while(nch == '0') {
found_digit = TRUE;
nch = get(ctx);
}
b->b = 0;
b->e = 1;
b->data[0] = 0;
while(nch>='0' && nch<='9') {
found_digit = TRUE;
if(limb_digits == LIMB_DIGITS) {
if(bnum_idx(b, b->b-1) == bnum_idx(b, b->e)) break;
else {
b->b--;
b->data[bnum_idx(b, b->b)] = 0;
limb_digits = 0;
}
}
b->data[bnum_idx(b, b->b)] = b->data[bnum_idx(b, b->b)] * 10 + nch - '0';
limb_digits++;
nch = get(ctx);
dp++;
}
while(nch>='0' && nch<='9') {
if(nch != '0') b->data[bnum_idx(b, b->b)] |= 1;
nch = get(ctx);
dp++;
}
if(nch == *locinfo->lconv->decimal_point) {
found_dp = TRUE;
nch = get(ctx);
}
/* skip leading '0' */
if(nch=='0' && !limb_digits && !b->b) {
found_digit = TRUE;
while(nch == '0') {
nch = get(ctx);
dp--;
}
}
while(nch>='0' && nch<='9') {
found_digit = TRUE;
if(limb_digits == LIMB_DIGITS) {
if(bnum_idx(b, b->b-1) == bnum_idx(b, b->e)) break;
else {
b->b--;
b->data[bnum_idx(b, b->b)] = 0;
limb_digits = 0;
}
}
b->data[bnum_idx(b, b->b)] = b->data[bnum_idx(b, b->b)] * 10 + nch - '0';
limb_digits++;
nch = get(ctx);
}
while(nch>='0' && nch<='9') {
if(nch != '0') b->data[bnum_idx(b, b->b)] |= 1;
nch = get(ctx);
}
if(!found_digit) {
if(nch != WEOF) unget(ctx);
if(found_dp) unget(ctx);
if(found_sign) unget(ctx);
return fpnum(0, 0, 0, 0);
}
if(nch=='e' || nch=='E' || nch=='d' || nch=='D') {
int e=0, s=1;
nch = get(ctx);
if(nch == '-') {
found_sign = TRUE;
s = -1;
nch = get(ctx);
} else if(nch == '+') {
found_sign = TRUE;
nch = get(ctx);
} else {
found_sign = FALSE;
}
if(nch>='0' && nch<='9') {
while(nch>='0' && nch<='9') {
if(e>INT_MAX/10 || e*10>INT_MAX-nch+'0')
e = INT_MAX;
else
e = e*10+nch-'0';
nch = get(ctx);
}
if(nch != WEOF) unget(ctx);
e *= s;
if(e<0 && dp<INT_MIN-e) dp = INT_MIN;
else if(e>0 && dp>INT_MAX-e) dp = INT_MAX;
else dp += e;
} else {
if(nch != WEOF) unget(ctx);
if(found_sign) unget(ctx);
unget(ctx);
}
} else if(nch != WEOF) {
unget(ctx);
}
if(!b->data[bnum_idx(b, b->e-1)])
return fpnum(sign, 0, 0, 0);
/* Fill last limb with 0 if needed */
if(b->b+1 != b->e) {
for(; limb_digits != LIMB_DIGITS; limb_digits++)
b->data[bnum_idx(b, b->b)] *= 10;
}
for(; bnum_idx(b, b->b) < bnum_idx(b, b->e); b->b++) {
if(b->data[bnum_idx(b, b->b)]) break;
}
/* move decimal point to limb boundary */
if(limb_digits==dp && b->b==b->e-1)
return fpnum(sign, 0, b->data[bnum_idx(b, b->e-1)], FP_ROUND_ZERO);
off = (dp - limb_digits) % LIMB_DIGITS;
if(off < 0) off += LIMB_DIGITS;
if(off) bnum_mult(b, p10s[off]);
if(dp-1 > (ldouble ? DBL80_MAX_10_EXP : DBL_MAX_10_EXP))
return fpnum(sign, INT_MAX, 1, FP_ROUND_ZERO);
/* Count part of exponent stored in denormalized mantissa. */
/* Increase exponent range to handle subnormals. */
if(dp-1 < (ldouble ? DBL80_MIN_10_EXP : DBL_MIN_10_EXP-DBL_DIG-18))
return fpnum(sign, INT_MIN, 1, FP_ROUND_ZERO);
while(dp > 3*LIMB_DIGITS) {
if(bnum_rshift(b, 9)) dp -= LIMB_DIGITS;
e2 += 9;
}
while(dp <= 2*LIMB_DIGITS) {
if(bnum_lshift(b, 29)) dp += LIMB_DIGITS;
e2 -= 29;
}
/* Make sure most significant mantissa bit will be set */
while(b->data[bnum_idx(b, b->e-1)] <= 9) {
bnum_lshift(b, 1);
e2--;
}
while(!bnum_to_mant(b, &m)) {
bnum_rshift(b, 1);
e2++;
}
if(b->e-4 >= b->b && b->data[bnum_idx(b, b->e-4)]) {
if(b->data[bnum_idx(b, b->e-4)] > LIMB_MAX/2) round = FP_ROUND_UP;
else if(b->data[bnum_idx(b, b->e-4)] == LIMB_MAX/2) round = FP_ROUND_EVEN;
else round = FP_ROUND_DOWN;
}
if(round == FP_ROUND_ZERO || round == FP_ROUND_EVEN) {
for(i=b->e-5; i>=b->b; i--) {
if(!b->data[bnum_idx(b, b->b)]) continue;
if(round == FP_ROUND_EVEN) round = FP_ROUND_UP;
else round = FP_ROUND_DOWN;
}
}
return fpnum(sign, e2, m, round);
}
struct fpnum fpnum_parse(wchar_t (*get)(void *ctx), void (*unget)(void *ctx),
void *ctx, pthreadlocinfo locinfo, BOOL ldouble)
{
if(!ldouble) {
BYTE bnum_data[FIELD_OFFSET(struct bnum, data[BNUM_PREC64])];
struct bnum *b = (struct bnum*)bnum_data;
b->size = BNUM_PREC64;
return fpnum_parse_bnum(get, unget, ctx, locinfo, ldouble, b);
} else {
BYTE bnum_data[FIELD_OFFSET(struct bnum, data[BNUM_PREC80])];
struct bnum *b = (struct bnum*)bnum_data;
b->size = BNUM_PREC80;
return fpnum_parse_bnum(get, unget, ctx, locinfo, ldouble, b);
}
}
static wchar_t strtod_str_get(void *ctx)
{
const char **p = ctx;
if (!**p) return WEOF;
return *(*p)++;
}
static void strtod_str_unget(void *ctx)
{
const char **p = ctx;
(*p)--;
}
static inline double strtod_helper(const char *str, char **end, _locale_t locale, int *perr)
{
pthreadlocinfo locinfo;
const char *beg, *p;
struct fpnum fp;
double ret;
int err;
if (perr) *perr = 0;
#if _MSVCR_VER == 0
else *_errno() = 0;
#endif
if (!MSVCRT_CHECK_PMT(str != NULL)) {
if (end) *end = NULL;
return 0;
}
if (!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
p = str;
while(_isspace_l((unsigned char)*p, locale))
p++;
beg = p;
fp = fpnum_parse(strtod_str_get, strtod_str_unget, &p, locinfo, FALSE);
if (end) *end = (p == beg ? (char*)str : (char*)p);
err = fpnum_double(&fp, &ret);
if (perr) *perr = err;
else if(err) *_errno() = err;
return ret;
}
/*********************************************************************
* _strtod_l (MSVCRT.@)
*/
double CDECL _strtod_l(const char *str, char **end, _locale_t locale)
{
return strtod_helper(str, end, locale, NULL);
}
/*********************************************************************
* strtod (MSVCRT.@)
*/
double CDECL strtod( const char *str, char **end )
{
return _strtod_l( str, end, NULL );
}
#if _MSVCR_VER>=120
/*********************************************************************
* strtof_l (MSVCR120.@)
*/
float CDECL _strtof_l( const char *str, char **end, _locale_t locale )
{
double ret = _strtod_l(str, end, locale);
if (ret && isfinite(ret)) {
float f = ret;
if (!f || !isfinite(f))
*_errno() = ERANGE;
}
return ret;
}
/*********************************************************************
* strtof (MSVCR120.@)
*/
float CDECL strtof( const char *str, char **end )
{
return _strtof_l(str, end, NULL);
}
#endif /* _MSVCR_VER>=120 */
/*********************************************************************
* atof (MSVCRT.@)
*/
double CDECL atof( const char *str )
{
return _strtod_l(str, NULL, NULL);
}
/*********************************************************************
* _atof_l (MSVCRT.@)
*/
double CDECL _atof_l( const char *str, _locale_t locale)
{
return _strtod_l(str, NULL, locale);
}
/*********************************************************************
* _atoflt_l (MSVCRT.@)
*/
int CDECL _atoflt_l(_CRT_FLOAT *value, char *str, _locale_t locale)
{
double d;
int err;
d = strtod_helper(str, NULL, locale, &err);
value->f = d;
if(isinf(value->f))
return _OVERFLOW;
if((d!=0 || err) && value->f>-FLT_MIN && value->f<FLT_MIN)
return _UNDERFLOW;
return 0;
}
/*********************************************************************
* _atoflt (MSVCR100.@)
*/
int CDECL _atoflt(_CRT_FLOAT *value, char *str)
{
return _atoflt_l(value, str, NULL);
}
/*********************************************************************
* _atodbl_l (MSVCRT.@)
*/
int CDECL _atodbl_l(_CRT_DOUBLE *value, char *str, _locale_t locale)
{
int err;
value->x = strtod_helper(str, NULL, locale, &err);
if(isinf(value->x))
return _OVERFLOW;
if((value->x!=0 || err) && value->x>-DBL_MIN && value->x<DBL_MIN)
return _UNDERFLOW;
return 0;
}
/*********************************************************************
* _atodbl (MSVCRT.@)
*/
int CDECL _atodbl(_CRT_DOUBLE *value, char *str)
{
return _atodbl_l(value, str, NULL);
}
/*********************************************************************
* _strcoll_l (MSVCRT.@)
*/
int CDECL _strcoll_l( const char* str1, const char* str2, _locale_t locale )
{
pthreadlocinfo locinfo;
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_COLLATE])
return strcmp(str1, str2);
return CompareStringA(locinfo->lc_handle[LC_COLLATE], 0, str1, -1, str2, -1)-CSTR_EQUAL;
}
/*********************************************************************
* strcoll (MSVCRT.@)
*/
int CDECL strcoll( const char* str1, const char* str2 )
{
return _strcoll_l(str1, str2, NULL);
}
/*********************************************************************
* _stricoll_l (MSVCRT.@)
*/
int CDECL _stricoll_l( const char* str1, const char* str2, _locale_t locale )
{
pthreadlocinfo locinfo;
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_COLLATE])
return _stricmp(str1, str2);
return CompareStringA(locinfo->lc_handle[LC_COLLATE], NORM_IGNORECASE,
str1, -1, str2, -1)-CSTR_EQUAL;
}
/*********************************************************************
* _stricoll (MSVCRT.@)
*/
int CDECL _stricoll( const char* str1, const char* str2 )
{
return _stricoll_l(str1, str2, NULL);
}
/*********************************************************************
* _strncoll_l (MSVCRT.@)
*/
int CDECL _strncoll_l( const char* str1, const char* str2, size_t count, _locale_t locale )
{
pthreadlocinfo locinfo;
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_COLLATE])
return strncmp(str1, str2, count);
return CompareStringA(locinfo->lc_handle[LC_COLLATE], 0,
str1, strnlen(str1, count),
str2, strnlen(str2, count))-CSTR_EQUAL;
}
/*********************************************************************
* _strncoll (MSVCRT.@)
*/
int CDECL _strncoll( const char* str1, const char* str2, size_t count )
{
return _strncoll_l(str1, str2, count, NULL);
}
/*********************************************************************
* _strnicoll_l (MSVCRT.@)
*/
int CDECL _strnicoll_l( const char* str1, const char* str2, size_t count, _locale_t locale )
{
pthreadlocinfo locinfo;
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_COLLATE])
return _strnicmp(str1, str2, count);
return CompareStringA(locinfo->lc_handle[LC_COLLATE], NORM_IGNORECASE,
str1, strnlen(str1, count),
str2, strnlen(str2, count))-CSTR_EQUAL;
}
/*********************************************************************
* _strnicoll (MSVCRT.@)
*/
int CDECL _strnicoll( const char* str1, const char* str2, size_t count )
{
return _strnicoll_l(str1, str2, count, NULL);
}
/*********************************************************************
* strncpy (MSVCRT.@)
*/
char* __cdecl strncpy(char *dst, const char *src, size_t len)
{
size_t i;
for(i=0; i<len; i++)
if((dst[i] = src[i]) == '\0') break;
while (i < len) dst[i++] = 0;
return dst;
}
/*********************************************************************
* strcpy (MSVCRT.@)
*/
char* CDECL strcpy(char *dst, const char *src)
{
char *ret = dst;
while ((*dst++ = *src++));
return ret;
}
/*********************************************************************
* strcpy_s (MSVCRT.@)
*/
int CDECL strcpy_s( char* dst, size_t elem, const char* src )
{
size_t i;
if(!elem) return EINVAL;
if(!dst) return EINVAL;
if(!src)
{
dst[0] = '\0';
return EINVAL;
}
for(i = 0; i < elem; i++)
{
if((dst[i] = src[i]) == '\0') return 0;
}
dst[0] = '\0';
return ERANGE;
}
/*********************************************************************
* strcat_s (MSVCRT.@)
*/
int CDECL strcat_s( char* dst, size_t elem, const char* src )
{
size_t i, j;
if(!dst) return EINVAL;
if(elem == 0) return EINVAL;
if(!src)
{
dst[0] = '\0';
return EINVAL;
}
for(i = 0; i < elem; i++)
{
if(dst[i] == '\0')
{
for(j = 0; (j + i) < elem; j++)
{
if((dst[j + i] = src[j]) == '\0') return 0;
}
}
}
/* Set the first element to 0, not the first element after the skipped part */
dst[0] = '\0';
return ERANGE;
}
/*********************************************************************
* strcat (MSVCRT.@)
*/
char* __cdecl strcat( char *dst, const char *src )
{
char *d = dst;
while (*d) d++;
while ((*d++ = *src++));
return dst;
}
/*********************************************************************
* strncat_s (MSVCRT.@)
*/
int CDECL strncat_s( char* dst, size_t elem, const char* src, size_t count )
{
size_t i, j;
if (!MSVCRT_CHECK_PMT(dst != 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(elem != 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(src != 0))
{
dst[0] = '\0';
return EINVAL;
}
for(i = 0; i < elem; i++)
{
if(dst[i] == '\0')
{
for(j = 0; (j + i) < elem; j++)
{
if(count == _TRUNCATE && j + i == elem - 1)
{
dst[j + i] = '\0';
return STRUNCATE;
}
if(j == count || (dst[j + i] = src[j]) == '\0')
{
dst[j + i] = '\0';
return 0;
}
}
}
}
/* Set the first element to 0, not the first element after the skipped part */
dst[0] = '\0';
return ERANGE;
}
/*********************************************************************
* strncat (MSVCRT.@)
*/
char* __cdecl strncat(char *dst, const char *src, size_t len)
{
char *d = dst;
while (*d) d++;
for ( ; len && *src; d++, src++, len--) *d = *src;
*d = 0;
return dst;
}
/*********************************************************************
* _strxfrm_l (MSVCRT.@)
*/
size_t CDECL _strxfrm_l( char *dest, const char *src,
size_t len, _locale_t locale )
{
pthreadlocinfo locinfo;
int ret;
if(!MSVCRT_CHECK_PMT(src)) return INT_MAX;
if(!MSVCRT_CHECK_PMT(dest || !len)) return INT_MAX;
if(len > INT_MAX) {
FIXME("len > INT_MAX not supported\n");
len = INT_MAX;
}
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_COLLATE]) {
strncpy(dest, src, len);
return strlen(src);
}
ret = LCMapStringA(locinfo->lc_handle[LC_COLLATE],
LCMAP_SORTKEY, src, -1, NULL, 0);
if(!ret) {
if(len) dest[0] = 0;
*_errno() = EILSEQ;
return INT_MAX;
}
if(!len) return ret-1;
if(ret > len) {
dest[0] = 0;
*_errno() = ERANGE;
return ret-1;
}
return LCMapStringA(locinfo->lc_handle[LC_COLLATE],
LCMAP_SORTKEY, src, -1, dest, len) - 1;
}
/*********************************************************************
* strxfrm (MSVCRT.@)
*/
size_t CDECL strxfrm( char *dest, const char *src, size_t len )
{
return _strxfrm_l(dest, src, len, NULL);
}
/********************************************************************
* __STRINGTOLD_L (MSVCR80.@)
*/
int CDECL __STRINGTOLD_L( MSVCRT__LDOUBLE *value, char **endptr,
const char *str, int flags, _locale_t locale )
{
pthreadlocinfo locinfo;
const char *beg, *p;
int err, ret = 0;
struct fpnum fp;
if (flags) FIXME("flags not supported: %x\n", flags);
if (!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
p = str;
while (_isspace_l((unsigned char)*p, locale))
p++;
beg = p;
fp = fpnum_parse(strtod_str_get, strtod_str_unget, &p, locinfo, TRUE);
if (endptr) *endptr = (p == beg ? (char*)str : (char*)p);
if (p == beg) ret = 4;
err = fpnum_ldouble(&fp, value);
if (err) ret = (value->x80[2] & 0x7fff ? 2 : 1);
return ret;
}
/********************************************************************
* __STRINGTOLD (MSVCRT.@)
*/
int CDECL __STRINGTOLD( MSVCRT__LDOUBLE *value, char **endptr, const char *str, int flags )
{
return __STRINGTOLD_L( value, endptr, str, flags, NULL );
}
/********************************************************************
* _atoldbl_l (MSVCRT.@)
*/
int CDECL _atoldbl_l( MSVCRT__LDOUBLE *value, char *str, _locale_t locale )
{
char *endptr;
switch(__STRINGTOLD_L( value, &endptr, str, 0, locale ))
{
case 1: return _UNDERFLOW;
case 2: return _OVERFLOW;
default: return 0;
}
}
/********************************************************************
* _atoldbl (MSVCRT.@)
*/
int CDECL _atoldbl(_LDOUBLE *value, char *str)
{
return _atoldbl_l( (MSVCRT__LDOUBLE*)value, str, NULL );
}
/*********************************************************************
* strlen (MSVCRT.@)
*/
size_t __cdecl strlen(const char *str)
{
const char *s = str;
while (*s) s++;
return s - str;
}
/******************************************************************
* strnlen (MSVCRT.@)
*/
size_t CDECL strnlen(const char *s, size_t maxlen)
{
size_t i;
for(i=0; i<maxlen; i++)
if(!s[i]) break;
return i;
}
/*********************************************************************
* _strtoi64_l (MSVCRT.@)
*
* FIXME: locale parameter is ignored
*/
__int64 CDECL _strtoi64_l(const char *nptr, char **endptr, int base, _locale_t locale)
{
const char *p = nptr;
BOOL negative = FALSE;
BOOL got_digit = FALSE;
__int64 ret = 0;
TRACE("(%s %p %d %p)\n", debugstr_a(nptr), endptr, base, locale);
if (!MSVCRT_CHECK_PMT(nptr != NULL)) return 0;
if (!MSVCRT_CHECK_PMT(base == 0 || base >= 2)) return 0;
if (!MSVCRT_CHECK_PMT(base <= 36)) return 0;
while(_isspace_l((unsigned char)*nptr, locale)) nptr++;
if(*nptr == '-') {
negative = TRUE;
nptr++;
} else if(*nptr == '+')
nptr++;
if((base==0 || base==16) && *nptr=='0' && _tolower_l(*(nptr+1), locale)=='x') {
base = 16;
nptr += 2;
}
if(base == 0) {
if(*nptr=='0')
base = 8;
else
base = 10;
}
while(*nptr) {
char cur = _tolower_l(*nptr, locale);
int v;
if(cur>='0' && cur<='9') {
if(cur >= '0'+base)
break;
v = cur-'0';
} else {
if(cur<'a' || cur>='a'+base-10)
break;
v = cur-'a'+10;
}
got_digit = TRUE;
if(negative)
v = -v;
nptr++;
if(!negative && (ret>I64_MAX/base || ret*base>I64_MAX-v)) {
ret = I64_MAX;
*_errno() = ERANGE;
} else if(negative && (ret<I64_MIN/base || ret*base<I64_MIN-v)) {
ret = I64_MIN;
*_errno() = ERANGE;
} else
ret = ret*base + v;
}
if(endptr)
*endptr = (char*)(got_digit ? nptr : p);
return ret;
}
/*********************************************************************
* _strtoi64 (MSVCRT.@)
*/
__int64 CDECL _strtoi64(const char *nptr, char **endptr, int base)
{
return _strtoi64_l(nptr, endptr, base, NULL);
}
/*********************************************************************
* _atoi_l (MSVCRT.@)
*/
int __cdecl _atoi_l(const char *str, _locale_t locale)
{
__int64 ret = _strtoi64_l(str, NULL, 10, locale);
if(ret > INT_MAX) {
ret = INT_MAX;
*_errno() = ERANGE;
} else if(ret < INT_MIN) {
ret = INT_MIN;
*_errno() = ERANGE;
}
return ret;
}
/*********************************************************************
* atoi (MSVCRT.@)
*/
#if _MSVCR_VER == 0
int __cdecl atoi(const char *str)
{
BOOL minus = FALSE;
int ret = 0;
if(!str)
return 0;
while(_isspace_l((unsigned char)*str, NULL)) str++;
if(*str == '+') {
str++;
}else if(*str == '-') {
minus = TRUE;
str++;
}
while(*str>='0' && *str<='9') {
ret = ret*10+*str-'0';
str++;
}
return minus ? -ret : ret;
}
#else
int CDECL atoi(const char *str)
{
return _atoi_l(str, NULL);
}
#endif
/******************************************************************
* _atoi64_l (MSVCRT.@)
*/
__int64 CDECL _atoi64_l(const char *str, _locale_t locale)
{
return _strtoi64_l(str, NULL, 10, locale);
}
/******************************************************************
* _atoi64 (MSVCRT.@)
*/
__int64 CDECL _atoi64(const char *str)
{
return _strtoi64_l(str, NULL, 10, NULL);
}
/******************************************************************
* _atol_l (MSVCRT.@)
*/
__msvcrt_long CDECL _atol_l(const char *str, _locale_t locale)
{
__int64 ret = _strtoi64_l(str, NULL, 10, locale);
if(ret > LONG_MAX) {
ret = LONG_MAX;
*_errno() = ERANGE;
} else if(ret < LONG_MIN) {
ret = LONG_MIN;
*_errno() = ERANGE;
}
return ret;
}
/******************************************************************
* atol (MSVCRT.@)
*/
__msvcrt_long CDECL atol(const char *str)
{
#if _MSVCR_VER == 0
return atoi(str);
#else
return _atol_l(str, NULL);
#endif
}
#if _MSVCR_VER>=120
/******************************************************************
* _atoll_l (MSVCR120.@)
*/
__int64 CDECL _atoll_l(const char* str, _locale_t locale)
{
return _strtoi64_l(str, NULL, 10, locale);
}
/******************************************************************
* atoll (MSVCR120.@)
*/
__int64 CDECL atoll(const char* str)
{
return _atoll_l(str, NULL);
}
#endif /* _MSVCR_VER>=120 */
/******************************************************************
* _strtol_l (MSVCRT.@)
*/
__msvcrt_long CDECL _strtol_l(const char* nptr,
char** end, int base, _locale_t locale)
{
__int64 ret = _strtoi64_l(nptr, end, base, locale);
if(ret > LONG_MAX) {
ret = LONG_MAX;
*_errno() = ERANGE;
} else if(ret < LONG_MIN) {
ret = LONG_MIN;
*_errno() = ERANGE;
}
return ret;
}
/******************************************************************
* strtol (MSVCRT.@)
*/
__msvcrt_long CDECL strtol(const char* nptr, char** end, int base)
{
return _strtol_l(nptr, end, base, NULL);
}
/******************************************************************
* _strtoul_l (MSVCRT.@)
*/
__msvcrt_ulong CDECL _strtoul_l(const char* nptr, char** end, int base, _locale_t locale)
{
__int64 ret = _strtoi64_l(nptr, end, base, locale);
if(ret > ULONG_MAX) {
ret = ULONG_MAX;
*_errno() = ERANGE;
}else if(ret < -(__int64)ULONG_MAX) {
ret = 1;
*_errno() = ERANGE;
}
return ret;
}
/******************************************************************
* strtoul (MSVCRT.@)
*/
__msvcrt_ulong CDECL strtoul(const char* nptr, char** end, int base)
{
return _strtoul_l(nptr, end, base, NULL);
}
/*********************************************************************
* _strtoui64_l (MSVCRT.@)
*
* FIXME: locale parameter is ignored
*/
unsigned __int64 CDECL _strtoui64_l(const char *nptr, char **endptr, int base, _locale_t locale)
{
const char *p = nptr;
BOOL negative = FALSE;
BOOL got_digit = FALSE;
unsigned __int64 ret = 0;
TRACE("(%s %p %d %p)\n", debugstr_a(nptr), endptr, base, locale);
if (!MSVCRT_CHECK_PMT(nptr != NULL)) return 0;
if (!MSVCRT_CHECK_PMT(base == 0 || base >= 2)) return 0;
if (!MSVCRT_CHECK_PMT(base <= 36)) return 0;
while(_isspace_l((unsigned char)*nptr, locale)) nptr++;
if(*nptr == '-') {
negative = TRUE;
nptr++;
} else if(*nptr == '+')
nptr++;
if((base==0 || base==16) && *nptr=='0' && _tolower_l(*(nptr+1), locale)=='x') {
base = 16;
nptr += 2;
}
if(base == 0) {
if(*nptr=='0')
base = 8;
else
base = 10;
}
while(*nptr) {
char cur = _tolower_l(*nptr, locale);
int v;
if(cur>='0' && cur<='9') {
if(cur >= '0'+base)
break;
v = *nptr-'0';
} else {
if(cur<'a' || cur>='a'+base-10)
break;
v = cur-'a'+10;
}
got_digit = TRUE;
nptr++;
if(ret>UI64_MAX/base || ret*base>UI64_MAX-v) {
ret = UI64_MAX;
*_errno() = ERANGE;
} else
ret = ret*base + v;
}
if(endptr)
*endptr = (char*)(got_digit ? nptr : p);
return negative ? -ret : ret;
}
/*********************************************************************
* _strtoui64 (MSVCRT.@)
*/
unsigned __int64 CDECL _strtoui64(const char *nptr, char **endptr, int base)
{
return _strtoui64_l(nptr, endptr, base, NULL);
}
static int ltoa_helper(__msvcrt_long value, char *str, size_t size, int radix)
{
__msvcrt_ulong val;
unsigned int digit;
BOOL is_negative;
char buffer[33], *pos;
size_t len;
if (value < 0 && radix == 10)
{
is_negative = TRUE;
val = -value;
}
else
{
is_negative = FALSE;
val = value;
}
pos = buffer + 32;
*pos = '\0';
do
{
digit = val % radix;
val /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (val != 0);
if (is_negative)
*--pos = '-';
len = buffer + 33 - pos;
if (len > size)
{
size_t i;
char *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. Don't copy the negative sign if present. */
if (is_negative)
{
p++;
size--;
}
for (pos = buffer + 31, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
MSVCRT_INVALID_PMT("str[size] is too small", ERANGE);
return ERANGE;
}
memcpy(str, pos, len);
return 0;
}
/*********************************************************************
* _ltoa_s (MSVCRT.@)
*/
int CDECL _ltoa_s(__msvcrt_long value, char *str, size_t size, int radix)
{
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
return ltoa_helper(value, str, size, radix);
}
/*********************************************************************
* _ltow_s (MSVCRT.@)
*/
int CDECL _ltow_s(__msvcrt_long value, wchar_t *str, size_t size, int radix)
{
__msvcrt_ulong val;
unsigned int digit;
BOOL is_negative;
wchar_t buffer[33], *pos;
size_t len;
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
if (value < 0 && radix == 10)
{
is_negative = TRUE;
val = -value;
}
else
{
is_negative = FALSE;
val = value;
}
pos = buffer + 32;
*pos = '\0';
do
{
digit = val % radix;
val /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (val != 0);
if (is_negative)
*--pos = '-';
len = buffer + 33 - pos;
if (len > size)
{
size_t i;
wchar_t *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. Don't copy the negative sign if present. */
if (is_negative)
{
p++;
size--;
}
for (pos = buffer + 31, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
MSVCRT_INVALID_PMT("str[size] is too small", ERANGE);
return ERANGE;
}
memcpy(str, pos, len * sizeof(wchar_t));
return 0;
}
/*********************************************************************
* _itoa_s (MSVCRT.@)
*/
int CDECL _itoa_s(int value, char *str, size_t size, int radix)
{
return _ltoa_s(value, str, size, radix);
}
/*********************************************************************
* _itoa (MSVCRT.@)
*/
char* CDECL _itoa(int value, char *str, int radix)
{
return ltoa_helper(value, str, SIZE_MAX, radix) ? NULL : str;
}
/*********************************************************************
* _itow_s (MSVCRT.@)
*/
int CDECL _itow_s(int value, wchar_t *str, size_t size, int radix)
{
return _ltow_s(value, str, size, radix);
}
/*********************************************************************
* _ui64toa_s (MSVCRT.@)
*/
int CDECL _ui64toa_s(unsigned __int64 value, char *str,
size_t size, int radix)
{
char buffer[65], *pos;
int digit;
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
pos = buffer+64;
*pos = '\0';
do {
digit = value%radix;
value /= radix;
if(digit < 10)
*--pos = '0'+digit;
else
*--pos = 'a'+digit-10;
}while(value != 0);
if(buffer-pos+65 > size) {
MSVCRT_INVALID_PMT("str[size] is too small", EINVAL);
return EINVAL;
}
memcpy(str, pos, buffer-pos+65);
return 0;
}
/*********************************************************************
* _ui64tow_s (MSVCRT.@)
*/
int CDECL _ui64tow_s( unsigned __int64 value, wchar_t *str,
size_t size, int radix )
{
wchar_t buffer[65], *pos;
int digit;
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
pos = &buffer[64];
*pos = '\0';
do {
digit = value % radix;
value = value / radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
} while (value != 0);
if(buffer-pos+65 > size) {
MSVCRT_INVALID_PMT("str[size] is too small", EINVAL);
return EINVAL;
}
memcpy(str, pos, (buffer-pos+65)*sizeof(wchar_t));
return 0;
}
/*********************************************************************
* _ultoa_s (MSVCRT.@)
*/
int CDECL _ultoa_s(__msvcrt_ulong value, char *str, size_t size, int radix)
{
__msvcrt_ulong digit;
char buffer[33], *pos;
size_t len;
if (!str || !size || radix < 2 || radix > 36)
{
if (str && size)
str[0] = '\0';
*_errno() = EINVAL;
return EINVAL;
}
pos = buffer + 32;
*pos = '\0';
do
{
digit = value % radix;
value /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (value != 0);
len = buffer + 33 - pos;
if (len > size)
{
size_t i;
char *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. */
for (pos = buffer + 31, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
*_errno() = ERANGE;
return ERANGE;
}
memcpy(str, pos, len);
return 0;
}
/*********************************************************************
* _ultow_s (MSVCRT.@)
*/
int CDECL _ultow_s(__msvcrt_ulong value, wchar_t *str, size_t size, int radix)
{
__msvcrt_ulong digit;
WCHAR buffer[33], *pos;
size_t len;
if (!str || !size || radix < 2 || radix > 36)
{
if (str && size)
str[0] = '\0';
*_errno() = EINVAL;
return EINVAL;
}
pos = buffer + 32;
*pos = '\0';
do
{
digit = value % radix;
value /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (value != 0);
len = buffer + 33 - pos;
if (len > size)
{
size_t i;
WCHAR *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. */
for (pos = buffer + 31, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
*_errno() = ERANGE;
return ERANGE;
}
memcpy(str, pos, len * sizeof(wchar_t));
return 0;
}
/*********************************************************************
* _i64toa_s (MSVCRT.@)
*/
int CDECL _i64toa_s(__int64 value, char *str, size_t size, int radix)
{
unsigned __int64 val;
unsigned int digit;
BOOL is_negative;
char buffer[65], *pos;
size_t len;
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
if (value < 0 && radix == 10)
{
is_negative = TRUE;
val = -value;
}
else
{
is_negative = FALSE;
val = value;
}
pos = buffer + 64;
*pos = '\0';
do
{
digit = val % radix;
val /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (val != 0);
if (is_negative)
*--pos = '-';
len = buffer + 65 - pos;
if (len > size)
{
size_t i;
char *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. Don't copy the negative sign if present. */
if (is_negative)
{
p++;
size--;
}
for (pos = buffer + 63, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
MSVCRT_INVALID_PMT("str[size] is too small", ERANGE);
return ERANGE;
}
memcpy(str, pos, len);
return 0;
}
/*********************************************************************
* _i64tow_s (MSVCRT.@)
*/
int CDECL _i64tow_s(__int64 value, wchar_t *str, size_t size, int radix)
{
unsigned __int64 val;
unsigned int digit;
BOOL is_negative;
wchar_t buffer[65], *pos;
size_t len;
if (!MSVCRT_CHECK_PMT(str != NULL)) return EINVAL;
if (!MSVCRT_CHECK_PMT(size > 0)) return EINVAL;
if (!MSVCRT_CHECK_PMT(radix >= 2 && radix <= 36))
{
str[0] = '\0';
return EINVAL;
}
if (value < 0 && radix == 10)
{
is_negative = TRUE;
val = -value;
}
else
{
is_negative = FALSE;
val = value;
}
pos = buffer + 64;
*pos = '\0';
do
{
digit = val % radix;
val /= radix;
if (digit < 10)
*--pos = '0' + digit;
else
*--pos = 'a' + digit - 10;
}
while (val != 0);
if (is_negative)
*--pos = '-';
len = buffer + 65 - pos;
if (len > size)
{
size_t i;
wchar_t *p = str;
/* Copy the temporary buffer backwards up to the available number of
* characters. Don't copy the negative sign if present. */
if (is_negative)
{
p++;
size--;
}
for (pos = buffer + 63, i = 0; i < size; i++)
*p++ = *pos--;
str[0] = '\0';
MSVCRT_INVALID_PMT("str[size] is too small", ERANGE);
return ERANGE;
}
memcpy(str, pos, len * sizeof(wchar_t));
return 0;
}
#define I10_OUTPUT_MAX_PREC 21
/* Internal structure used by $I10_OUTPUT */
struct _I10_OUTPUT_DATA {
short pos;
char sign;
BYTE len;
char str[I10_OUTPUT_MAX_PREC+1]; /* add space for '\0' */
};
/*********************************************************************
* $I10_OUTPUT (MSVCRT.@)
* ld80 - long double (Intel 80 bit FP in 12 bytes) to be printed to data
* prec - precision of part, we're interested in
* flag - 0 for first prec digits, 1 for fractional part
* data - data to be populated
*
* return value
* 0 if given double is NaN or INF
* 1 otherwise
*
* FIXME
* Native sets last byte of data->str to '0' or '9', I don't know what
* it means. Current implementation sets it always to '0'.
*/
int CDECL I10_OUTPUT(MSVCRT__LDOUBLE ld80, int prec, int flag, struct _I10_OUTPUT_DATA *data)
{
struct fpnum num;
double d;
char format[8];
char buf[I10_OUTPUT_MAX_PREC+9]; /* 9 = strlen("0.e+0000") + '\0' */
char *p;
if ((ld80.x80[2] & 0x7fff) == 0x7fff)
{
if (ld80.x80[0] == 0 && ld80.x80[1] == 0x80000000)
strcpy( data->str, "1#INF" );
else
strcpy( data->str, (ld80.x80[1] & 0x40000000) ? "1#QNAN" : "1#SNAN" );
data->pos = 1;
data->sign = (ld80.x80[2] & 0x8000) ? '-' : ' ';
data->len = strlen(data->str);
return 0;
}
num.sign = (ld80.x80[2] & 0x8000) ? -1 : 1;
num.exp = (ld80.x80[2] & 0x7fff) - 0x3fff - 63;
num.m = ld80.x80[0] | ((ULONGLONG)ld80.x80[1] << 32);
num.mod = FP_ROUND_EVEN;
fpnum_double( &num, &d );
TRACE("(%lf %d %x %p)\n", d, prec, flag, data);
if(d<0) {
data->sign = '-';
d = -d;
} else
data->sign = ' ';
if(flag&1) {
int exp = 1 + floor(log10(d));
prec += exp;
if(exp < 0)
prec--;
}
prec--;
if(prec+1 > I10_OUTPUT_MAX_PREC)
prec = I10_OUTPUT_MAX_PREC-1;
else if(prec < 0) {
d = 0.0;
prec = 0;
}
sprintf(format, "%%.%dle", prec);
sprintf(buf, format, d);
buf[1] = buf[0];
data->pos = atoi(buf+prec+3);
if(buf[1] != '0')
data->pos++;
for(p = buf+prec+1; p>buf+1 && *p=='0'; p--);
data->len = p-buf;
memcpy(data->str, buf+1, data->len);
data->str[data->len] = '\0';
if(buf[1]!='0' && prec-data->len+1>0)
memcpy(data->str+data->len+1, buf+data->len+1, prec-data->len+1);
return 1;
}
#undef I10_OUTPUT_MAX_PREC
/*********************************************************************
* memcmp (MSVCRT.@)
*/
int __cdecl memcmp(const void *ptr1, const void *ptr2, size_t n)
{
const unsigned char *p1, *p2;
for (p1 = ptr1, p2 = ptr2; n; n--, p1++, p2++)
{
if (*p1 < *p2) return -1;
if (*p1 > *p2) return 1;
}
return 0;
}
#if defined(__i386__) || defined(__x86_64__)
#ifdef __i386__
#define DEST_REG "%edi"
#define SRC_REG "%esi"
#define LEN_REG "%ecx"
#define TMP_REG "%edx"
#define MEMMOVE_INIT \
"pushl " SRC_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset 4\n\t") \
"pushl " DEST_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset 4\n\t") \
"movl 12(%esp), " DEST_REG "\n\t" \
"movl 16(%esp), " SRC_REG "\n\t" \
"movl 20(%esp), " LEN_REG "\n\t"
#define MEMMOVE_CLEANUP \
"movl 12(%esp), %eax\n\t" \
"popl " DEST_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset -4\n\t") \
"popl " SRC_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset -4\n\t")
#else
#define DEST_REG "%rdi"
#define SRC_REG "%rsi"
#define LEN_REG "%r8"
#define TMP_REG "%r9"
#define MEMMOVE_INIT \
"pushq " SRC_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset 8\n\t") \
"pushq " DEST_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset 8\n\t") \
"movq %rcx, " DEST_REG "\n\t" \
"movq %rdx, " SRC_REG "\n\t"
#define MEMMOVE_CLEANUP \
"movq %rcx, %rax\n\t" \
"popq " DEST_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset -8\n\t") \
"popq " SRC_REG "\n\t" \
__ASM_CFI(".cfi_adjust_cfa_offset -8\n\t")
#endif
void * __cdecl sse2_memmove(void *dst, const void *src, size_t n);
__ASM_GLOBAL_FUNC( sse2_memmove,
MEMMOVE_INIT
"mov " DEST_REG ", " TMP_REG "\n\t" /* check copying direction */
"sub " SRC_REG ", " TMP_REG "\n\t"
"cmp " LEN_REG ", " TMP_REG "\n\t"
"jb copy_bwd\n\t"
/* copy forwards */
"cmp $4, " LEN_REG "\n\t" /* 4-bytes align */
"jb copy_fwd3\n\t"
"mov " DEST_REG ", " TMP_REG "\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movsb\n\t"
"dec " LEN_REG "\n\t"
"inc " TMP_REG "\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movsw\n\t"
"sub $2, " LEN_REG "\n\t"
"inc " TMP_REG "\n\t"
"1:\n\t" /* 16-bytes align */
"cmp $16, " LEN_REG "\n\t"
"jb copy_fwd15\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movsl\n\t"
"sub $4, " LEN_REG "\n\t"
"inc " TMP_REG "\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movsl\n\t"
"movsl\n\t"
"sub $8, " LEN_REG "\n\t"
"1:\n\t"
"cmp $64, " LEN_REG "\n\t"
"jb copy_fwd63\n\t"
"1:\n\t" /* copy 64-bytes blocks in loop, dest 16-bytes aligned */
"movdqu 0x00(" SRC_REG "), %xmm0\n\t"
"movdqu 0x10(" SRC_REG "), %xmm1\n\t"
"movdqu 0x20(" SRC_REG "), %xmm2\n\t"
"movdqu 0x30(" SRC_REG "), %xmm3\n\t"
"movdqa %xmm0, 0x00(" DEST_REG ")\n\t"
"movdqa %xmm1, 0x10(" DEST_REG ")\n\t"
"movdqa %xmm2, 0x20(" DEST_REG ")\n\t"
"movdqa %xmm3, 0x30(" DEST_REG ")\n\t"
"add $64, " SRC_REG "\n\t"
"add $64, " DEST_REG "\n\t"
"sub $64, " LEN_REG "\n\t"
"cmp $64, " LEN_REG "\n\t"
"jae 1b\n\t"
"copy_fwd63:\n\t" /* copy last 63 bytes, dest 16-bytes aligned */
"mov " LEN_REG ", " TMP_REG "\n\t"
"and $15, " LEN_REG "\n\t"
"shr $5, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movdqu 0(" SRC_REG "), %xmm0\n\t"
"movdqa %xmm0, 0(" DEST_REG ")\n\t"
"add $16, " SRC_REG "\n\t"
"add $16, " DEST_REG "\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc copy_fwd15\n\t"
"movdqu 0x00(" SRC_REG "), %xmm0\n\t"
"movdqu 0x10(" SRC_REG "), %xmm1\n\t"
"movdqa %xmm0, 0x00(" DEST_REG ")\n\t"
"movdqa %xmm1, 0x10(" DEST_REG ")\n\t"
"add $32, " SRC_REG "\n\t"
"add $32, " DEST_REG "\n\t"
"copy_fwd15:\n\t" /* copy last 15 bytes, dest 4-bytes aligned */
"mov " LEN_REG ", " TMP_REG "\n\t"
"and $3, " LEN_REG "\n\t"
"shr $3, " TMP_REG "\n\t"
"jnc 1f\n\t"
"movsl\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc copy_fwd3\n\t"
"movsl\n\t"
"movsl\n\t"
"copy_fwd3:\n\t" /* copy last 3 bytes */
"shr $1, " LEN_REG "\n\t"
"jnc 1f\n\t"
"movsb\n\t"
"1:\n\t"
"shr $1, " LEN_REG "\n\t"
"jnc 1f\n\t"
"movsw\n\t"
"1:\n\t"
MEMMOVE_CLEANUP
"ret\n\t"
"copy_bwd:\n\t"
"lea (" DEST_REG ", " LEN_REG "), " DEST_REG "\n\t"
"lea (" SRC_REG ", " LEN_REG "), " SRC_REG "\n\t"
"cmp $4, " LEN_REG "\n\t" /* 4-bytes align */
"jb copy_bwd3\n\t"
"mov " DEST_REG ", " TMP_REG "\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"dec " SRC_REG "\n\t"
"dec " DEST_REG "\n\t"
"movb (" SRC_REG "), %al\n\t"
"movb %al, (" DEST_REG ")\n\t"
"dec " LEN_REG "\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"sub $2, " SRC_REG "\n\t"
"sub $2, " DEST_REG "\n\t"
"movw (" SRC_REG "), %ax\n\t"
"movw %ax, (" DEST_REG ")\n\t"
"sub $2, " LEN_REG "\n\t"
"1:\n\t" /* 16-bytes align */
"cmp $16, " LEN_REG "\n\t"
"jb copy_bwd15\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"sub $4, " SRC_REG "\n\t"
"sub $4, " DEST_REG "\n\t"
"movl (" SRC_REG "), %eax\n\t"
"movl %eax, (" DEST_REG ")\n\t"
"sub $4, " LEN_REG "\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc 1f\n\t"
"sub $8, " SRC_REG "\n\t"
"sub $8, " DEST_REG "\n\t"
"movl 4(" SRC_REG "), %eax\n\t"
"movl %eax, 4(" DEST_REG ")\n\t"
"movl (" SRC_REG "), %eax\n\t"
"movl %eax, (" DEST_REG ")\n\t"
"sub $8, " LEN_REG "\n\t"
"1:\n\t"
"cmp $64, " LEN_REG "\n\t"
"jb copy_bwd63\n\t"
"1:\n\t" /* copy 64-bytes blocks in loop, dest 16-bytes aligned */
"sub $64, " SRC_REG "\n\t"
"sub $64, " DEST_REG "\n\t"
"movdqu 0x00(" SRC_REG "), %xmm0\n\t"
"movdqu 0x10(" SRC_REG "), %xmm1\n\t"
"movdqu 0x20(" SRC_REG "), %xmm2\n\t"
"movdqu 0x30(" SRC_REG "), %xmm3\n\t"
"movdqa %xmm0, 0x00(" DEST_REG ")\n\t"
"movdqa %xmm1, 0x10(" DEST_REG ")\n\t"
"movdqa %xmm2, 0x20(" DEST_REG ")\n\t"
"movdqa %xmm3, 0x30(" DEST_REG ")\n\t"
"sub $64, " LEN_REG "\n\t"
"cmp $64, " LEN_REG "\n\t"
"jae 1b\n\t"
"copy_bwd63:\n\t" /* copy last 63 bytes, dest 16-bytes aligned */
"mov " LEN_REG ", " TMP_REG "\n\t"
"and $15, " LEN_REG "\n\t"
"shr $5, " TMP_REG "\n\t"
"jnc 1f\n\t"
"sub $16, " SRC_REG "\n\t"
"sub $16, " DEST_REG "\n\t"
"movdqu (" SRC_REG "), %xmm0\n\t"
"movdqa %xmm0, (" DEST_REG ")\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc copy_bwd15\n\t"
"sub $32, " SRC_REG "\n\t"
"sub $32, " DEST_REG "\n\t"
"movdqu 0x00(" SRC_REG "), %xmm0\n\t"
"movdqu 0x10(" SRC_REG "), %xmm1\n\t"
"movdqa %xmm0, 0x00(" DEST_REG ")\n\t"
"movdqa %xmm1, 0x10(" DEST_REG ")\n\t"
"copy_bwd15:\n\t" /* copy last 15 bytes, dest 4-bytes aligned */
"mov " LEN_REG ", " TMP_REG "\n\t"
"and $3, " LEN_REG "\n\t"
"shr $3, " TMP_REG "\n\t"
"jnc 1f\n\t"
"sub $4, " SRC_REG "\n\t"
"sub $4, " DEST_REG "\n\t"
"movl (" SRC_REG "), %eax\n\t"
"movl %eax, (" DEST_REG ")\n\t"
"1:\n\t"
"shr $1, " TMP_REG "\n\t"
"jnc copy_bwd3\n\t"
"sub $8, " SRC_REG "\n\t"
"sub $8, " DEST_REG "\n\t"
"movl 4(" SRC_REG "), %eax\n\t"
"movl %eax, 4(" DEST_REG ")\n\t"
"movl (" SRC_REG "), %eax\n\t"
"movl %eax, (" DEST_REG ")\n\t"
"copy_bwd3:\n\t" /* copy last 3 bytes */
"shr $1, " LEN_REG "\n\t"
"jnc 1f\n\t"
"dec " SRC_REG "\n\t"
"dec " DEST_REG "\n\t"
"movb (" SRC_REG "), %al\n\t"
"movb %al, (" DEST_REG ")\n\t"
"1:\n\t"
"shr $1, " LEN_REG "\n\t"
"jnc 1f\n\t"
"movw -2(" SRC_REG "), %ax\n\t"
"movw %ax, -2(" DEST_REG ")\n\t"
"1:\n\t"
MEMMOVE_CLEANUP
"ret" )
#endif
/*********************************************************************
* memmove (MSVCRT.@)
*/
#ifdef WORDS_BIGENDIAN
# define MERGE(w1, sh1, w2, sh2) ((w1 << sh1) | (w2 >> sh2))
#else
# define MERGE(w1, sh1, w2, sh2) ((w1 >> sh1) | (w2 << sh2))
#endif
void * __cdecl memmove(void *dst, const void *src, size_t n)
{
#ifdef __x86_64__
return sse2_memmove(dst, src, n);
#else
unsigned char *d = dst;
const unsigned char *s = src;
int sh1;
#ifdef __i386__
if (sse2_supported)
return sse2_memmove(dst, src, n);
#endif
if (!n) return dst;
if ((size_t)dst - (size_t)src >= n)
{
for (; (size_t)d % sizeof(size_t) && n; n--) *d++ = *s++;
sh1 = 8 * ((size_t)s % sizeof(size_t));
if (!sh1)
{
while (n >= sizeof(size_t))
{
*(size_t*)d = *(size_t*)s;
s += sizeof(size_t);
d += sizeof(size_t);
n -= sizeof(size_t);
}
}
else if (n >= 2 * sizeof(size_t))
{
int sh2 = 8 * sizeof(size_t) - sh1;
size_t x, y;
s -= sh1 / 8;
x = *(size_t*)s;
do
{
s += sizeof(size_t);
y = *(size_t*)s;
*(size_t*)d = MERGE(x, sh1, y, sh2);
d += sizeof(size_t);
s += sizeof(size_t);
x = *(size_t*)s;
*(size_t*)d = MERGE(y, sh1, x, sh2);
d += sizeof(size_t);
n -= 2 * sizeof(size_t);
} while (n >= 2 * sizeof(size_t));
s += sh1 / 8;
}
while (n--) *d++ = *s++;
return dst;
}
else
{
d += n;
s += n;
for (; (size_t)d % sizeof(size_t) && n; n--) *--d = *--s;
sh1 = 8 * ((size_t)s % sizeof(size_t));
if (!sh1)
{
while (n >= sizeof(size_t))
{
s -= sizeof(size_t);
d -= sizeof(size_t);
*(size_t*)d = *(size_t*)s;
n -= sizeof(size_t);
}
}
else if (n >= 2 * sizeof(size_t))
{
int sh2 = 8 * sizeof(size_t) - sh1;
size_t x, y;
s -= sh1 / 8;
x = *(size_t*)s;
do
{
s -= sizeof(size_t);
y = *(size_t*)s;
d -= sizeof(size_t);
*(size_t*)d = MERGE(y, sh1, x, sh2);
s -= sizeof(size_t);
x = *(size_t*)s;
d -= sizeof(size_t);
*(size_t*)d = MERGE(x, sh1, y, sh2);
n -= 2 * sizeof(size_t);
} while (n >= 2 * sizeof(size_t));
s += sh1 / 8;
}
while (n--) *--d = *--s;
}
return dst;
#endif
}
#undef MERGE
/*********************************************************************
* memcpy (MSVCRT.@)
*/
void * __cdecl memcpy(void *dst, const void *src, size_t n)
{
return memmove(dst, src, n);
}
/*********************************************************************
* memset (MSVCRT.@)
*/
void* __cdecl memset(void *dst, int c, size_t n)
{
volatile unsigned char *d = dst; /* avoid gcc optimizations */
while (n--) *d++ = c;
return dst;
}
/*********************************************************************
* strchr (MSVCRT.@)
*/
char* __cdecl strchr(const char *str, int c)
{
do
{
if (*str == (char)c) return (char*)str;
} while (*str++);
return NULL;
}
/*********************************************************************
* strrchr (MSVCRT.@)
*/
char* __cdecl strrchr(const char *str, int c)
{
char *ret = NULL;
do { if (*str == (char)c) ret = (char*)str; } while (*str++);
return ret;
}
/*********************************************************************
* memchr (MSVCRT.@)
*/
void* __cdecl memchr(const void *ptr, int c, size_t n)
{
const unsigned char *p = ptr;
for (p = ptr; n; n--, p++) if (*p == (unsigned char)c) return (void *)(ULONG_PTR)p;
return NULL;
}
/*********************************************************************
* strcmp (MSVCRT.@)
*/
int __cdecl strcmp(const char *str1, const char *str2)
{
while (*str1 && *str1 == *str2) { str1++; str2++; }
if ((unsigned char)*str1 > (unsigned char)*str2) return 1;
if ((unsigned char)*str1 < (unsigned char)*str2) return -1;
return 0;
}
/*********************************************************************
* strncmp (MSVCRT.@)
*/
int __cdecl strncmp(const char *str1, const char *str2, size_t len)
{
if (!len) return 0;
while (--len && *str1 && *str1 == *str2) { str1++; str2++; }
return (unsigned char)*str1 - (unsigned char)*str2;
}
/*********************************************************************
* _strnicmp_l (MSVCRT.@)
*/
int __cdecl _strnicmp_l(const char *s1, const char *s2,
size_t count, _locale_t locale)
{
pthreadlocinfo locinfo;
int c1, c2;
if(s1==NULL || s2==NULL)
return _NLSCMPERROR;
if(!count)
return 0;
if(!locale)
locinfo = get_locinfo();
else
locinfo = locale->locinfo;
if(!locinfo->lc_handle[LC_CTYPE])
{
do {
if ((c1 = *s1++) >= 'A' && c1 <= 'Z')
c1 -= 'A' - 'a';
if ((c2 = *s2++) >= 'A' && c2 <= 'Z')
c2 -= 'A' - 'a';
}while(--count && c1 && c1==c2);
return c1-c2;
}
do {
c1 = _tolower_l((unsigned char)*s1++, locale);
c2 = _tolower_l((unsigned char)*s2++, locale);
}while(--count && c1 && c1==c2);
return c1-c2;
}
/*********************************************************************
* _stricmp_l (MSVCRT.@)
*/
int __cdecl _stricmp_l(const char *s1, const char *s2, _locale_t locale)
{
return _strnicmp_l(s1, s2, -1, locale);
}
/*********************************************************************
* _strnicmp (MSVCRT.@)
*/
int __cdecl _strnicmp(const char *s1, const char *s2, size_t count)
{
return _strnicmp_l(s1, s2, count, NULL);
}
/*********************************************************************
* _stricmp (MSVCRT.@)
*/
int __cdecl _stricmp(const char *s1, const char *s2)
{
return _strnicmp_l(s1, s2, -1, NULL);
}
/*********************************************************************
* strstr (MSVCRT.@)
*/
char* __cdecl strstr(const char *haystack, const char *needle)
{
size_t i, j, len, needle_len, lps_len;
BYTE lps[256];
needle_len = strlen(needle);
if (!needle_len) return (char*)haystack;
lps_len = needle_len > ARRAY_SIZE(lps) ? ARRAY_SIZE(lps) : needle_len;
lps[0] = 0;
len = 0;
i = 1;
while (i < lps_len)
{
if (needle[i] == needle[len]) lps[i++] = ++len;
else if (len) len = lps[len-1];
else lps[i++] = 0;
}
i = j = 0;
while (haystack[i])
{
while (j < lps_len && haystack[i] && haystack[i] == needle[j])
{
i++;
j++;
}
if (j == needle_len) return (char*)haystack + i - j;
else if (j)
{
if (j == ARRAY_SIZE(lps) && !strncmp(haystack + i, needle + j, needle_len - j))
return (char*)haystack + i - j;
j = lps[j-1];
}
else if (haystack[i]) i++;
}
return NULL;
}
/*********************************************************************
* _memicmp_l (MSVCRT.@)
*/
int __cdecl _memicmp_l(const void *v1, const void *v2, size_t len, _locale_t locale)
{
const char *s1 = v1, *s2 = v2;
int ret = 0;
#if _MSVCR_VER == 0 || _MSVCR_VER >= 80
if (!s1 || !s2)
{
if (len)
MSVCRT_INVALID_PMT(NULL, EINVAL);
return len ? _NLSCMPERROR : 0;
}
#endif
while (len--)
{
if ((ret = _tolower_l(*s1, locale) - _tolower_l(*s2, locale)))
break;
s1++;
s2++;
}
return ret;
}
/*********************************************************************
* _memicmp (MSVCRT.@)
*/
int __cdecl _memicmp(const void *s1, const void *s2, size_t len)
{
return _memicmp_l(s1, s2, len, NULL);
}
/*********************************************************************
* strcspn (MSVCRT.@)
*/
size_t __cdecl strcspn(const char *str, const char *reject)
{
BOOL rejects[256];
const char *p;
memset(rejects, 0, sizeof(rejects));
p = reject;
while(*p)
{
rejects[(unsigned char)*p] = TRUE;
p++;
}
p = str;
while(*p && !rejects[(unsigned char)*p]) p++;
return p - str;
}
/*********************************************************************
* strpbrk (MSVCRT.@)
*/
char* __cdecl strpbrk(const char *str, const char *accept)
{
for (; *str; str++) if (strchr( accept, *str )) return (char*)str;
return NULL;
}
/*********************************************************************
* __strncnt (MSVCRT.@)
*/
size_t __cdecl __strncnt(const char *str, size_t size)
{
size_t ret = 0;
#if _MSVCR_VER >= 140
while (*str++ && size--)
#else
while (size-- && *str++)
#endif
{
ret++;
}
return ret;
}
#ifdef _CRTDLL
/*********************************************************************
* _strdec (CRTDLL.@)
*/
char * CDECL _strdec(const char *str1, const char *str2)
{
return (char *)(str2 - 1);
}
/*********************************************************************
* _strinc (CRTDLL.@)
*/
char * CDECL _strinc(const char *str)
{
return (char *)(str + 1);
}
/*********************************************************************
* _strnextc (CRTDLL.@)
*/
unsigned int CDECL _strnextc(const char *str)
{
return (unsigned char)str[0];
}
/*********************************************************************
* _strninc (CRTDLL.@)
*/
char * CDECL _strninc(const char *str, size_t len)
{
return (char *)(str + len);
}
/*********************************************************************
* _strspnp (CRTDLL.@)
*/
char * CDECL _strspnp( const char *str1, const char *str2)
{
str1 += strspn( str1, str2 );
return *str1 ? (char*)str1 : NULL;
}
#endif
Reference in a new issue View git blame Copy permalink