19990816-15:30 GMT+1

harbour/ChangeLog

@@ -1,3 +1,8 @@
+19990816-15:30 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/rtl/errorapi.c
+    ! Fixed hb_errLaunch() so that it will handle error handler return
+      values correctly. NOTEs added about this.
+
 19990816-13:30 CET Eddie Runia <eddie@runia.com>
   * source/compiler/harbour.y
     EndProc error resolved.

harbour/source/rtl/errorapi.c

@@ -59,17 +59,21 @@ WORD hb_errLaunch( PHB_ITEM pError )
          exit( 1 ); /* TODO: quit correctly */
       }
 
+      /* NOTE: This must be called before the hb_vm*() calls */
+      uiFlags = hb_errGetFlags( pError );
+
       hb_vmPushSymbol( &symEval );
       hb_vmPush( &errorBlock );
       hb_vmPush( pError );
       hb_vmDo( 1 );
 
+      /* NOTE: Don't make any hb_vm*() calls here, since they may screw up */
+      /*       the stack.return value */
+
       /* TODO: Detect these properly */
       bBreak = FALSE;
       nSequenceLevel = 0;
 
-      uiFlags = hb_errGetFlags( pError );
-
       if ( bBreak )
       {
          if ( nSequenceLevel )