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

2004-07-12 17:19 UTC-0800 Luis Krause Mantilla

Browse Source
This commit is contained in:
Luis Krause
2004-07-13 00:20:53 +00:00
parent 143a231f09
commit 3b98cb51c6
3 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-07-12 17:19 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
* source/rdd/dbcmd.c
! fixed Clipper compatibility bug reported by Serge Jakimoff
* source/rtl/minmax.c
! Fixed r/t error when Min() and Max() received logical values
to have Clipper compatibility
2004-07-09 12:15 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
* include/hbapi.h
* source/vm/codebloc.c

9
harbour/source/rdd/dbcmd.c
View File

@@ -1204,14 +1204,11 @@ HB_FUNC( __DBCONTINUE )
return;
( ( AREAP ) s_pCurrArea->pArea )->fFound = FALSE;
SELF_SKIP( ( AREAP ) s_pCurrArea->pArea, 1 );
if( ( ( AREAP ) s_pCurrArea->pArea )->fEof )
return;
( ( AREAP ) s_pCurrArea->pArea )->fFound = hb_itemGetL( hb_vmEvalBlock( ( ( AREAP ) s_pCurrArea->pArea )->dbsi.itmCobFor ) );
while( !( ( AREAP ) s_pCurrArea->pArea )->fEof && !( ( AREAP ) s_pCurrArea->pArea )->fFound )
while( !( ( AREAP ) s_pCurrArea->pArea )->fFound )
{
SELF_SKIP( ( AREAP ) s_pCurrArea->pArea, 1 );
if( ( ( AREAP ) s_pCurrArea->pArea )->fEof )
return;
( ( AREAP ) s_pCurrArea->pArea )->fFound = hb_itemGetL( hb_vmEvalBlock( ( ( AREAP ) s_pCurrArea->pArea )->dbsi.itmCobFor ) );
}
}

14
harbour/source/rtl/minmax.c
View File

@@ -96,6 +96,13 @@ HB_FUNC( MAX )
hb_retni( i1 >= i2 ? i1 : i2 );
}
}
else if( HB_IS_LOGICAL( p1 ) && HB_IS_LOGICAL( p2 ) )
{
BOOL b1 = hb_itemGetL( p1 );
BOOL b2 = hb_itemGetL( p2 );
hb_retl( b1 >= b2 ? b1 : b2 );
}
else if( HB_IS_DATE( p1 ) && HB_IS_DATE( p2 ) )
{
char szDate[ 9 ];
@@ -148,6 +155,13 @@ HB_FUNC( MIN )
hb_retni( i1 <= i2 ? i1 : i2 );
}
}
else if( HB_IS_LOGICAL( p1 ) && HB_IS_LOGICAL( p2 ) )
{
BOOL b1 = hb_itemGetL( p1 );
BOOL b2 = hb_itemGetL( p2 );
hb_retl( b1 <= b2 ? b1 : b2 );
}
else if( HB_IS_DATE( p1 ) && HB_IS_DATE( p2 ) )
{
char szDate[ 9 ];