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

See changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-07-21 20:39:25 +00:00
parent 59bb2c12e7
commit 47e31983a8
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990721-10:25 CET Eddie Runia
* source/hbpp/hbpp.c
Old lookup returned for '??'. Follow (ER) for the change
Wed Jul 21 15:36:04 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
* source/compiler/harbour.y:

10
harbour/source/hbpp/hbpp.c
View File

@@ -391,7 +391,7 @@ int TraSearch(char *cmdname, int ncmd)
int ParseCommand( char* sLine, int com_or_xcom, int com_or_tra )
{
static char mpatt[STR_SIZE], rpatt[STR_SIZE];
char mpatt[STR_SIZE], rpatt[STR_SIZE];
char cmdname[MAX_NAME];
int mlen,rlen;
int ipos, rez;
@@ -592,11 +592,9 @@ int ParseExpression( char* sLine, char* sOutLine )
if ( isname(*ptri) )
NextName( &ptri, sToken, NULL);
else
{
i = 0;
while ( *ptri != ' ' && *ptri != '\t' && *ptri != '\0' && !isname(*ptri) )
*(sToken+i++) = *ptri++;
*(sToken+i) = '\0';
{ /* (ER) returned to old version */
*sToken = *ptri++;
*(sToken+1) = '\0';
}
SKIPTABSPACES( ptri );