github-repos/tinycc
1
0
Fork 0
mirror of https://github.com/mirror/tinycc.git synced 2024-12-28 04:00:06 +08:00
Code Issues Packages Projects Releases Wiki Activity

win32: treat long double as double

Browse Source
This commit is contained in:
grischka 2009-07-18 22:07:17 +02:00
parent 97738d1ae9
commit 9fda4f4248
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tccgen.c
View File

@ -2527,7 +2527,9 @@ static int parse_btype(CType *type, AttributeDef *ad)
case TOK_LONG: case TOK_LONG:
next(); next();
if ((t & VT_BTYPE) == VT_DOUBLE) { if ((t & VT_BTYPE) == VT_DOUBLE) {
#ifndef TCC_TARGET_PE
t = (t & ~VT_BTYPE) | VT_LDOUBLE; t = (t & ~VT_BTYPE) | VT_LDOUBLE;
#endif
} else if ((t & VT_BTYPE) == VT_LONG) { } else if ((t & VT_BTYPE) == VT_LONG) {
t = (t & ~VT_BTYPE) | VT_LLONG; t = (t & ~VT_BTYPE) | VT_LLONG;
} else { } else {
@ -2544,7 +2546,11 @@ static int parse_btype(CType *type, AttributeDef *ad)
case TOK_DOUBLE: case TOK_DOUBLE:
next(); next();
if ((t & VT_BTYPE) == VT_LONG) { if ((t & VT_BTYPE) == VT_LONG) {
#ifdef TCC_TARGET_PE
t = (t & ~VT_BTYPE) | VT_DOUBLE;
#else
t = (t & ~VT_BTYPE) | VT_LDOUBLE; t = (t & ~VT_BTYPE) | VT_LDOUBLE;
#endif
} else { } else {
u = VT_DOUBLE; u = VT_DOUBLE;
goto basic_type1; goto basic_type1;

10
tccpp.c
View File

@ -1743,9 +1743,14 @@ void parse_number(const char *p)
tokc.f = (float)d; tokc.f = (float)d;
} else if (t == 'L') { } else if (t == 'L') {
ch = *p++; ch = *p++;
#ifdef TCC_TARGET_PE
tok = TOK_CDOUBLE;
tokc.d = d;
#else
tok = TOK_CLDOUBLE; tok = TOK_CLDOUBLE;
/* XXX: not large enough */ /* XXX: not large enough */
tokc.ld = (long double)d; tokc.ld = (long double)d;
#endif
} else { } else {
tok = TOK_CDOUBLE; tok = TOK_CDOUBLE;
tokc.d = d; tokc.d = d;
@ -1794,8 +1799,13 @@ void parse_number(const char *p)
tokc.f = strtof(token_buf, NULL); tokc.f = strtof(token_buf, NULL);
} else if (t == 'L') { } else if (t == 'L') {
ch = *p++; ch = *p++;
#ifdef TCC_TARGET_PE
tok = TOK_CDOUBLE;
tokc.d = strtod(token_buf, NULL);
#else
tok = TOK_CLDOUBLE; tok = TOK_CLDOUBLE;
tokc.ld = strtold(token_buf, NULL); tokc.ld = strtold(token_buf, NULL);
#endif
} else { } else {
tok = TOK_CDOUBLE; tok = TOK_CDOUBLE;
tokc.d = strtod(token_buf, NULL); tokc.d = strtod(token_buf, NULL);