From 7295e200f58e64c26565ac39f9f70dfee6fec024 Mon Sep 17 00:00:00 2001 From: Walter Negro Date: Sat, 15 Jun 2002 16:00:00 +0000 Subject: [PATCH] * source/vm/hvm.c ! Fixed support for FOR_NEXT with STEP 0 --- harbour/source/vm/hvm.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index a3410a1651..bb0e60bd16 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -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 ); } -} \ No newline at end of file +}