6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-03-04 00:30:35 +00:00
Code Issues Projects Releases Wiki Activity

Allow floating point constants to be converted to integer (warning if loss of precision)

Browse Source
This commit is contained in:
bbbradsmith 2023-05-02 23:57:32 -04:00
parent a686d1fa8e
commit 52f0e6a29c
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cc65/typeconv.c
View File

@ -123,6 +123,16 @@ static void DoConversion (ExprDesc* Expr, const Type* NewType)
** to handle sign extension correctly. ** to handle sign extension correctly.
*/ */
/* If this is a floating point constant, convert to integer,
** and warn if precision is discarded.
*/
if (IsClassFloat (OldType) && IsClassInt (NewType)) {
long IVal = (long)Expr->V.FVal.V;
if (Expr->V.FVal.V != FP_D_FromInt(IVal).V)
Warning ("Floating point constant (%f) converted to integer loses precision (%d)",Expr->V.FVal.V,IVal);
Expr->IVal = IVal;
}
/* Check if the new datatype will have a smaller range. If it /* Check if the new datatype will have a smaller range. If it
** has a larger range, things are OK, since the value is ** has a larger range, things are OK, since the value is
** internally already represented by a long. ** internally already represented by a long.