2008-05-23 21:56 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

* source/rtl/browse.prg
   * source/rtl/getsys53.prg
   * source/rtl/profiler.prg
   * source/rtl/tbrowse.prg
   * source/debug/dbghelp.prg
   * source/debug/dbgwa.prg
   * utils/hbextern/hbextern.prg
   * utils/hbtest/hbtest.prg
   * utils/hbtest/rt_array.prg
   * utils/hbtest/rt_class.prg
   * utils/hbtest/rt_date.prg
   * utils/hbtest/rt_file.prg
   * utils/hbtest/rt_hvm.prg
   * utils/hbtest/rt_hvma.prg
   * utils/hbtest/rt_math.prg
   * utils/hbtest/rt_misc.prg
   * utils/hbtest/rt_str.prg
   * utils/hbtest/rt_stra.prg
   * utils/hbtest/rt_trans.prg
     % FUNCTION -> PROCEDURE

harbour/source/debug/dbghelp.prg

@@ -62,7 +62,7 @@
 #include "common.ch"
 #include "inkey.ch"
 
-FUNCTION __dbgHelp( nTopic )
+PROCEDURE __dbgHelp( nTopic )
 
    LOCAL oDlg
    LOCAL cColor := iif( __Dbg():lMonoDisplay, "N/W, W/N, W+/W, W+/N", "N/W, N/BG, R/W, R/BG" )
@@ -92,7 +92,7 @@ FUNCTION __dbgHelp( nTopic )
 
    oDlg:ShowModal()
 
-   RETURN NIL
+   RETURN
 
 STATIC PROCEDURE PaintWindow( oDlg, oBrw, aTopics )
 

harbour/source/debug/dbgwa.prg

@@ -54,7 +54,7 @@
 #include "setcurs.ch"
 #include "inkey.ch"
 
-function __dbgShowWorkAreas()
+procedure __dbgShowWorkAreas()
 
    local oDlg
    local oCol
@@ -85,7 +85,7 @@ function __dbgShowWorkAreas()
 
    if Len( aAlias ) == 0
       Alert( "No workareas in use")
-      return nil
+      return
    endif
 
    IF !Used()
@@ -160,9 +160,9 @@ function __dbgShowWorkAreas()
    
    dbSelectArea( nOldArea )
 
-return nil
+return
 
-static function DlgWorkAreaPaint( oDlg, aBrw )
+static procedure DlgWorkAreaPaint( oDlg, aBrw )
 
    /* Display captions */
 
@@ -211,9 +211,9 @@ static function DlgWorkAreaPaint( oDlg, aBrw )
 
    UpdateInfo( oDlg, Alias() )
 
-return nil
+return
 
-static function DlgWorkAreaKey( nKey, oDlg, aBrw, aAlias, aStruc, aInfo )
+static procedure DlgWorkAreaKey( nKey, oDlg, aBrw, aAlias, aStruc, aInfo )
 
    static s_nFocus := 1
 
@@ -229,7 +229,7 @@ static function DlgWorkAreaKey( nKey, oDlg, aBrw, aAlias, aStruc, aInfo )
          s_nFocus := 1
       endif
       aBrw[ s_nFocus ]:Hilite()
-      return nil
+      return
    endif
 
    do case
@@ -263,7 +263,7 @@ static function DlgWorkAreaKey( nKey, oDlg, aBrw, aAlias, aStruc, aInfo )
       WorkAreasKeyPressed( nKey, aBrw[ 3 ], Len( aStruc ) )
    endcase
 
-return nil
+return
 
 static procedure WorkAreasKeyPressed( nKey, oBrw, nTotal )
 
@@ -347,12 +347,12 @@ static function DbfInfo( aInfo )
 
 return aInfo
 
-static function UpdateInfo( oDlg, cAlias )
+static procedure UpdateInfo( oDlg, cAlias )
 
    local nOldArea
 
    if Empty( cAlias )
-      return NIL
+      return
    endif
    
    nOldArea := Select()
@@ -373,4 +373,4 @@ static function UpdateInfo( oDlg, cAlias )
 
    dbSelectArea( nOldArea )
 
-return nil
+return