the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Suppress overflow warning when conversion is an explicit cast

Browse Source
This commit is contained in:
bbbradsmith
2023-05-03 19:42:05 -04:00
parent e3cb8dfb9b
commit 8e75e5b51a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/cc65/typeconv.c
View File

@@ -55,7 +55,7 @@
static void DoConversion (ExprDesc* Expr, const Type* NewType) static void DoConversion (ExprDesc* Expr, const Type* NewType, int Explicit)
/* Emit code to convert the given expression to a new type. */ /* Emit code to convert the given expression to a new type. */
{ {
const Type* OldType; const Type* OldType;
@@ -141,7 +141,7 @@ static void DoConversion (ExprDesc* Expr, const Type* NewType)
} }
} }
if ((OldVal != Expr->IVal) && IS_Get (&WarnConstOverflow)) { if ((OldVal != Expr->IVal) && IS_Get (&WarnConstOverflow) && !Explicit) {
Warning ("Implicit conversion of constant overflows %d-bit destination", NewBits); Warning ("Implicit conversion of constant overflows %d-bit destination", NewBits);
} }
} }
@@ -288,7 +288,7 @@ void TypeConversion (ExprDesc* Expr, const Type* NewType)
/* Both types must be complete */ /* Both types must be complete */
if (!IsIncompleteESUType (NewType) && !IsIncompleteESUType (Expr->Type)) { if (!IsIncompleteESUType (NewType) && !IsIncompleteESUType (Expr->Type)) {
/* Do the actual conversion */ /* Do the actual conversion */
DoConversion (Expr, NewType); DoConversion (Expr, NewType, 0);
} else { } else {
/* We should have already generated error elsewhere so that we /* We should have already generated error elsewhere so that we
** could just silently fail here to avoid excess errors, but to ** could just silently fail here to avoid excess errors, but to
@@ -335,7 +335,7 @@ void TypeCast (ExprDesc* Expr)
ReplaceType (Expr, NewType); ReplaceType (Expr, NewType);
} else if (IsCastType (Expr->Type)) { } else if (IsCastType (Expr->Type)) {
/* Convert the value. The result has always the new type */ /* Convert the value. The result has always the new type */
DoConversion (Expr, NewType); DoConversion (Expr, NewType, 1);
} else { } else {
TypeCompatibilityDiagnostic (NewType, Expr->Type, 1, TypeCompatibilityDiagnostic (NewType, Expr->Type, 1,
"Cast to incompatible type '%s' from '%s'"); "Cast to incompatible type '%s' from '%s'");