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

2008-07-07 19:32 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* 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.
This commit is contained in:
Viktor Szakats
2008-07-07 17:33:41 +00:00
parent 7ff4bf1de7
commit 48d11d426d
3 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
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,

10
harbour/contrib/xhb/xhbfunc.c
View File

@@ -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 );

11
harbour/source/vm/arrayshb.c
View File

@@ -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] */