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

win32: long double as distinct C-type

Browse Source 
On windows. there is no long double really IOW it is the
same as double.  However setting the VT_LONG flag in
combination with VT_DOUBLE allows to keep track of the
original type for the purpose of '_Generic() or more
accurate type warnings.
This commit is contained in:
grischka 2020-02-23 00:11:03 +01:00
parent d019586378
commit 6696da2f61
3 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tccgen.c
View File

@ -3244,7 +3244,8 @@ static void type_to_str(char *buf, int buf_size,
goto add_tstr; goto add_tstr;
case VT_DOUBLE: case VT_DOUBLE:
tstr = "double"; tstr = "double";
goto add_tstr; if (!(t & VT_LONG))
goto add_tstr;
case VT_LDOUBLE: case VT_LDOUBLE:
tstr = "long double"; tstr = "long double";
add_tstr: add_tstr:
@ -4589,7 +4590,7 @@ the_end:
t |= LONG_SIZE == 8 ? VT_LLONG : VT_INT; t |= LONG_SIZE == 8 ? VT_LLONG : VT_INT;
#ifdef TCC_TARGET_PE #ifdef TCC_TARGET_PE
if (bt == VT_LDOUBLE) if (bt == VT_LDOUBLE)
t = (t & ~(VT_BTYPE|VT_LONG)) | VT_DOUBLE; t = (t & ~(VT_BTYPE|VT_LONG)) | (VT_DOUBLE|VT_LONG);
#endif #endif
type->t = t; type->t = t;
return type_found; return type_found;

10
tests/tests2/60_errors_and_warnings.c
View File

@ -308,5 +308,15 @@ void f2() {
struct yyy y, *yy; struct yyy y, *yy;
struct zzz { int z; } z, *zz; struct zzz { int z; } z, *zz;
/******************************************************************/
#elif defined test_long_double_type_for_win32
int main()
{
double *a = 0;
long double *b = a;
int n = _Generic(*a, double:0, long double:1);
}
/******************************************************************/ /******************************************************************/
#endif #endif

3
tests/tests2/60_errors_and_warnings.expect
View File

@ -147,3 +147,6 @@ bar : 3 ; 3
60_errors_and_warnings.c:286: error: incompatible types for redefinition of 'xxx' 60_errors_and_warnings.c:286: error: incompatible types for redefinition of 'xxx'
[test_var_4] [test_var_4]
[test_long_double_type_for_win32]
60_errors_and_warnings.c:317: warning: assignment from incompatible pointer type