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

2006-07-45 16:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/compiler/harbour.c
    ! fixed typo in binary or - || was used instead of |
    * reenabled frame optimization for compilation without -n switch
This commit is contained in:
Przemyslaw Czerpak
2006-07-16 15:46:53 +00:00
parent 9fae0a713a
commit 62edb72902
2 changed files with 18 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-07-45 16:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
I think that it will be much easier and also using _DEFAULT as suffix
does not resolve fully 10 character symbol but will work if GT name
is not longer then 3 characters
2006-07-16 16:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/compiler/harbour.c
! fixed typo in binary or - || was used instead of |

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

@@ -4961,46 +4961,35 @@ int hb_compCompile( char * szPrg, int argc, char * argv[], BOOL bSingleFile )
if( ! hb_comp_bSyntaxCheckOnly && ! bSkipGen && ( hb_comp_iErrorCount == 0 ) )
{
PFUNCTION pFunc;
char * szFirstFunction = NULL;
PFUNCTION *pFunPtr;
/* we create the output file name */
hb_compOutputFile();
if( ! hb_comp_bStartProc )
pFunPtr = &hb_comp_functions.pFirst;
while( *pFunPtr )
{
/* remove function frames with no names */
PFUNCTION *pFunPtr = &hb_comp_functions.pFirst;
while( *pFunPtr )
if( ! hb_comp_bStartProc && ! (*pFunPtr)->szName[0] )
{
if( ! (*pFunPtr)->szName[0] )
{
*pFunPtr = hb_compFunctionKill( *pFunPtr );
hb_comp_functions.iCount--;
hb_comp_iFunctionCnt--;
}
else
{
hb_compOptimizeFrames( *pFunPtr );
*pFunPtr = hb_compFunctionKill( *pFunPtr );
hb_comp_functions.iCount--;
hb_comp_iFunctionCnt--;
}
else
{
hb_compOptimizeFrames( *pFunPtr );
if( szFirstFunction == NULL &&
! ( ( *pFunPtr )->cScope & (HB_FS_INIT || HB_FS_EXIT) ) )
! ( ( *pFunPtr )->cScope & (HB_FS_INIT | HB_FS_EXIT) ) )
{
szFirstFunction = ( *pFunPtr )->szName;
}
pFunPtr = &(*pFunPtr)->pNext;
}
pFunPtr = &(*pFunPtr)->pNext;
}
}
pFunc = hb_comp_functions.pFirst;
while( pFunc )
{
pFunc = pFunc->pNext;
}
if( szFirstFunction )
{
PCOMSYMBOL pSym = hb_comp_symbols.pFirst;