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

* source/vm/hvm.c

Browse Source 
! Fixed support for FOR_NEXT with STEP 0
This commit is contained in:
Walter Negro
2002-06-15 16:00:00 +00:00
parent 351aed1c85
commit 7295e200f5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2531,7 +2531,7 @@ static void hb_vmForTest( void ) /* Test to check the end point of the FO
dCurrent = hb_vmPopNumber();
if( dStep > 0 ) /* Positive loop. Use LESS */
if( dStep >= 0 ) /* Positive loop. Use LESS */
hb_vmPushLogical( dCurrent <= dEnd );
else if( dStep < 0 ) /* Negative loop. Use GREATER */
hb_vmPushLogical( dCurrent >= dEnd );
@@ -4706,7 +4706,7 @@ void hb_vmRequestCancel( void )
void hb_vmRequestDebug( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_vmRequestCancel()"));
HB_TRACE(HB_TR_DEBUG, ("hb_vmRequestDebug()"));
s_bDebugRequest = TRUE;
}
@@ -4868,4 +4868,4 @@ HB_FUNC( __OPGETPRF ) /* profiler: It returns an array with an opcode called and
hb_stornl( hb_ulOpcodesCalls[ ulOpcode ], -1, 1 );
hb_stornl( hb_ulOpcodesTime[ ulOpcode ], -1, 2 );
}
}
}