On Mon, 07 Jul 2008, Szakáts Viktor wrote:
Hi Viktor,
> 2008-07-07 19:32 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
> * source/vm/arrayshb.c
> * contrib/xhb/xhbfunc.c
> ! Moved hb_ArrayID() Harbour level function to xhb.lib.
> ; NOTE: This function is not compatible with x64 architecture.
It can be updated for WIN64 (please remember that only WIN64 has 32 bit
LONG type and other x86 based 64bit platforms I know have 64bit LONG type).
It's enopugh to change return value to:
hb_retnint( ( HB_PTR_DIFF ) hb_arrayId( pArray ) );
anyhow over 4 years ago (28 Apr 2004) I've change this function in
xHarbour to return pointer instead of number so now it should look
like:
HB_FUNC( HB_ARRAYID )
{
PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
hb_retptr( pArray ? ( void * ) pArray->item.asArray.value : NULL );
}
This version is xHarbour compatible.
Sorry that I forgot to update it in Harbour but for me it was old obsolete
code.
best regards,
Przemek
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
