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

Updating compiler and pp files

Browse Source
This commit is contained in:
Alexander S.Kresin
2000-02-16 20:13:45 +00:00
parent 5d1145df8d
commit 13402a6648
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1539,7 +1539,7 @@ int yy_lex_input( char *buffer, int iBufferSize )
{
HB_SYMBOL_UNUSED( iBufferSize );
return hb_pp_Internal( yyin, hb_comp_bPPO ? hb_comp_yyppo : NULL, buffer );
return hb_pp_Internal( hb_comp_bPPO ? hb_comp_yyppo : NULL, buffer );
}
static int yy_ConvertNumber( char * szBuffer )

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

@@ -125,6 +125,8 @@ USHORT hb_comp_wIfCounter = 0;
USHORT hb_comp_wWhileCounter = 0;
USHORT hb_comp_wCaseCounter = 0;
char *hb_comp_buffer; /* yacc input buffer */
static PTR_LOOPEXIT hb_comp_pLoops = NULL;
static HB_RTVAR_PTR hb_comp_rtvars = NULL;
@@ -1523,6 +1525,7 @@ BOOL hb_compInclude( char * szFileName, PATHNAMES * pSearch )
pFile->szFileName = szFileName;
pFile->pPrev = NULL;
/*
if( ! hb_comp_files.iFiles )
hb_comp_files.pLast = pFile;
else
@@ -1536,6 +1539,14 @@ BOOL hb_compInclude( char * szFileName, PATHNAMES * pSearch )
yy_switch_to_buffer( ( YY_BUFFER_STATE ) ( pFile->pBuffer = yy_create_buffer( yyin, 8192 * 2 ) ) );
#else
yy_switch_to_buffer( pFile->pBuffer = yy_create_buffer( yyin, 8192 * 2 ) );
#endif
*/
hb_comp_files.pLast = pFile;
#ifdef __cplusplus
yy_switch_to_buffer( ( YY_BUFFER_STATE ) ( hb_comp_buffer = yy_create_buffer( yyin, 8192 * 2 ) ) );
#else
yy_switch_to_buffer( hb_comp_buffer = yy_create_buffer( yyin, 8192 * 2 ) );
#endif
hb_comp_files.iFiles++;
@@ -1548,6 +1559,7 @@ int yywrap( void ) /* handles the EOF of the currently processed file */
if( hb_comp_files.iFiles == 1 )
return 1; /* we have reached the main EOF */
/*
else
{
pLast = hb_comp_files.pLast;
@@ -1567,8 +1579,9 @@ int yywrap( void ) /* handles the EOF of the currently processed file */
#else
yy_switch_to_buffer( hb_comp_files.pLast->pBuffer );
#endif
return 0; /* we close the currently include file and continue */
return 0;
}
*/ /* we close the currently include file and continue */
}
/* ************************************************************************* */