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

2009-01-08 13:12 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/source/compiler/hbopt.c
    * improved 'variable assigned but unused' detection logic
  * harbour/source/rtl/treport.prg
    * fixed assigned but unused variable
This commit is contained in:
Mindaugas Kavaliauskas
2009-01-08 11:16:23 +00:00
parent cc64a7d5f0
commit ff670e6c36
3 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-01-08 13:12 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/source/compiler/hbopt.c
* improved 'variable assigned but unused' detection logic
* harbour/source/rtl/treport.prg
* fixed assigned but unused variable
2009-01-07 13:56 UTC-0600 Teo Fonrouge (teo/at/windtelsoft/dot/com)
* source/vm/classes.c
+ addded __objHasMsgAssigned( object, "msgName" )

25
harbour/source/compiler/hbopt.c
View File

@@ -1255,17 +1255,20 @@ static int hb_compPCodeTraceAssignedUnused( PFUNCTION pFunc, ULONG ulPos, BYTE *
pFunc->pCode[ ulPos ] == HB_P_PUSHLOCAL ||
pFunc->pCode[ ulPos ] == HB_P_PUSHLOCALNEAR ||
pFunc->pCode[ ulPos ] == HB_P_PUSHLOCALREF ||
pFunc->pCode[ ulPos ] == HB_P_LOCALINCPUSH )
pFunc->pCode[ ulPos ] == HB_P_LOCALINCPUSH ||
pFunc->pCode[ ulPos ] == HB_P_LOCALDEC ||
pFunc->pCode[ ulPos ] == HB_P_LOCALINC ||
pFunc->pCode[ ulPos ] == HB_P_LOCALADDINT ||
pFunc->pCode[ ulPos ] == HB_P_LOCALNEARADDINT )
{
if( hb_compLocalGetNumber( pFunc->pCode + ulPos ) == isLocal )
{
if( pFunc->pCode[ ulPos ] == HB_P_PUSHLOCAL ||
pFunc->pCode[ ulPos ] == HB_P_PUSHLOCALNEAR ||
pFunc->pCode[ ulPos ] == HB_P_PUSHLOCALREF ||
pFunc->pCode[ ulPos ] == HB_P_LOCALINCPUSH )
return 1;
else
if( pFunc->pCode[ ulPos ] == HB_P_POPLOCAL ||
pFunc->pCode[ ulPos ] == HB_P_POPLOCALNEAR )
return 0;
else
return 1;
}
}
@@ -1330,6 +1333,14 @@ static void hb_compPCodeEnumAssignedUnused( HB_COMP_DECL, PFUNCTION pFunc, PHB_O
pFunc->pCode[ ulPos ] == HB_P_POPLOCALNEAR ) &&
! ( ulPos > 0 && pFunc->pCode[ ulLastPos ] == HB_P_PUSHNIL );
if( !fCheck && ( pFunc->pCode[ ulPos ] == HB_P_LOCALDEC ||
pFunc->pCode[ ulPos ] == HB_P_LOCALINC ||
pFunc->pCode[ ulPos ] == HB_P_LOCALADDINT ||
pFunc->pCode[ ulPos ] == HB_P_LOCALNEARADDINT ) )
{
fCheck = TRUE;
}
if( !fCheck && pFunc->pCode[ ulPos ] == HB_P_PUSHLOCALREF )
{
ULONG ulPosNext = ulPos + hb_compPCodeSize( pFunc, ulPos );

2
harbour/source/rtl/treport.prg
View File

@@ -1040,7 +1040,7 @@ METHOD LoadReportFile( cFrmFile ) CLASS HBReportForm
IF Int( cOptionByte / 1 ) == 1
aReport[ RPT_BEJECT ] := .F. // Page eject before report
cOptionByte -= 1
//cOptionByte -= 1
ENDIF
// Page heading, report title