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

2002-01-19 06:11 UTC+0100 Ron Pinkas <ron@ronpinkas.com>

Browse Source 
* source/compiler/harbour.slx
    ! Minor bug correction.
This commit is contained in:
Ron Pinkas
2002-01-20 15:02:55 +00:00
parent 1f8852b694
commit 025c50818c
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/vm/memvars.c
2002-01-19 06:11 UTC+0100 Ron Pinkas <ron@ronpinkas.com>
+ Added ChangeLog to the /contrib/apollo dir
+ contrib/apollo/test/apollo.ch
+ defines for function sx_SysProp
* contrib/apollo/test/apollo.prg
Added define "Apollo.ch"

18
harbour/source/compiler/harbour.slx
View File

@@ -934,23 +934,23 @@ int hb_comp_SLX_CustomAction( int x, int aiHold[], int *ptr_iHold, BOOL *ptr_bIg
iIdentifier++;
DEBUG_INFO( printf( "HB_IN, Primary Identifier %s Increased to: %i\n", "IN", iIdentifier ) );
return IDENTIFIER;
}
}
case HB_STEP :
*ptr_bIgnoreWords = FALSE;
if( iLastToken == NUM_INTEGER || iLastToken == IDENTIFIER || iLastToken == MACROVAR || iLastToken == MACROTEXT || iLastToken == ')' || iLastToken == ']' )
if( iLastToken == NUM_INTEGER || iLastToken == NUM_LONG || iLastToken == NUM_DOUBLE || iLastToken == IDENTIFIER || iLastToken == MACROVAR || iLastToken == MACROTEXT || iLastToken == ')' || iLastToken == ']' )
{ return STEP + DONT_REDUCE; }
else
{
yylval.string = hb_compIdentifierNew( "STEP", TRUE );
iIdentifier++;
DEBUG_INFO( printf( "HB_STEP, Primary Identifier %s Increased to: %i\n", "STEP", iIdentifier ) );
return IDENTIFIER;
}
{
yylval.string = hb_compIdentifierNew( "STEP", TRUE );
iIdentifier++;
DEBUG_INFO( printf( "HB_STEP, Primary Identifier %s Increased to: %i\n", "STEP", iIdentifier ) );
return IDENTIFIER;
}
case HB_TO :
*ptr_bIgnoreWords = FALSE;
if( iLastToken == NUM_INTEGER || iLastToken == IDENTIFIER || iLastToken == MACROVAR || iLastToken == MACROTEXT || iLastToken == ')' || iLastToken == ']' )
if( iLastToken == NUM_INTEGER || iLastToken == NUM_LONG || iLastToken == NUM_DOUBLE || iLastToken == IDENTIFIER || iLastToken == MACROVAR || iLastToken == MACROTEXT || iLastToken == ')' || iLastToken == ']' )
{ return TO + DONT_REDUCE; }
else
{