Bug en los operadores fwh2409 xharbour 64 bits (solucionado)

[Antonio Linares]

/* converts a numeric to a string with optional width & precision.
This function should be used by any function that wants to format numeric
data for displaying, printing, or putting in a database.

Note: The caller is responsible for calling hb_xfree to free the results
buffer, but ONLY if the return value is not a NULL pointer! (If a NULL
pointer is returned, then there was a conversion error.)
*/
char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )

[Antonio Linares]

Getting closer:

/* converts a numeric to a padded string iSize length and iDec number
of digits after dot.
Note: szResult has to be at least iSize + 1 length.
*/
BOOL hb_itemStrBuf( char * szResult, PHB_ITEM pNumber, int iSize, int iDec )

...

/* Set to asterisks in case of overflow */
if( iPos < 0 )
{
memset( szResult, '*', iSize );
return FALSE;
}

[Antonio Linares]

We have to compare Harbour and xHarbour source code on:

BOOL hb_itemStrBuf( char * szResult, PHB_ITEM pNumber, int iSize, int iDec )

as xHarbour reports the number is NOT finite and thus the "*":

Code: Select all | Expand

function Main()

   Test( 2032212 / 30 * 30, 50, 2 )

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <hbapiitm.h>
#include <stdio.h>

#define HB_FINITE_DBL( d )  ( _finite( d ) != 0 )

HB_FUNC( TEST )
{
   PHB_ITEM pNumber = hb_param( 1, HB_IT_DOUBLE );
   char buffer[ 100 ];
   OutputDebugString( hb_itemStr( hb_param( 1, HB_IT_DOUBLE ), 
                                  hb_param( 2, HB_IT_NUMERIC ), hb_param( 3, HB_IT_NUMERIC ) ) );
   sprintf (buffer, "%i", (int) pNumber->item.asDouble.length );                               
   OutputDebugString( buffer );
   if( HB_FINITE_DBL( hb_parnd( 1 ) ) )
      OutputDebugString( "Finite" );
   else
      OutputDebugString( "Not finite" ); 
}

#pragma ENDDUMP

[Antonio Linares]

Bug solucionado ?

Dear Enrico,

Could you please modify this on xHarbour source code ?
xharbour/source/vm/itemapi.c

on line 1426:

#if defined( __RSXNT__ ) || defined( __EMX__ ) || \
defined( __XCC__ ) || defined( __POCC__ ) || defined( __DMC__ ) || \
defined( HB_OS_HPUX )
# define HB_FINITE_DBL( d ) ( isfinite( d ) != 0 )
#elif defined( __clang__ )
# define HB_FINITE_DBL( d ) ( isfinite( d ) != 0 )
#elif defined( __WATCOMC__ ) || defined( __BORLANDC__ ) || defined( _MSC_VER )
# define HB_FINITE_DBL( d ) ( _finite( d ) != 0 )
#elif defined(__APPLE__)
# define HB_FINITE_DBL( d ) ( isfinite( d ) != 0 )
#elif defined( __GNUC__ ) || defined( __DJGPP__ ) || defined( __MINGW32__ ) || \
defined( __LCC__ )
# define HB_FINITE_DBL( d ) ( finite( d ) != 0 )

Please build xHarbour 64 with this change and lets test your example

[Enrico Maria Giordano]

Yes, thank you!

http://xharbour.org/index.asp?page=down ... naries_win

[leandro]

Antonio y Enrico, como siempre muchas gracias por la ayuda, definitivamente son unos genios, no se que haríamos sin ustedes?