fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2004-02-14 03:00 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* makefile.bc
     ! Fixed compilation of dbgbrwsr

   * source/pp/ppcore.c
   * source/rtl/round.c
   * source/rdd/dbfcdx/dbfcdx1.c
     ! Fixed errors when compiled with HB_TRACE

   * source/common/hbffind.c
     * Formatting.
This commit is contained in:
Viktor Szakats
2004-02-14 01:59:19 +00:00
parent a519679af1
commit 8711d6caf8
6 changed files with 44 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/ChangeLog
View File

@@ -8,6 +8,19 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-14 03:00 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* makefile.bc
! Fixed compilation of dbgbrwsr
* source/pp/ppcore.c
* source/rtl/round.c
* source/rdd/dbfcdx/dbfcdx1.c
! Fixed errors when compiled with HB_TRACE
* source/common/hbffind.c
* Formatting.
2004-02-13 23:57 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
+ source/codepage/cdphu852.c
@@ -59,9 +72,9 @@
* souce/rtl/gtapi.c
! hb_gtSetColorStr() removed one suspicious assigment which
showed incompatible with CA-Cl*pper, whete CLR_UNSELECTED
showed incompatible with CA-Cl*pper, where CLR_UNSELECTED
was made equal to CLR_ENHANCED if missing from the color string.
* Using CLR_ constants instead of literals.
* Using HB_CLR_ constants instead of literals.
* source/rtl/tget.prg
! :ColorSpec() method unselected color defaulting fixed.

1
harbour/makefile.bc
View File

@@ -543,6 +543,7 @@ PP_LIB_OBJS = \
#
DEBUG_LIB_OBJS = \
$(OBJ_DIR)\dbgbrwsr.obj \
$(OBJ_DIR)\dbghelp.obj \
$(OBJ_DIR)\dbgmenu.obj \
$(OBJ_DIR)\dbgtmenu.obj \

13
harbour/source/common/hbffind.c
View File

@@ -155,10 +155,13 @@ HB_FILE_VER( "$Id$" )
/* Internal funtion , Convert Windows Error Values to Dos Error Values */
#ifdef HB_OS_WIN_32
int WintoDosError( unsigned long lError)
static int WintoDosError( unsigned long lError)
{
int iReturn;
switch( lError ) {
switch( lError )
{
case ERROR_ALREADY_EXISTS:
iReturn = 5;
break;
@@ -174,10 +177,10 @@ int WintoDosError( unsigned long lError)
case ERROR_INVALID_HANDLE:
iReturn = 6;
break;
default:
iReturn=0;
default:
iReturn = 0;
break;
}
}
return iReturn;
}

2
harbour/source/pp/ppcore.c
View File

@@ -2728,7 +2728,7 @@ static BOOL ScanMacro( char * expreal, int lenitem, int * pNewLen )
BOOL bSmartMacro;
int i, lennew;
HB_TRACE(HB_TR_DEBUG, ("ScanMacro(%s, %d, %p)", expreal, lenreal, pNewLen));
HB_TRACE(HB_TR_DEBUG, ("ScanMacro(%s, %d, %p)", expreal, lenitem, pNewLen));
lennew = lenitem - 1;
bSmartMacro = TRUE;

6
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -4229,7 +4229,7 @@ static ERRCODE hb_cdxSkipUnique( CDXAREAP pArea, LPCDXTAG pTag, BOOL fForward )
{
ERRCODE retval;
HB_TRACE(HB_TR_DEBUG, ("hb_cdxSkipUnique(%p, %ld)", pArea, iDir));
HB_TRACE(HB_TR_DEBUG, ("hb_cdxSkipUnique(%p, %p, %d)", pArea, pTag, (int) fForward));
if ( FAST_GOCOLD( ( AREAP ) pArea ) == FAILURE )
return FAILURE;
@@ -4662,9 +4662,9 @@ static ERRCODE hb_cdxGoTop( CDXAREAP pArea )
/* ( DBENTRYP_BIB ) hb_cdxSeek */
static ERRCODE hb_cdxSeek( CDXAREAP pArea, BOOL fSoftSeek, PHB_ITEM pKeyItm, BOOL fFindLast )
{
LPCDXTAG pTag
LPCDXTAG pTag;
HB_TRACE(HB_TR_DEBUG, ("cdxSeek(%p, %d, %p, %d)", pArea, fSoftSeek, pKeyItm, fFindLast));
HB_TRACE(HB_TR_DEBUG, ("cdxSeek(%p, %d, %p, %d)", pArea, (int) fSoftSeek, pKeyItm, (int) fFindLast));
if ( FAST_GOCOLD( ( AREAP ) pArea ) == FAILURE )
return FAILURE;

32
harbour/source/rtl/round.c
View File

@@ -89,22 +89,22 @@ HB_FUNC( INT )
double hb_numRound( double doValue, int nPrecision )
{
static const double doBase = 10.0f;
double doComplete5, doComplete5i;
HB_TRACE(HB_TR_DEBUG, ("hb_numRound(%lf, %d)", doValue, iPrecision));
doComplete5 = doValue * pow(doBase, (double) (nPrecision + 1));
if(doValue < 0.0f)
doComplete5 -= 5.0f;
else
doComplete5 += 5.0f;
doComplete5 /= doBase;
modf(doComplete5, &doComplete5i);
return doComplete5i / pow(doBase, (double) nPrecision);
static const double doBase = 10.0f;
double doComplete5, doComplete5i;
HB_TRACE(HB_TR_DEBUG, ("hb_numRound(%lf, %d)", doValue, nPrecision));
doComplete5 = doValue * pow( doBase, ( double ) ( nPrecision + 1 ) );
if( doValue < 0.0f )
doComplete5 -= 5.0f;
else
doComplete5 += 5.0f;
doComplete5 /= doBase;
modf( doComplete5, &doComplete5i );
return doComplete5i / pow( doBase, ( double ) nPrecision );
}
HB_FUNC( ROUND )