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

2000-07-31 09:00 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/compiler/simplex.c
   * source/macro/macro.slx
     ! Corrected compiler warnings

   * tests/testwarn.prg
   * utils/hbdoc/ft_funcs.prg
     * Commented AS USUAL until votes results tabulated
This commit is contained in:
Ron Pinkas
2000-07-31 15:58:41 +00:00
parent 5b5d8b099c
commit e09d364512
5 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -1,3 +1,12 @@
2000-07-31 09:00 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/simplex.c
* source/macro/macro.slx
! Corrected compiler warnings
* tests/testwarn.prg
* utils/hbdoc/ft_funcs.prg
* Commented AS USUAL until votes results tabulated
2000-07-31 11:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/gtsln/gtsln.c

1
harbour/source/compiler/simplex.c
View File

@@ -63,7 +63,6 @@
/* Pairs. */
static char sPair[ 2048 ];
static int iPairLen;
static char cTerm;
static BOOL bExclusive;
static char * sExclude;

14
harbour/source/macro/macro.slx
View File

@@ -51,7 +51,8 @@
/* code that fills input buffer
*/
#define YY_INPUT( buf, result, max_size ) result = 0;
#undef YY_INPUT
#define YY_INPUT( buf, result, max_size ) result = 0;
#undef STREAM_EXCEPTION
#define STREAM_EXCEPTION( sPair, cChar ) \
@@ -59,10 +60,6 @@
aiReturn[ iReturn++ ] = '\n'; \
aiReturn[ iReturn++ ] = LITERAL;
static int iTexts = 0;
static char * aTexts[128];
static char* sIdOnHold;
long hb_lex_Hex2L( char* sHex );
void * yy_bytes_buffer( char * pBuffer, int iBufSize );
@@ -119,7 +116,8 @@ SELF_CONTAINED_WORDS_ARE {
};
/* Key Words. */
LANGUAGE_KEY_WORDS_ARE { ""
LANGUAGE_KEY_WORDS_ARE {
LEX_WORD( "" ) AS_TOKEN( 0 )
};
/* Intermediate Words when ambigious. */
@@ -132,8 +130,8 @@ LANGUAGE_KEY_WORDS_ARE { ""
/* Words. */
LANGUAGE_WORDS_ARE {
LEX_WORD( "IF" ) AS_TOKEN( _IF_ ),
LEX_WORD( "NIL" ) AS_TOKEN( NIL ),
LEX_WORD( "IIF" ) AS_TOKEN( IIF ),
LEX_WORD( "NIL" ) AS_TOKEN( NIL ),
LEX_WORD( "SELF" ) AS_TOKEN( _SELF_ ),
LEX_WORD( "QSELF" ) AS_TOKEN( QSELF ),
LEX_WORD( "FIELD" ) AS_TOKEN( _FIELD_ ),
@@ -433,8 +431,6 @@ int hb_lex_CustomAction( int x, int iWordLen, int aiHold[], char asHold[][TOKEN_
sIdentifier = (char*) hb_xgrab( iWordLen + 1 );
sIdentifier[0] = '\0';
DEBUG_INFO( printf( "Prepared Text: %i Pointer: %i\n", iTexts, sIdentifier ) );
switch ( x )
{
case HB_LIT_ACT :\

4
harbour/tests/testwarn.prg
View File

@@ -23,7 +23,7 @@ DECLARE nMyFunc( cVar AS STRING, @nVar AS NUMERIC ) AS NUMERIC
DECLARE cOtherFunc( ) AS STRING
DECLARE cOtherFunc( @cVar as string, optional nVar as numeric, optional other as usual ) AS STRING
DECLARE cOtherFunc( @cVar as string, optional nVar as numeric, optional other /*as variant*/ ) AS STRING
DECLARE Seconds() AS NUMERIC
@@ -32,7 +32,7 @@ DECLARE Int( n AS NUMERIC ) AS NUMERIC
DECLARE TEST() AS NUMERIC
DECLARE MyClass ;
nMyFunc( nVal AS NUMERIC) As Num
nMyFunc( nVal AS NUMERIC) AS NUMERIC
DECLARE MyClass ;
nMyFunc( nVal AS NUMERIC ) AS NUMERIC ;

6
harbour/utils/hbdoc/ft_funcs.prg
View File

@@ -43,9 +43,9 @@ DECLARE FT_FUSE(CFILE AS STRING,NMODE AS NUMERIC) AS NUMERIC
DECLARE ft_FEOF() AS LOGICAL
DECLARE FReadLn( cLine ) AS STRING
DECLARE FT_FReadLn() AS STRING
DECLARE FT_FGotop() AS USUAL
DECLARE FT_FSKIP(n AS NUMERIC) AS USUAL
DECLARE FT_MKDIR( CDIR AS STRING ) AS USUAL
DECLARE FT_FGotop() //AS USUAL
DECLARE FT_FSKIP(n AS NUMERIC) //AS USUAL
DECLARE FT_MKDIR( CDIR AS STRING ) //AS USUAL
DECLARE StrPos( cBuffer AS STRING ) AS NUMERIC
DECLARE GetNumberofTableItems( cBuffer AS STRING ) AS NUMERIC
DECLARE FREADline( nH AS NUMERIC, @cB AS STRING, nMaxLine AS NUMERIC )