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

2006-08-06 13:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/config/linux/owatcom.cf
  * harbour/source/debug/debugger.prg
    * changed checking for static initialization functions

  * harbour/source/vm/itemapi.c
    ! fixed stupid typo in string unsharing which caused very serious bug
This commit is contained in:
Przemyslaw Czerpak
2006-08-06 11:08:53 +00:00
parent 110957e91b
commit dc4ad2e7fa
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -207,7 +207,7 @@ procedure __dbgEntry( nMode, uParam1, uParam2, uParam3 ) // debugger entry poin
// add a call to the stack but don't try to show the code yet
cProcName := ProcName( 1 )
if cProcName == "(_INITSTATICS)"
if cProcName = "(_INITSTATICS"
//module wide static variable
AADD( __dbgStatics, { strip_path( uParam1 ), {} } )
return // We can not use s_oDebugger yet, so we return
@@ -230,7 +230,7 @@ procedure __dbgEntry( nMode, uParam1, uParam2, uParam3 ) // debugger entry poin
s_oDebugger:StackProc( uParam1, hb_dbg_ProcLevel()-1 )
case nMode == HB_DBG_ENDPROC
if ProcName( 1 ) == "(_INITSTATICS)"
if ProcName( 1 ) = "(_INITSTATICS"
return
endif
IF( s_lExit )
@@ -265,7 +265,7 @@ procedure __dbgEntry( nMode, uParam1, uParam2, uParam3 ) // debugger entry poin
nVarIndex := uParam2
cVarName := uParam3
cProcName := ProcName( 1 )
if cProcName == "(_INITSTATICS)"
if cProcName = "(_INITSTATICS"
//module wide static variable
AAdd( ATAIL(__DbgStatics)[2], { cVarName, nVarIndex, "Static",, nSFrame } )
return // We can not use s_oDebugger yet, so we return