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

2006-03-28 17:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/hvm.c
    * warnings cleanup
This commit is contained in:
Przemyslaw Czerpak
2006-03-28 15:26:39 +00:00
parent 7864d83543
commit de066c0455
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/pp/ppcore.c
*fixed declaration of hb_pp_StreamBlock
* source/pp/ppcore.c
* added two guards for buffer overflow

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

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