From d916e80ea2aa4c1e1e620a0394b037fd7a081eb9 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Sat, 16 Jul 2011 12:02:27 +0000 Subject: [PATCH] 2011-07-16 14:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbct/numbase.c * casting to pacify warning --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbct/numbase.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d5ebbbef9a..15323021b5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2011-07-16 14:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/hbct/numbase.c + * casting to pacify warning + 2011-07-16 13:51 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/utils/hbtest/rt_str.prg ! disabled workaround for 64 bit [U]LONG values in Win64 builds. diff --git a/harbour/contrib/hbct/numbase.c b/harbour/contrib/hbct/numbase.c index 9a9855c77c..42460c73d8 100644 --- a/harbour/contrib/hbct/numbase.c +++ b/harbour/contrib/hbct/numbase.c @@ -112,7 +112,7 @@ HB_FUNC( CTON ) hb_retnint( ( HB_U32 ) nValue ); } else if( ( HB_MAXINT ) nValue < 0 ) - hb_retnd( nValue ); + hb_retnd( ( double ) nValue ); else hb_retnint( nValue ); #endif