From 2f8ddbd879f91ce7fe78fd88bb0ceb720838e1b5 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 19 Dec 2006 22:23:17 +0000 Subject: [PATCH] 2006-12-19 23:22 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/rdd/dbf1.c ! added missing 'else' and cleaned BCC warnings --- harbour/ChangeLog | 4 ++++ harbour/source/rdd/dbf1.c | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ab5e1c334d..927b8798e5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2006-12-19 23:22 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/rdd/dbf1.c + ! added missing 'else' and cleaned BCC warnings + 2006-12-19 22:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbexprop.h * harbour/source/common/expropt1.c diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c index e41d3ccf30..0cf454166e 100644 --- a/harbour/source/rdd/dbf1.c +++ b/harbour/source/rdd/dbf1.c @@ -1882,6 +1882,7 @@ static ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) lVal = ( HB_LONG ) dVal; if( ! HB_DBL_LIM_INT64( dVal ) ) iSize = 99; + else #ifndef HB_LONG_LONG_OFF iSize = HB_LIM_INT8( lVal ) ? 1 : ( HB_LIM_INT16( lVal ) ? 2 : @@ -1916,7 +1917,9 @@ static ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) else { lVal = ( HB_LONG ) hb_itemGetNInt( pItem ); - dVal = 0.0; +#ifdef HB_LONG_LONG_OFF + dVal = ( double ) lVal; +#endif iSize = HB_LIM_INT8( lVal ) ? 1 : ( HB_LIM_INT16( lVal ) ? 2 : ( HB_LIM_INT24( lVal ) ? 3 :