From c40da0b34be6557d1fca246b95d381b11ff3a0fd Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Sat, 20 Nov 2010 11:58:53 +0000 Subject: [PATCH] 2010-11-20 12:58 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/common/expropt2.c * casting --- harbour/ChangeLog | 4 ++++ harbour/src/common/expropt2.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6a26f9b690..ca4ce52654 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2010-11-20 12:58 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/src/common/expropt2.c + * casting + 2010-11-20 12:14 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * src/rtl/sha1hmac.h * src/rtl/sha1hmac.c diff --git a/harbour/src/common/expropt2.c b/harbour/src/common/expropt2.c index 8f73687c9e..680d74ed31 100644 --- a/harbour/src/common/expropt2.c +++ b/harbour/src/common/expropt2.c @@ -167,12 +167,12 @@ HB_EXPR_PTR hb_compExprReduceMod( HB_EXPR_PTR pSelf, HB_COMP_DECL ) double dValue, dDivisor; dDivisor = pRight->value.asNum.NumType == HB_ET_LONG ? - pRight->value.asNum.val.l : + ( double ) pRight->value.asNum.val.l : pRight->value.asNum.val.d; if( dDivisor ) { dValue = pLeft->value.asNum.NumType == HB_ET_LONG ? - pLeft->value.asNum.val.l : + ( double ) pLeft->value.asNum.val.l : pLeft->value.asNum.val.d; pSelf->value.asNum.val.d = fmod( dValue, dDivisor ); pSelf->value.asNum.bWidth = HB_DEFAULT_WIDTH;