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

ChangeLog 2001-01-17 UTC+0100

Browse Source
This commit is contained in:
Ryszard Glab
2001-01-17 20:25:50 +00:00
parent 4a22bc5736
commit 976e19a3a4
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2001-01-17 21:45 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/vm.estack.c
*fixed initialization of items during the stack reallocation
*STACK_* constants can be defined using a compiler
command line
2001-01-16 22:15 GMT+1 JFL (Mafact) <jfl@mafact.com>
*harbour/makefile.vc
*harbour/source/compiler/genobj32.c

10
harbour/source/vm/estack.c
View File

@@ -39,8 +39,12 @@
#include "hbapierr.h"
/* ------------------------------- */
#define STACK_INITHB_ITEMS 2000
#define STACK_EXPANDHB_ITEMS 200
#if !defined( STACK_INITHB_ITEMS )
#define STACK_INITHB_ITEMS 200
#endif
#if !defined( STACK_EXPANDHB_ITEMS )
#define STACK_EXPANDHB_ITEMS 20
#endif
HB_STACK hb_stack;
/* ------------------------------- */
@@ -103,7 +107,7 @@ void hb_stackPush( void )
hb_stack.pPos = hb_stack.pItems + CurrIndex;
hb_stack.pBase = hb_stack.pItems + BaseIndex;
hb_stack.wItems += STACK_EXPANDHB_ITEMS;
for( i=CurrIndex; i < hb_stack.wItems; ++i )
for( i=CurrIndex + 1; i < hb_stack.wItems; ++i )
hb_stack.pItems[ i ] = (HB_ITEM *) hb_xgrab( sizeof( HB_ITEM ) );
/* hb_stackDispLocal(); */
}