From 48d11d426df4f9ee03d597a1c9a5f28260bc136b Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 7 Jul 2008 17:33:41 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 6 ++++++ harbour/contrib/xhb/xhbfunc.c | 10 ++++++++++ harbour/source/vm/arrayshb.c | 11 ----------- 3 files changed, 16 insertions(+), 11 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 47aaa1cd8b..9e3e64d49d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +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. + 2008-07-07 19:00 UTC+0100 Marek Paliwoda (mpaliwoda at interia pl) * make_xmingwce.mak * Changed the way HB_COMP_PATH, HB_PPGEN_PATH, diff --git a/harbour/contrib/xhb/xhbfunc.c b/harbour/contrib/xhb/xhbfunc.c index fdb9a810bd..ef6368730e 100644 --- a/harbour/contrib/xhb/xhbfunc.c +++ b/harbour/contrib/xhb/xhbfunc.c @@ -122,6 +122,16 @@ HB_FUNC( HB_CHECKSUM ) HB_FUNC_EXEC( HB_ADLER32 ); } +HB_FUNC( HB_ARRAYID ) /* for debugging: returns the array's "address" so dual references to same array can be seen */ +{ + PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY ); + + if( pArray ) + hb_retnl( ( long ) hb_arrayId( pArray ) ); + else + hb_retnl( -1 ); +} + /* Hash utem functions */ HB_FUNC_EXTERN( HB_HASH ); HB_FUNC_EXTERN( HB_HHASKEY ); diff --git a/harbour/source/vm/arrayshb.c b/harbour/source/vm/arrayshb.c index 690b76eaf1..66832cbc20 100644 --- a/harbour/source/vm/arrayshb.c +++ b/harbour/source/vm/arrayshb.c @@ -130,17 +130,6 @@ HB_FUNC( AADD ) hb_errRT_BASE_SubstR( EG_ARG, 1123, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS ); } -HB_FUNC( HB_ARRAYID ) /* for debugging: returns the array's "address" so dual references to same array can be seen */ -{ - PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY ); - - if( pArray ) - hb_retnl( ( long ) hb_arrayId( pArray ) ); - else - hb_retnl( -1 ); -} - - /* NOTE: CA-Cl*pper 5.3 and older will return NIL on bad parameter, 5.3a,b will throw a runtime error. [vszakats] */