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

See ChangeLog 19990615-08:30

Browse Source
This commit is contained in:
Ryszard Glab
1999-06-15 07:36:15 +00:00
parent 6bef4798f3
commit f9ef0a8ec6
3 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
19990615-08:30 Ryszard Glab <rglab@imid.med.pl>
* source/compiler/harbour.y
* added missing error message
* source/compiler/harbour.l
* removed printf introducced for debugging purpose
19990615-07:00 Ryszard Glab <rglab@imid.med.pl>
* source/compiler/harbour.y

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

@@ -264,7 +264,6 @@ Separator {SpaceTab}|{Comment}
yy_lex_count_lf();
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
if( ! _iQuiet ) printf( "\rline: %i", iLine );
printf( "\nlineCont");
_iState=LINECONT_;
}
<LINECONT_>{Separator}*("("|")") {
@@ -273,7 +272,6 @@ printf( "\nlineCont");
<LINECONT_>{Separator}*. {
yy_lex_count_lf();
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
printf( "\nLineCont");
unput( yytext[ yyleng-1 ] );
if( _iOpenBracket == 0 && (_iState==SEPARATOR || _iState==IDENTIFIER) && i_INDEX_STATE==0 )
{

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

@@ -262,7 +262,8 @@ char * _szErrors[] = { "Statement not allowed outside of procedure or function",
"Syntax error: \'%s\'",
"Unclosed control structures at line: %i",
"%s statement with no loop in sight",
"Syntax error: \'%s\' in: \'%s\'"
"Syntax error: \'%s\' in: \'%s\'",
"Incomplete statement: %s"
};
/* Table with parse warnings */
@@ -3507,6 +3508,7 @@ void CodeBlockEnd()
GenPCode1( LOBYTE(wPos) );
GenPCode1( HIBYTE(wPos) );
pFree =pVar;
pFree->szName = NULL;
pVar =pVar->pNext;
OurFree( pFree );
}
@@ -3521,6 +3523,7 @@ void CodeBlockEnd()
{
/* free used variables */
pFree =pVar;
pFree->szName = NULL;
pVar =pVar->pNext;
OurFree( pFree );
}