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

19991012-16:00 GMT+1

Browse Source
This commit is contained in:
Viktor Szakats
1999-10-12 14:15:42 +00:00
parent 973bc8872f
commit 659796ed28
2 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19991012-16:00 GMT+1 Victor Szel <info@szelvesz.hu>
* source/vm/hvm.c
! hb_vmAnd(), hb_vmOr() - Value substitution on error added to .AND.
and .OR. operators. (mentioned by Jose)
19991012-14:00 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/rtl/dates.c
+ Added support for Windows requirements.

24
harbour/source/vm/hvm.c
View File

@@ -1817,7 +1817,17 @@ static void hb_vmAnd( void )
hb_vmPushLogical( bResult );
}
else
hb_errRT_BASE( EG_ARG, 1078, NULL, ".AND." );
{
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1078, NULL, ".AND." );
if( pResult )
{
hb_stackPop();
hb_stackPop();
hb_vmPush( pResult );
hb_itemRelease( pResult );
}
}
}
static void hb_vmOr( void )
@@ -1833,7 +1843,17 @@ static void hb_vmOr( void )
hb_vmPushLogical( bResult );
}
else
hb_errRT_BASE( EG_ARG, 1079, NULL, ".OR." );
{
PHB_ITEM pResult = hb_errRT_BASE_Subst( EG_ARG, 1079, NULL, ".OR." );
if( pResult )
{
hb_stackPop();
hb_stackPop();
hb_vmPush( pResult );
hb_itemRelease( pResult );
}
}
}
/* ------------------------------- */