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

19990612 10:57 PST Ron Pinkas

Browse Source 
* source/compiler/harbour.y
        Added check on non used variables to be done at the end of source file so last         function will be tested too.
This commit is contained in:
Ron Pinkas
1999-06-12 19:25:51 +00:00
parent 3b860358a2
commit 90afad3419
2 changed files with 37 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990612 10:57 PST Ron Pinkas
* source/compiler/harbour.y
Added check on non used variables to be done at the end of source file so last function will be tested too.
19990612-18:55 CET Eddie Runia
* source/rtl/files.c
One byte more allocated for fReadStr()

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

@@ -462,8 +462,38 @@ PATHNAMES *_pIncludePath = NULL;
%%
Main : { Line(); } Source { if( ! _iQuiet ) printf( "\nsyntax ok\n" ); }
;
Main : { Line(); } Source {
PDECLARED_VAR pVarDef, pRelease;
if ( _iWarnings )
{
pVarDef = &FunVars;
if ( *(pVarDef->szVarName) && ! pVarDef->iVarUsed )
GenWarning( WARN_VAR_NOT_USED, pVarDef->szVarName, functions.pLast->szName );
pVarDef = pVarDef->pNextVar;
FunVars.szVarName = "";
FunVars.cVarType = 'U';
FunVars.iVarUsed = 0;
FunVars.pNextVar = 0;
while ( pVarDef )
{
if ( *(pVarDef->szVarName) && ! pVarDef->iVarUsed )
GenWarning( WARN_VAR_NOT_USED, pVarDef->szVarName, functions.pLast->szName );
pRelease = pVarDef;
pVarDef = pVarDef->pNextVar;
OurFree( pRelease );
}
}
if( ! _iQuiet ) printf( "\nsyntax ok\n" );
};
Source : Crlf
| Extern
@@ -1039,6 +1069,7 @@ int harbour_main( int argc, char * argv[] )
char szFileName[ _POSIX_PATH_MAX ]; /* filename to parse */
char *szOutPath ="";
FILENAME *pFileName =NULL;
PDECLARED_VAR pVarDef, pRelease;
if( argc > 1 )
{
@@ -1227,7 +1258,6 @@ int harbour_main( int argc, char * argv[] )
}
AddSearchPath( pPath, &_pIncludePath );
}
FunDef( strupr( strdup( pFileName->name ) ), FS_PUBLIC, FUN_PROCEDURE );
yyparse();
FixReturns(); /* fix all previous function returns offsets */