34d4910f42
* harbour/bin/hb-func.sh
* added support for -L<librarypath> in xhbmk
* set the highest priority to user libraries specified by
-l<libname> linker option
* harbour/include/hbapicdp.h
* harbour/source/rtl/cdpapi.c
* added UTF8 related functions: hb_cdpUTF8StringLength(),
hb_cdpStringInUTF8Length(), hb_cdpUTF8ToStrn().
* Changed name of hb_cdpStrnToUTF() function to hb_cdpStrnToUTF8()
to avoid confusions with UTF16
* harbour/include/hberrors.h
* harbour/source/compiler/hbgenerr.c
* harbour/source/compiler/harbour.c
+ added to new errors (memory corruption and memory overflow) for
compiler level FM statistic.
* harbour/source/compiler/hbfix.c
! fixed stupid typo in copy and past which broke conditional jump
reduction
* harbour/include/hbgtcore.h
* harbour/source/rtl/hbgtcore.c
* harbour/include/hbgtinfo.ch
* harbour/source/rtl/gtdos/gtdos.c
* harbour/source/rtl/gtos2/gtos2.c
* harbour/source/rtl/gtwin/gtwin.c
* added new method to change screen buffer state (hot/cold/scroll)
and use them in some GTs.
* harbour/source/rtl/gx.c
* use screen dimensions as default values for SETMODE() not maxrow()/
maxcol()
* harbour/source/rtl/gtxwc/gtxwc.c
* harbour/source/rtl/gtxwc/gtxwc.h
* added support for clipboard
* added support for cursor shape - like in DOS/VGA
* harbour/source/rdd/workarea.c
* harbour/source/rdd/dbffpt/dbffpt1.c
* cleaned some redundant extern declarations
* xharbour/contrib/rdd_ads/ads1.c
* xharbour/contrib/rdd_ads/adsfunc.c
* removed some unnecessary #include ...
* harbour/source/rtl/str.c
* harbour/source/rtl/transfrm.c
* harbour/source/vm/itemapi.c
! fixed some small incompatibilities with Clipper in number to string
conversions
257 lines
9.0 KiB
C
257 lines
9.0 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Compiler parse errors & warnings messages
|
|
*
|
|
* Copyright 1999 {list of individual authors and e-mail addresses}
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version, with one exception:
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
* their web site at http://www.gnu.org/).
|
|
*
|
|
*/
|
|
|
|
#include "hbcomp.h"
|
|
|
|
extern char *yytext;
|
|
|
|
/* Table with parse errors */
|
|
char * hb_comp_szErrors[] =
|
|
{
|
|
"Statement not allowed outside of procedure or function",
|
|
"Redefinition of procedure or function: \'%s\'",
|
|
"Duplicate variable declaration: \'%s\'",
|
|
"%s declaration follows executable statement",
|
|
"Outer codeblock variable is out of reach: \'%s\'",
|
|
"Invalid numeric format '.'",
|
|
"Unterminated string: \'%s\'",
|
|
"Redefinition of predefined function %s: \'%s\'",
|
|
"Illegal variable \'%s\' initializer: \'%s\'",
|
|
"ENDIF does not match IF",
|
|
"ENDDO does not match WHILE",
|
|
"ENDCASE does not match DO CASE",
|
|
"NEXT does not match FOR",
|
|
"ELSE does not match IF",
|
|
"ELSEIF does not match IF",
|
|
"Syntax error: \'%s\'",
|
|
"Unclosed control structures",
|
|
"%s statement with no loop in sight",
|
|
"Syntax error: \'%s\' in: \'%s\'",
|
|
"Incomplete statement: %s",
|
|
"Incorrect number of arguments: %s %s",
|
|
"Invalid lvalue: \'%s\'",
|
|
"Invalid use of \'@\' (pass by reference): \'%s\'",
|
|
"Formal parameters already declared",
|
|
"Invalid %s from within of SEQUENCE code",
|
|
"Unterminated array index",
|
|
"Could not allocate %s byte(s)",
|
|
"Could not reallocate %s byte(s)",
|
|
"Freeing a NULL memory pointer",
|
|
"Syntax error: \"%s at \'%s\'\"",
|
|
"Jump offset too long",
|
|
"Can't create output file: \'%s\'",
|
|
"Can't create preprocessed output file: \'%s\'",
|
|
"Bad command line option: \'%s\'",
|
|
"Bad command line parameter: \'%s\'",
|
|
"Invalid filename: \'%s\'",
|
|
"Mayhem in CASE handler",
|
|
"Operation not supported for this data type: \'%s\'",
|
|
"Invalid alias expression: \'%s\'",
|
|
"Invalid array index expression: \'%s\'",
|
|
"Bound error: \'%s\'",
|
|
"Macro of declared symbol: \'%s\'",
|
|
"Invalid selector in send: \'%s\'",
|
|
"ANNOUNCEd procedure \'%s\' must be a public symbol",
|
|
"Jump PCode not found",
|
|
"CASE or OTHERWISE does not match DO CASE",
|
|
"Code block contains both macro and declared symbol references \'%s\'",
|
|
"GET contains complex macro",
|
|
"Unterminated inline block in function: \'%s\'",
|
|
"Too many inline blocks %s",
|
|
"Inline C requires C output generation, use -gc[n]",
|
|
"Too many local variables [%s] or parameters [%s]",
|
|
"Too many enumerate variables in FOR EACH loop",
|
|
"Incorrect number of enumerate variables",
|
|
"CASE requires either numeric or string constant",
|
|
"String too long for SWITCH",
|
|
"Invalid date constant \'%s\'",
|
|
"Memory buffer overflow",
|
|
"Memory corruption detected"
|
|
};
|
|
|
|
/* Table with parse warnings */
|
|
/* NOTE: The first character stores the warning's level that triggers this
|
|
* warning. The warning's level is set by -w<n> command line option.
|
|
*/
|
|
char * hb_comp_szWarnings[] =
|
|
{
|
|
"1Ambiguous reference: \'%s\'",
|
|
"1Ambiguous reference, assuming memvar: \'%s\'",
|
|
"2Variable: \'%s\' declared but not used in function: \'%s\'",
|
|
"2Codeblock parameter: \'%s\' declared but not used in function: \'%s\'",
|
|
"1RETURN statement with no return value in function",
|
|
"1Procedure returns value",
|
|
"1Function \'%s\' does not end with RETURN statement",
|
|
"3Incompatible type in assignment to: \'%s\' expected: \'%s\'",
|
|
"3Incompatible operand type: \'%s\' expected: \'%s\'",
|
|
"3Incompatible operand types: \'%s\' and: \'%s\'",
|
|
"4Suspicious type in assignment to: \'%s\' expected: \'%s\'",
|
|
"4Suspicious operand type: \'unknown\' expected: \'%s\'",
|
|
"3Can\'t use array index with non-array",
|
|
"3Incompatible return type: \'%s\' expected: \'%s\'",
|
|
"4Suspicious return type: \'%s\' expected: \'%s\'",
|
|
"3Invalid number of parameters: %s expected: %s",
|
|
"3Incompatible parameter: %s expected: \'%s\'",
|
|
"4Suspicious parameter: %s expected: \'%s\'",
|
|
"3Duplicate declaration of %s \'%s\'",
|
|
"3Function \'%s\' conflicting with its declaration",
|
|
"3Variable \'%s\' used but never initialized",
|
|
"3Value of Variable \'%s\' never used",
|
|
"3Incompatible type in assignment to declared array element expected: \'%s\'",
|
|
"4Suspicious type in assignment to declared array element expected: \'%s\'",
|
|
"3Class \'%s\' not known in declaration of \'%s\'",
|
|
"3Message \'%s\' not known in class \'%s\'",
|
|
"0Meaningless use of expression: \'%s\'",
|
|
"2Unreachable code",
|
|
"1Redundant \'ANNOUNCE %s\' statement ignored",
|
|
"0Duplicate variable \'%s\' in nested FOR loop",
|
|
"0Invalid variable \'%s\' for enumerator message"
|
|
};
|
|
|
|
void hb_compGenError( char * szErrors[], char cPrefix, int iError, const char * szError1, const char * szError2 )
|
|
{
|
|
int iLine = hb_comp_iLine - 1;
|
|
|
|
if( cPrefix != 'F' && hb_comp_bError )
|
|
return;
|
|
|
|
if( hb_comp_files.pLast && hb_comp_files.pLast->szFileName )
|
|
fprintf( hb_comp_errFile, "\r%s(%i) ", hb_comp_files.pLast->szFileName, iLine );
|
|
|
|
fprintf( hb_comp_errFile, "Error %c%04i ", cPrefix, iError );
|
|
fprintf( hb_comp_errFile, szErrors[ iError - 1 ], szError1, szError2 );
|
|
fprintf( hb_comp_errFile, "\n" );
|
|
|
|
hb_comp_iErrorCount++;
|
|
hb_comp_bError = TRUE;
|
|
|
|
/* fatal error - exit immediately */
|
|
if( cPrefix == 'F' )
|
|
{
|
|
hb_compMainExit();
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
}
|
|
|
|
void hb_compGenWarning( char * szWarnings[], char cPrefix, int iWarning, const char * szWarning1, const char * szWarning2)
|
|
{
|
|
char * szText = szWarnings[ iWarning - 1 ];
|
|
int iLine = hb_comp_iLine - 1;
|
|
|
|
if( ( szText[ 0 ] - '0' ) <= hb_comp_iWarnings )
|
|
{
|
|
if( hb_comp_files.pLast && hb_comp_files.pLast->szFileName )
|
|
fprintf( hb_comp_errFile, "\r%s(%i) ", hb_comp_files.pLast->szFileName, iLine );
|
|
|
|
fprintf( hb_comp_errFile, "Warning %c%04i ", cPrefix, iWarning );
|
|
fprintf( hb_comp_errFile, szText + 1, szWarning1, szWarning2 );
|
|
fprintf( hb_comp_errFile, "\n" );
|
|
|
|
hb_comp_bAnyWarning = TRUE; /* report warnings at exit */
|
|
}
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorLValue( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_LVALUE, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorType( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_TYPE, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorIndex( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_INDEX, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorBound( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_BOUND, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorSyntax( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_SYNTAX, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorAlias( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_ALIAS, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorStatic( char * szVarName, HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_ILLEGAL_INIT, szVarName, szDesc );
|
|
return pExpr;
|
|
}
|
|
|
|
void hb_compErrorDuplVar( char * szVarName )
|
|
{
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_VAR_DUPL, szVarName, NULL );
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compWarnMeaningless( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenWarning( hb_comp_szWarnings, 'W', HB_COMP_WARN_MEANINGLESS, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
void hb_compErrorCodeblock( char * szBlock )
|
|
{
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_BLOCK, szBlock, NULL );
|
|
hb_comp_bError = FALSE; /* clear error flag for this line */
|
|
}
|
|
|
|
void hb_compErrorMacro( char *szText )
|
|
{
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_BAD_MACRO, szText, NULL );
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorRefer( HB_EXPR_PTR pExpr, char *szAlias )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_REFER, szAlias, szDesc );
|
|
return pExpr;
|
|
}
|