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

2001-11-20 23:59 GMT+1 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* source/debug/debugger.prg
     ! ::ShowCode() was using At( ":", cModuleName ) to divide procedure name from module name,
       but this does not work if you have a source file on a different disk (at least on those
       systems which use a letter and a colon to name volumes).
This commit is contained in:
Maurilio Longo
2001-11-20 23:02:32 +00:00
parent caf8ab6eb1
commit c1cfb01acf
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1202,8 +1202,8 @@ return { | a | a[ 1 ] == Self:oBrwText:nRow } // it was nLine
METHOD ShowCode( cModuleName ) CLASS TDebugger
local cFunction := SubStr( cModuleName, At( ":", cModuleName ) + 1 )
local cPrgName := SubStr( cModuleName, 1, At( ":", cModuleName ) - 1 )
local cFunction := SubStr( cModuleName, RAt( ":", cModuleName ) + 1 )
local cPrgName := SubStr( cModuleName, 1, RAt( ":", cModuleName ) - 1 )
ASize( ::aCallStack, Len( ::aCallStack ) + 1 )
AIns( ::aCallStack, 1 )