From 084842364e693ce156c6a75ddc1d4425fe5026b5 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 25 Jul 2006 10:42:30 +0000 Subject: [PATCH] 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 --- harbour/ChangeLog | 9 ++++++++- harbour/include/hbstack.h | 2 +- harbour/source/vm/hvm.c | 6 ------ 3 files changed, 9 insertions(+), 8 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 708b6f598f..1ac3f7300e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,13 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +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 * source/pp/ppcore.c * source/pp/pptable.c diff --git a/harbour/include/hbstack.h b/harbour/include/hbstack.h index adbdc0e7a0..ef88cb9df8 100644 --- a/harbour/include/hbstack.h +++ b/harbour/include/hbstack.h @@ -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 ? \ diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 8e1175b1a1..7830947bc3 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -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 */ /* ------------------------------------------------------------------------ */