procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

expr.c (ffeexpr_reduced_ugly2log_): Allow logicals-as-integers under -fugly-logint as arguments of .and., .or., .xor.

Browse source 
2002-05-09  Hassan Aurag  <aurag@cae.com>

	* expr.c (ffeexpr_reduced_ugly2log_): Allow logicals-as-integers
	under -fugly-logint as arguments of .and., .or., .xor.

From-SVN: r53321
This commit is contained in:
Hassan Aurag 2002-05-09 09:11:58 +00:00 • committed by Toon Moene
parent dccfe3d644
commit 0a0576f3f1
2 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/f/ChangeLog
View file

@ -1,3 +1,8 @@
2002-05-09 Hassan Aurag <aurag@cae.com>
* expr.c (ffeexpr_reduced_ugly2log_): Allow logicals-as-integers
under -fugly-logint as arguments of .and., .or., .xor.
2002-05-07 Jan Hubicka <jh@suse.cz>
* target.h (FFETARGET_32bit_longs): Undefine for x86-64.

18
gcc/f/expr.c
View file

@ -11501,6 +11501,24 @@ ffeexpr_reduced_ugly2log_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op,
/* else Leave it alone. */
}
if (lbt == FFEINFO_basictypeLOGICAL)
{
ffebld_set_left (reduced, ffeexpr_convert (ffebld_left (reduced),
l->token, op->token, FFEINFO_basictypeINTEGER,
FFEINFO_kindtypeINTEGERDEFAULT, 0,
FFETARGET_charactersizeNONE,
FFEEXPR_contextLET));
}
if (rbt == FFEINFO_basictypeLOGICAL)
{
ffebld_set_right (reduced, ffeexpr_convert (ffebld_right (reduced),
r->token, op->token, FFEINFO_basictypeINTEGER,
FFEINFO_kindtypeINTEGERDEFAULT, 0,
FFETARGET_charactersizeNONE,
FFEEXPR_contextLET));
}
return reduced;
}