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

2000-06-03 10:53 UTC+0100 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-06-03 08:49:29 +00:00
parent 25879cbf80
commit fb2863f778
3 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-06-03 10:53 UTC+0100 Victor Szakats <info@szelvesz.hu>
* source/debug/*
% Some functions converted to procedures
2000-06-03 01:13 UTC+0100 Victor Szakats <info@szelvesz.hu>
* include/button.ch

22
harbour/source/debug/debugger.prg
View File

@@ -50,7 +50,7 @@
static s_oDebugger
static s_lExit := .F.
function AltD( nAction )
procedure AltD( nAction )
static s_lEnabled := .t.
do case
@@ -67,9 +67,9 @@ function AltD( nAction )
s_lEnabled := .t.
endcase
return nil
return
function __dbgEntry( uParam1, uParam2 ) // debugger entry point
procedure __dbgEntry( uParam1, uParam2 ) // debugger entry point
do case
case ValType( uParam1 ) == "C" // called from hvm.c hb_vmModuleName()
@@ -89,7 +89,7 @@ function __dbgEntry( uParam1, uParam2 ) // debugger entry point
if s_oDebugger:oBrwVars != nil
s_oDebugger:oBrwVars:RefreshAll()
endif
return nil
return
endif
if s_oDebugger:lGo
s_oDebugger:lGo := ! s_oDebugger:IsBreakPoint( uParam1 )
@@ -114,7 +114,7 @@ function __dbgEntry( uParam1, uParam2 ) // debugger entry point
endif
endcase
return nil
return
CLASS TDebugger
@@ -786,7 +786,7 @@ METHOD ViewSets() CLASS TDebugger
return nil
static function SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
static procedure SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
local nSet := oBrwSets:Cargo
@@ -825,9 +825,9 @@ static function SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
"..47]" )
endif
return nil
return
static function SetsUp( oBrw )
static procedure SetsUp( oBrw )
local nRow := oBrw:RowPos
local nSetPos
@@ -847,9 +847,9 @@ static function SetsUp( oBrw )
endif
oBrw:ForceStable()
return nil
return
static function SetsDown( oBrw )
static procedure SetsDown( oBrw )
local nRow := oBrw:RowPos
local nSetPos
@@ -869,7 +869,7 @@ static function SetsDown( oBrw )
endif
oBrw:ForceStable()
return nil
return
static function ValToStr( uVal )

8
harbour/source/debug/tbrwtext.prg
View File

@@ -100,7 +100,7 @@ METHOD GotoLine( nLine ) CLASS TBrwText
RETURN NIL
STATIC FUNCTION GoFirstLine( oBrw )
STATIC PROCEDURE GoFirstLine( oBrw )
LOCAL cLine
@@ -110,9 +110,9 @@ STATIC FUNCTION GoFirstLine( oBrw )
oBrw:nLine := 1
FSeek( oBrw:nHandle, 0, FS_SET )
RETURN NIL
RETURN
STATIC FUNCTION GoLastLine( oBrw )
STATIC PROCEDURE GoLastLine( oBrw )
LOCAL cLine := oBrw:cLine
@@ -120,7 +120,7 @@ STATIC FUNCTION GoLastLine( oBrw )
GoPrevLine( oBrw:nHandle, @cLine, oBrw:nFileSize )
oBrw:cLine := cLine
RETURN NIL
RETURN
STATIC FUNCTION Skipper( oBrw, nLines )