From de066c045597d0357f30affe50586549d4ec9856 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 28 Mar 2006 15:26:39 +0000 Subject: [PATCH] 2006-03-28 17:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/vm/hvm.c * warnings cleanup --- harbour/ChangeLog | 4 ++++ harbour/source/vm/hvm.c | 12 +++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 70c17c4ed6..c887edf83e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,10 @@ For example: 2002-12-01 13:30 UTC+0100 Foo Bar */ + * source/pp/ppcore.c + + *fixed declaration of hb_pp_StreamBlock + * source/pp/ppcore.c * added two guards for buffer overflow diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index f83db0174f..07811e41be 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -3691,10 +3691,10 @@ static void hb_vmArrayGen( ULONG ulElements ) /* generates an ulElements Array a /* move items from HVM stack to created array */ for( ulPos = 0; ulPos < ulElements; ulPos++ ) hb_itemMove( pArray->item.asArray.value->pItems + ulPos, - hb_stackItemFromTop( ( signed ) ( ulPos - ulElements - 1 ) ) ); + hb_stackItemFromTop( ( int ) ( ulPos - ulElements - 1 ) ) ); /* move the new array to position of first parameter */ - hb_itemMove( hb_stackItemFromTop( -ulElements - 1 ), pArray ); + hb_itemMove( hb_stackItemFromTop( ( int ) ( -ulElements - 1 ) ), pArray ); /* decrease the stack counter - all items are NIL */ hb_stackDecrease( ulElements ); @@ -7334,14 +7334,16 @@ HB_FUNC( __OPGETPRF ) /* profiler: It returns an array with an opcode called and ULONG ulOpcode = hb_parnl( 1 ); hb_reta( 2 ); - hb_stornl( 0, -1, 1 ); - hb_stornl( 0, -1, 2 ); - if( ulOpcode < HB_P_LAST_PCODE ) { hb_stornl( hb_ulOpcodesCalls[ ulOpcode ], -1, 1 ); hb_stornl( hb_ulOpcodesTime[ ulOpcode ], -1, 2 ); } + else + { + hb_stornl( 0, -1, 1 ); + hb_stornl( 0, -1, 2 ); + } }