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

2006-07-25 12:41 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbstack.h
  * harbour/source/vm/hvm.c
    ! fixed typo in hb_stackWithObjectOffset() macro definition
This commit is contained in:
Przemyslaw Czerpak
2006-07-25 10:42:30 +00:00
parent 46359c10a2
commit 084842364e
3 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-07-25 12:41 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbstack.h
* harbour/source/vm/hvm.c
! fixed typo in hb_stackWithObjectOffset() macro definition
2006-07-25 11:45 UTC+0100 Marek Paliwoda (mpaliwoda at interia pl)
* harbour/makefile.bc
* harbour/makefile.vc
! Fixed INSTALL rule.
! Disabled generic library build rule which might
@@ -39,7 +46,7 @@
* harbour/TODO
- removed note about hb_objGetMethod() - it's already addressed
* fixed to be more Clipper compatible
2006-07-24 13:50 UTC+0100 Ryszard Glab <rglab//imid.med.pl>
* source/pp/ppcore.c
* source/pp/pptable.c

2
harbour/include/hbstack.h
View File

@@ -106,7 +106,7 @@ typedef struct
#define hb_stackSetStaticsBase( n ) do { hb_stack.iStatics = ( n ); } while ( 0 )
#define hb_stackItemBasePtr( ) ( &hb_stack.pItems )
#define hb_stackWithObjectItem( ) ( hb_stack.lWithObject ? * ( hb_stack.pItems + hb_stack.lWithObject ) : NULL )
#define hb_stackWithObjectOffset( n ) ( hb_stack.lWithObject )
#define hb_stackWithObjectOffset( ) ( hb_stack.lWithObject )
#define hb_stackWithObjectSetOffset( n ) do { hb_stack.lWithObject = ( n ); } while( 0 )
#define hb_stackAllocItem( ) ( ( ++hb_stack.pPos == hb_stack.pEnd ? \

6
harbour/source/vm/hvm.c
View File

@@ -7865,12 +7865,6 @@ HB_EXPORT void hb_xvmWithObjectMessage( PHB_SYMB pSymbol )
hb_vmPush( hb_stackWithObjectItem() );
}
HB_EXPORT LONG hb_xvmWithObjectBase( LONG * plWithObjectBase )
{
if( plWithObjectBase )
hb_stackWithObjectSetOffset( *plWithObjectBase );
return hb_stackWithObjectOffset();
}
/* ------------------------------------------------------------------------ */
/* The debugger support functions */
/* ------------------------------------------------------------------------ */