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

2006-02-11 16:02 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/compiler/harbour.c
    * do not strip redundant line information when compiled for debug (-b)

  * harbour/source/compiler/harbour.y
    ! fixed typo in hb_compSequenceFinish() call - Ryszard please check me.
      using iNumber instead of lNumber caused that on big endian machines
      begin sequence / endsequence block was stripped

  * harbour/source/compiler/hbdead.c
    ! fixed stupid typo in counting length of debug variable/module names
This commit is contained in:
Przemyslaw Czerpak
2006-02-11 15:10:24 +00:00
parent 5796421a06
commit b941baf064
4 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -8,6 +8,18 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* fixed <-x-> match marker
2006-02-11 16:02 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/compiler/harbour.c
* do not strip redundant line information when compiled for debug (-b)
* harbour/source/compiler/harbour.y
! fixed typo in hb_compSequenceFinish() call - Ryszard please check me.
using iNumber instead of lNumber caused that on big endian machines
begin sequence / endsequence block was stripped
* harbour/source/compiler/hbdead.c
! fixed stupid typo in counting length of debug variable/module names
2006-02-11 13:32 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/Makefile
* added missing header files

2
harbour/source/compiler/harbour.c
View File

@@ -3722,7 +3722,7 @@ static void hb_compOptimizeJumps( void )
{
LONG lOffset;
if( iPass == 2 )
if( iPass == 2 && ! hb_comp_bDebugInfo )
hb_compStripFuncLines( hb_comp_functions.pLast );
if( hb_comp_functions.pLast->iJumps > 0 )

2
harbour/source/compiler/harbour.y
View File

@@ -1796,7 +1796,7 @@ BeginSeq : BEGINSEQ { ++hb_comp_wSeqCounter; $<lNumber>$ = hb_compSequenceBegi
hb_compGenJumpThere( $<lNumber>5, hb_comp_functions.pLast->lPCodePos );
if( !$<lNumber>6 ) /* only if there is no RECOVER clause */
--hb_comp_wSeqCounter; /* RECOVER is also considered as end of sequence */
hb_compSequenceFinish( $<lNumber>2, $<iNumber>4 );
hb_compSequenceFinish( $<lNumber>2, $<lNumber>4 );
hb_comp_functions.pLast->bFlags &= ~ FUN_WITH_RETURN;
}
;

6
harbour/source/compiler/hbdead.c
View File

@@ -167,7 +167,7 @@ static HB_CODETRACE_FUNC( hb_p_localname )
ULONG ulStart = lPCodePos;
lPCodePos += 3;
while( pFunc->pCode[ lPCodePos + lPCodePos++ ] );
while( pFunc->pCode[ lPCodePos++ ] );
hb_compCodeTraceMark( cargo, ulStart, lPCodePos - ulStart );
return hb_compCodeTraceNextPos( cargo, lPCodePos );
@@ -177,7 +177,7 @@ static HB_CODETRACE_FUNC( hb_p_modulename )
{
ULONG ulStart = lPCodePos;
while( pFunc->pCode[ lPCodePos + lPCodePos++ ] );
while( pFunc->pCode[ lPCodePos++ ] );
hb_compCodeTraceMark( cargo, ulStart, lPCodePos - ulStart );
return hb_compCodeTraceNextPos( cargo, lPCodePos );
@@ -188,7 +188,7 @@ static HB_CODETRACE_FUNC( hb_p_staticname )
ULONG ulStart = lPCodePos;
lPCodePos += 4;
while( pFunc->pCode[ lPCodePos + lPCodePos++ ] );
while( pFunc->pCode[ lPCodePos++ ] );
hb_compCodeTraceMark( cargo, ulStart, lPCodePos - ulStart );
return hb_compCodeTraceNextPos( cargo, lPCodePos );