2012-10-06 16:06 UTC+0200 Viktor Szakats (harbour syenar.net)

* src/debug/dbgwa.prg
  * src/rtl/browse.prg
  * src/rtl/dbedit.prg
    % deleted EXIT from SWITCH statements' OTHERWISE branches.
      (it'd be nice if the compiler could ignore these
      automatically - in case it can be solved with low cost)

harbour/ChangeLog

@@ -16,6 +16,14 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-06 16:06 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * src/debug/dbgwa.prg
+  * src/rtl/browse.prg
+  * src/rtl/dbedit.prg
+    % deleted EXIT from SWITCH statements' OTHERWISE branches.
+      (it'd be nice if the compiler could ignore these
+      automatically - in case it can be solved with low cost)
+
 2012-10-06 15:54 UTC+0200 Viktor Szakats (vszakats syenar.net)
   * extras/gtwvw/tests/prog2.prg
   * extras/gtwvw/tests/wvwtest9.prg

harbour/src/debug/dbgwa.prg

@@ -354,7 +354,6 @@ STATIC FUNCTION DbfInfo( aInfo )
          EXIT
       OTHERWISE
          cValue := "Error"
-         EXIT
       ENDSWITCH
 
       AAdd( aInfo, Space( 8 ) + PadR( FieldName( nFor ), 10 ) + " = " + PadR( cValue, 17 ) )

harbour/src/rtl/browse.prg

@@ -67,7 +67,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
    ENDIF
 
    lAppend := lKeyPressed := lRefresh := .F.
-   lContinue := .T.
 
    IF PCount() < 4
       nTop    := 1
@@ -107,6 +106,8 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
       lKeyPressed := .T.
    ENDIF
 
+   lContinue := .T.
+
    DO WHILE lContinue
 
       DO WHILE ! lKeyPressed .AND. ! oBrw:Stabilize()
@@ -273,7 +274,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
             nKey := K_ENTER
             lKeyPressed := .T.
          ENDIF
-         EXIT
       ENDSWITCH
 
       IF lRefresh
@@ -393,7 +393,6 @@ STATIC FUNCTION ExitKey( lAppend )
    OTHERWISE
       nKey := iif( nKey == K_ENTER .OR. ;
                    !( hb_keyChar( nKey ) == "" ), K_RIGHT, 0 )
-      EXIT
    ENDSWITCH
 
    RETURN nKey

harbour/src/rtl/dbedit.prg

@@ -276,7 +276,6 @@ FUNCTION DBEDIT( nTop, nLeft, nBottom, nRight, ;
          OTHERWISE
             lContinue := CallUser( oBrowse, xUserFunc, nKey, @lAppend, @lFlag )
             lDoIdleCall := .F.
-            EXIT
          ENDSWITCH
       ENDIF
    ENDDO