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

2008-01-14 12:28 UTC+0100 Miguel Angel Marchuet Frutos <miguelangel@marchuet.net>

Browse Source 
* source/vm/extend.c
    * Added conversion from logical params in hb_par* functions.
      ( thks to Juan Gálvez )
This commit is contained in:
Miguel Angel Marchuet Frutos
2008-01-15 11:33:42 +00:00
parent ad374294bd
commit 9fc3562477
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-01-14 12:28 UTC+0100 Miguel Angel Marchuet Frutos <miguelangel@marchuet.net>
* source/vm/extend.c
* Added conversion from logical params in hb_par* functions.
( thks to Juan Gálvez )
2008-01-15 10:31 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbdefs.h
! do not define [U]LONGLONG when HB_DONT_DEFINE_BASIC_TYPES macro

10
harbour/source/vm/extend.c
View File

@@ -434,6 +434,8 @@ HB_EXPORT double hb_parnd( int iParam, ... )
return ( double ) pItem->item.asInteger.value;
else if( HB_IS_LONG( pItem ) )
return ( double ) pItem->item.asLong.value;
else if( HB_IS_LOGICAL( pItem ) )
return ( double ) pItem->item.asLogical.value;
else if( HB_IS_ARRAY( pItem ) )
{
va_list va;
@@ -467,6 +469,8 @@ HB_EXPORT int hb_parni( int iParam, ... )
return ( int ) pItem->item.asLong.value;
else if( HB_IS_DOUBLE( pItem ) )
return ( int ) pItem->item.asDouble.value;
else if( HB_IS_LOGICAL( pItem ) )
return ( int ) pItem->item.asLogical.value;
else if( HB_IS_ARRAY( pItem ) )
{
va_list va;
@@ -506,6 +510,8 @@ HB_EXPORT long hb_parnl( int iParam, ... )
#endif
else if( HB_IS_DATE( pItem ) )
return ( long ) pItem->item.asDate.value;
else if( HB_IS_LOGICAL( pItem ) )
return ( long ) pItem->item.asLogical.value;
else if( HB_IS_ARRAY( pItem ) )
{
va_list va;
@@ -546,6 +552,8 @@ HB_EXPORT LONGLONG hb_parnll( int iParam, ... )
#endif
else if( HB_IS_DATE( pItem ) )
return ( LONGLONG ) pItem->item.asDate.value;
else if( HB_IS_LOGICAL( pItem ) )
return ( LONGLONG ) pItem->item.asLogical.value;
else if( HB_IS_ARRAY( pItem ) )
{
va_list va;
@@ -586,6 +594,8 @@ HB_EXPORT HB_LONG hb_parnint( int iParam, ... )
#endif
else if( HB_IS_DATE( pItem ) )
return ( HB_LONG ) pItem->item.asDate.value;
else if( HB_IS_LOGICAL( pItem ) )
return ( HB_LONG ) pItem->item.asLogical.value;
else if( HB_IS_ARRAY( pItem ) )
{
va_list va;