gered/picoc
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

don't use an intermediate value for fp coercion

Browse source
This commit is contained in:
Joseph Poirier 2015-06-14 01:16:34 -05:00
parent c753db4f59
commit cef18ad49e
1 changed files with 8 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
expression.c
View file

@ -276,34 +276,23 @@ unsigned long ExpressionCoerceUnsignedInteger(struct Value *Val)
double ExpressionCoerceFP(struct Value *Val)
{
int IntVal;
unsigned UnsignedVal;
switch (Val->Typ->Base) {
case TypeInt:
IntVal = Val->Val->Integer;
return (double)IntVal;
return (double)Val->Val->Integer;
case TypeChar:
IntVal = Val->Val->Character;
return (double)IntVal;
return (double)Val->Val->Character;
case TypeShort:
IntVal = Val->Val->ShortInteger;
return (double)IntVal;
return (double)Val->Val->ShortInteger;
case TypeLong:
IntVal = Val->Val->LongInteger;
return (double)IntVal;
return (double)Val->Val->LongInteger;
case TypeUnsignedInt:
UnsignedVal = Val->Val->UnsignedInteger;
return (double)UnsignedVal;
return (double)Val->Val->UnsignedInteger;
case TypeUnsignedShort:
UnsignedVal = Val->Val->UnsignedShortInteger;
return (double)UnsignedVal;
return (double)Val->Val->UnsignedShortInteger;
case TypeUnsignedLong:
UnsignedVal = Val->Val->UnsignedLongInteger;
return (double)UnsignedVal;
return (double)Val->Val->UnsignedLongInteger;
case TypeUnsignedChar:
UnsignedVal = Val->Val->UnsignedCharacter;
return (double)UnsignedVal;
return (double)Val->Val->UnsignedCharacter;
case TypeFP:
return Val->Val->FP;
default: