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

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-08-06 13:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* 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
2006-08-05 13:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/common/hbver.c
* extended C compiler information

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

4
harbour/source/vm/itemapi.c
View File

@@ -1544,9 +1544,9 @@ PHB_ITEM hb_itemUnShareString( PHB_ITEM pItem )
char *szText = ( char* ) hb_xgrab( ulLen );
hb_xmemcpy( szText, pItem->item.asString.value, ulLen );
pItem->item.asString.value = szText;
if( ! pItem->item.asString.allocated )
if( pItem->item.asString.allocated )
hb_xRefDec( pItem->item.asString.value );
pItem->item.asString.value = szText;
pItem->item.asString.allocated = ulLen;
}