X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCerr.c;h=7425bb7e9a16f6c077ebb07f36156e008811e692;hb=bb226788dab3832b0ec0cda70874ce3fce4eebc6;hp=be6f255266dbc7e0d953b3cd66231dbec44ec646;hpb=209c0663b7f891431cfc91bd5987a67055c45144;p=fw%2Fsdcc diff --git a/src/SDCCerr.c b/src/SDCCerr.c index be6f2552..7425bb7e 100644 --- a/src/SDCCerr.c +++ b/src/SDCCerr.c @@ -1,183 +1,615 @@ -/* SDCCerr.c - error handling routines */ +/* + * SDCCerr - Standard error handler + * + * 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. + * + * 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 Library 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + */ -#include "common.h" +#include +#include -#define USE_STDOUT_FOR_ERRORS 0 +#include "SDCCerr.h" + +#define USE_STDOUT_FOR_ERRORS 0 #if USE_STDOUT_FOR_ERRORS -#define ERRSINK stdout +#define DEFAULT_ERROR_OUT stdout #else -#define ERRSINK stderr +#define DEFAULT_ERROR_OUT stderr #endif -#define ERROR 0 -#define WARNING 1 +struct SDCCERRG _SDCCERRG; + +extern char *filename; +extern int lineno; +extern int fatalError; -struct { - int errType ; - char *errText ; +/* Currently the errIndex field must match the position of the + * entry in the array. It is only included in order to make + * human error lookup easier. + */ +struct +{ + int errIndex; + ERROR_LOG_LEVEL errType; + const char *errText; } ErrTab [] = { -{ ERROR ,"error *** Duplicate symbol '%s', symbol IGNORED\n" }, -{ ERROR ,"error *** Syntax Error Declaration ingonerd\n" }, -{ ERROR ,"error *** Constant Expected Found Variable\n" }, -{ ERROR ,"error *** 'malloc' failed file '%s' for size %ld\n" }, -{ ERROR ,"error *** 'fopen' failed on file '%s'\n" }, -{ ERROR ,"error *** Internal Error Oclass invalid '%s'\n" }, -{ ERROR ,"error *** Cannot allocate variable '%s'.\n" }, -{ ERROR ,"error *** Old style C declaration. IGNORED '%s'\n" }, -{ ERROR ,"error *** Out of stack Space. '%s' not allocted\n" }, -{ ERROR ,"error *** FATAL Compiler Internal Error in file '%s' line number '%d' : %s \nContact Author with source code\n" }, -{ ERROR ,"error *** 'lvalue' required for '%s' operation .\n" }, -{ ERROR ,"error *** Creation of temp file failed\n" }, -{ ERROR ,"error *** Function expected here '%s'\n" }, -{ ERROR ,"error *** 'using', 'interrupt' or 'reentrant' must follow a function definiton .'%s'\n"}, -{ ERROR ,"error *** Absolute address & initial value both cannot be specified for\n a 'sfr','sbit' storage class, initial value ignored '%s'\n" }, -{ WARNING,"warning *** Variable in the storage class cannot be initialized.'%s'\n"}, -{ WARNING,"warning *** storage class not allowed for automatic variable '%s' in reentrant function\n" }, -{ ERROR ,"error *** absolute address not allowed for automatic var '%s' in reentrant function \n" }, -{ WARNING,"warning *** Initializer different levels of indirections\n" }, -{ ERROR ,"error *** Function name '%s' redefined \n" }, -{ ERROR ,"error *** Undefined identifier '%s'\n" }, -{ WARNING,"warning *** stack exceeds 256 bytes for function '%s'\n"}, -{ ERROR ,"error *** Array or pointer required for '%s' operation \n" }, -{ ERROR ,"error *** Array index not an integer\n" }, -{ ERROR ,"error *** Array bound Exceeded, assuming zero\n" }, -{ ERROR ,"error *** Structure/Union expected left of '.%s'\n" }, -{ ERROR ,"error *** '%s' not a structure/union member\n" }, -{ ERROR ,"error *** Pointer required\n" }, -{ ERROR ,"error *** 'unary %c': illegal operand\n" }, -{ ERROR ,"error *** convertion error: integral promotion failed\n" }, -{ ERROR ,"error *** type must be INT for bit field definition\n" }, -{ ERROR ,"error *** bit field size greater than 16 . assuming 16\n" }, -{ WARNING,"warning *** high order truncation might occur\n" }, -{ ERROR ,"error *** Attempt to assign value to a constant variable %s\n" }, -{ ERROR ,"error *** Lvalue specifies constant object\n" }, -{ ERROR ,"error *** '&' illegal operand , %s\n" }, -{ ERROR ,"error *** illegal cast (cast cannot be aggregate)\n" }, -{ ERROR ,"error *** '*' bad operand\n" }, -{ ERROR ,"error *** Argument count error, argument ignored\n" }, -{ ERROR ,"error *** Function was expecting more arguments\n" }, -{ ERROR ,"error *** Function name expected '%s'.ANSI style declaration REQUIRED\n"}, -{ ERROR ,"error *** invalid operand '%s'\n" }, -{ ERROR ,"error *** pointer + pointer invalid\n" }, -{ ERROR ,"error *** invalid operand for shift operator\n" }, -{ ERROR ,"error *** compare operand cannot be struct/union\n" }, -{ ERROR ,"error *** operand invalid for bitwise operation\n" }, -{ ERROR ,"error *** Invalid operand for '&&' or '||'\n" }, -{ WARNING,"warning *** indirections to different types %s %s \n" }, -{ ERROR ,"error *** cannot assign values to aggregates\n" }, -{ ERROR ,"error *** bit Arrays can be accessed by literal index only\n" }, -{ ERROR ,"error *** Array or Pointer to bit|sbit|sfr not allowed.'%s'\n" }, -{ ERROR ,"error *** typedef/enum '%s' duplicate.Previous definiton Ignored\n" }, -{ ERROR ,"error *** Actual Argument type different from declaration %d\n" }, -{ ERROR ,"error *** Function return value mismatch\n" }, -{ ERROR ,"error *** Function cannot return aggregate. Func body ignored\n" }, -{ ERROR ,"error *** ANSI Style declaration needed\n" }, -{ ERROR ,"error *** Label name redefined '%s'\n" }, -{ ERROR ,"error *** Label undefined '%s'\n" }, -{ ERROR ,"error *** void function returning value\n" }, -{ ERROR ,"error *** function '%s' must return value\n" }, -{ WARNING,"warning *** function return value mismatch\n" }, -{ ERROR ,"error *** 'case/default' found without 'switch'.statement ignored\n" }, -{ ERROR ,"error *** 'case' expression not constant. statement ignored\n" }, -{ ERROR ,"error *** 'break/continue' statement out of context\n" }, -{ ERROR ,"error *** nonintegral used in switch expression\n" }, -{ ERROR ,"error *** function '%s' already has body\n" }, -{ ERROR ,"error *** attempt to allocate variable of unknown size '%s'\n" }, -{ ERROR ,"error *** aggregate 'auto' variable '%s' cannot be initialized\n" }, -{ ERROR ,"error *** too many initializers\n" }, -{ ERROR ,"error *** struct/union/array '%s' :initialization needs curly braces\n"}, -{ ERROR ,"error *** non-address initialization expression\n" }, -{ ERROR ,"error *** interrupt no '%d' already has a service routine '%s'\n" }, -{ ERROR ,"error *** interrupt routine cannot have arguments, arguments ingored\n"}, -{ ERROR ,"error *** critical compiler #include file missing. \n" }, -{ ERROR ,"error *** function 'main' undefined\n" }, -{ ERROR ,"error *** 'extern' variable '%s' cannot be initialised \n" }, -{ ERROR ,"error *** Pre-Processor %s\n" }, -{ ERROR ,"error *** _dup call failed\n" }, -{ WARNING,"warning *** pointer being cast to incompatible type \n" }, -{ WARNING,"warning *** 'while' loop with 'zero' constant.loop eliminated\n" }, -{ WARNING,"warning *** %s expression has NO side effects.expr eliminated\n" }, -{ WARNING,"warning *** constant value '%s', out of range.\n" }, -{ WARNING,"warning *** comparison will either, ALWAYs succeed or ALWAYs fail\n" }, -{ ERROR ,"error *** Compiler Terminating , contact author with source\n" }, -{ WARNING,"warning *** 'auto' variable '%s' may be used before initialization at %s(%d)\n" }, -{ WARNING,"warning *** in function %s unreferenced %s : '%s'\n" }, -{ ERROR ,"error *** unknown size for operand\n" }, -{ WARNING,"warning *** '%s' 'long' not supported , declared as 'int' .\n" }, -{ WARNING,"warning *** LITERAL value being cast to '_generic' pointer\n" }, -{ ERROR ,"error *** %s '%s' address out of range\n" }, -{ ERROR ,"error *** storage class CANNOT be specified for bit variable '%s'\n" }, -{ WARNING,"warning *** extern definition for '%s' mismatches with declaration.\n" }, -{ WARNING,"warning *** Functions called via pointers must be 'reentrant' to take arguments\n" }, -{ WARNING,"warning *** type 'double' not supported assuming 'float'\n" }, -{ WARNING,"warning *** if-statement condition always false.if-statement not generated\n"}, -{ WARNING,"warning *** no 'return' statement found for function '%s'\n" }, -{ WARNING,"warning *** Pre-Processor %s\n" }, -{ WARNING,"warning *** structure '%s' passed as function argument changed to pointer\n"}, -{ ERROR ,"error *** conflict with previous definition of '%s' for attribute '%s'\n" }, -{ ERROR ,"error *** variable '%s' declared in code space must have initialiser\n" }, -{ ERROR ,"error *** operands not integral for assignment operation\n" }, -{ ERROR ,"error *** too many parameters \n" }, -{ ERROR ,"error *** to few parameters\n" }, -{ ERROR ,"error *** code not generated for '%s' due to previous errors\n"}, -{ WARNING,"warning *** type mismatch for parameter number %d\n"}, -{ ERROR ,"error *** invalid float constant '%s'\n"}, -{ ERROR ,"error *** invalid operand for '%s' operation\n"}, -{ ERROR ,"error *** switch value not an integer\n"}, -{ ERROR ,"error *** case label not an integer\n"}, -{ WARNING,"warning *** function '%s' too large for global optimization\n"}, -{ WARNING,"warning *** conditional flow changed by optimizer '%s(%d)':so said EVELYN the modified DOG\n"}, -{ WARNING,"warning *** invalid type specifier for pointer type specifier ignored\n"}, -{ WARNING,"warning *** function '%s' implicit declaration\n"}, -{ WARNING,"warning *** %s"}, -{ WARNING,"info *** %s extended by %d bytes for compiler temp(s) :in function '%s': %s \n"}, -{ WARNING,"warning *** unknown or unsupported #pragma directive '%s'\n"}, -{ WARNING,"warning *** %s shifting more than size of object changed to zero\n"}, -{ WARNING,"warning *** unknown compiler option '%s' ignored\n"}, -{ WARNING,"warning *** option '%s' no longer supported '%s' \n"}, -{ WARNING,"warning *** don't know what to do with file '%s'. file extension unsupported\n"}, -{ WARNING,"warning *** cannot compile more than one source file . file '%s' ignored\n"}, -{ WARNING,"info *** function '%s', # edges %d , # nodes %d , cyclomatic complexity %d\n"}, -{ ERROR ,"error *** dividing by ZERO\n"}, -{ ERROR ,"error *** function cannot return 'bit'\n"}, -{ ERROR ,"error *** casting from to type 'void' is illegal\n"}, -{ WARNING,"warning *** constant is out of range %s\n" }, -{ WARNING,"warning *** unreachable code %s(%d)\n"}, -{ WARNING,"warning *** non-pointer type cast to _generic pointer\n"}, -{ WARNING,"warning *** possible code generation error at line %d,\n send source to sandeep.dutta@usa.net\n"}, -{ WARNING,"warning *** pointer types incompatible \n" }, -{ WARNING,"warning *** unknown memory model at %s : %d\n" }, -{ ERROR ,"error *** cannot generate code for target '%s'\n"}, -{ WARNING,"warning *** Indirect call to a banked function not implemented.\n"}, -{ WARNING,"warning *** Model '%s' not supported for %s, ignored.\n"}, -{ WARNING,"warning *** Both banked and nonbanked attributes used. nonbanked wins.\n"}, -{ WARNING,"warning *** Both banked and static used. static wins.\n"}, -{ WARNING,"warning *** converting integer type to generic pointer: assuming XDATA\n"} +{ E_DUPLICATE, ERROR_LEVEL_ERROR, + "Duplicate symbol '%s', symbol IGNORED" }, +{ E_SYNTAX_ERROR, ERROR_LEVEL_ERROR, + "Syntax error, declaration ignored at '%s'" }, +{ E_CONST_EXPECTED, ERROR_LEVEL_ERROR, + "Initializer element is not constant" }, +{ E_OUT_OF_MEM, ERROR_LEVEL_ERROR, + "'malloc' failed file '%s' for size %ld" }, +{ E_FILE_OPEN_ERR, ERROR_LEVEL_ERROR, + "'fopen' failed on file '%s'" }, +{ E_INVALID_OCLASS, ERROR_LEVEL_ERROR, + "Internal Error Oclass invalid '%s'" }, +{ E_CANNOT_ALLOC, ERROR_LEVEL_ERROR, + "Cannot allocate variable '%s'." }, +{ E_OLD_STYLE, ERROR_LEVEL_ERROR, + "Old style C declaration. IGNORED '%s'" }, +{ E_STACK_OUT, ERROR_LEVEL_ERROR, + "Out of stack Space. '%s' not allocated" }, +{ E_INTERNAL_ERROR, ERROR_LEVEL_ERROR, + "FATAL Compiler Internal Error in file '%s' line number '%d' : %s \n" + "Contact Author with source code" }, +{ E_LVALUE_REQUIRED, ERROR_LEVEL_ERROR, + "'lvalue' required for '%s' operation." }, +{ E_TMPFILE_FAILED, ERROR_LEVEL_ERROR, + "Creation of temp file failed" }, +{ E_FUNCTION_EXPECTED, ERROR_LEVEL_ERROR, + "called object is not a function" }, +{ E_USING_ERROR, ERROR_LEVEL_ERROR, + "'using', 'interrupt' or 'reentrant' must follow a function definiton.'%s'" }, +{ E_SFR_INIT, ERROR_LEVEL_ERROR, + "Absolute address & initial value both cannot be specified for\n" + " a 'sfr','sbit' storage class, initial value ignored '%s'" }, +{ W_INIT_IGNORED, ERROR_LEVEL_WARNING, + "Variable in the storage class cannot be initialized.'%s'" }, +{ E_AUTO_ASSUMED, ERROR_LEVEL_ERROR, + "variable '%s' must be static to have storage class in reentrant function" }, +{ E_AUTO_ABSA, ERROR_LEVEL_ERROR, + "absolute address not allowed for automatic var '%s' in reentrant function " }, +{ W_INIT_WRONG, ERROR_LEVEL_WARNING, + "Initializer different levels of indirections" }, +{ E_FUNC_REDEF, ERROR_LEVEL_ERROR, + "Function name '%s' redefined " }, +{ E_ID_UNDEF, ERROR_LEVEL_ERROR, + "Undefined identifier '%s'" }, +{ W_STACK_OVERFLOW, ERROR_LEVEL_WARNING, + "stack exceeds 256 bytes for function '%s'" }, +{ E_NEED_ARRAY_PTR, ERROR_LEVEL_ERROR, + "Array or pointer required for '%s' operation " }, +{ E_IDX_NOT_INT, ERROR_LEVEL_ERROR, + "Array index not an integer" }, +{ W_IDX_OUT_OF_BOUNDS, ERROR_LEVEL_WARNING, + "index %i is outside of the array bounds (array size is %i)" }, +{ E_STRUCT_UNION, ERROR_LEVEL_ERROR, + "Structure/Union expected left of '.%s'" }, +{ E_NOT_MEMBER, ERROR_LEVEL_ERROR, + "'%s' not a structure/union member" }, +{ E_PTR_REQD, ERROR_LEVEL_ERROR, + "Pointer required" }, +{ E_UNARY_OP, ERROR_LEVEL_ERROR, + "'unary %c': illegal operand" }, +{ E_CONV_ERR, ERROR_LEVEL_ERROR, + "conversion error: integral promotion failed" }, +{ E_INT_REQD, ERROR_LEVEL_ERROR, + "type must be INT for bit field definition" }, +{ E_BITFLD_SIZE, ERROR_LEVEL_ERROR, + "bit field size cannot be greater than int (%d bits)" }, +{ W_TRUNCATION, ERROR_LEVEL_WARNING, + "high order truncation might occur" }, +{ E_CODE_WRITE, ERROR_LEVEL_ERROR, + "Attempt to assign value to a constant variable (%s)" }, +{ E_LVALUE_CONST, ERROR_LEVEL_ERROR, + "Lvalue specifies constant object" }, +{ E_ILLEGAL_ADDR, ERROR_LEVEL_ERROR, + "'&' illegal operand , %s" }, +{ E_CAST_ILLEGAL, ERROR_LEVEL_ERROR, + "illegal cast (cast cannot be aggregate)" }, +{ E_MULT_INTEGRAL, ERROR_LEVEL_ERROR, + "'*' bad operand" }, +{ E_ARG_ERROR, ERROR_LEVEL_ERROR, + "Argument count error, argument ignored" }, +{ E_ARG_COUNT, ERROR_LEVEL_ERROR, + "Function was expecting more arguments" }, +{ E_FUNC_EXPECTED, ERROR_LEVEL_ERROR, + "Function name expected '%s'. ANSI style declaration REQUIRED" }, +{ E_PLUS_INVALID, ERROR_LEVEL_ERROR, + "invalid operand '%s'" }, +{ E_PTR_PLUS_PTR, ERROR_LEVEL_ERROR, + "pointer + pointer invalid" }, +{ E_SHIFT_OP_INVALID, ERROR_LEVEL_ERROR, + "invalid operand for shift operator" }, +{ E_COMPARE_OP, ERROR_LEVEL_ERROR, + "compare operand cannot be struct/union" }, +{ E_BITWISE_OP, ERROR_LEVEL_ERROR, + "operand invalid for bitwise operation" }, +{ E_ANDOR_OP, ERROR_LEVEL_ERROR, + "Invalid operand for '&&' or '||'" }, +{ E_TYPE_MISMATCH, ERROR_LEVEL_ERROR, + "indirections to different types %s %s " }, +{ E_AGGR_ASSIGN, ERROR_LEVEL_ERROR, + "cannot assign values to aggregates" }, +{ E_ARRAY_DIRECT, ERROR_LEVEL_ERROR, + "bit Arrays can be accessed by literal index only" }, +{ E_BIT_ARRAY, ERROR_LEVEL_ERROR, + "Array or Pointer to bit|sbit|sfr not allowed.'%s'" }, +{ E_DUPLICATE_TYPEDEF, ERROR_LEVEL_ERROR, + "typedef/enum '%s' duplicate. Previous definiton Ignored" }, +{ E_ARG_TYPE, ERROR_LEVEL_ERROR, + "Actual Argument type different from declaration %d" }, +{ E_RET_VALUE, ERROR_LEVEL_ERROR, + "Function return value mismatch" }, +{ E_FUNC_AGGR, ERROR_LEVEL_ERROR, + "Function cannot return aggregate. Func body ignored" }, +{ E_FUNC_DEF, ERROR_LEVEL_ERROR, + "ANSI Style declaration needed" }, +{ E_DUPLICATE_LABEL, ERROR_LEVEL_ERROR, + "Duplicate label '%s'" }, +{ E_LABEL_UNDEF, ERROR_LEVEL_ERROR, + "Label undefined '%s'" }, +{ E_FUNC_VOID, ERROR_LEVEL_ERROR, + "void function returning value" }, +{ W_VOID_FUNC, ERROR_LEVEL_WARNING, + "function '%s' must return value" }, +{ W_RETURN_MISMATCH, ERROR_LEVEL_WARNING, + "function return value mismatch" }, +{ E_CASE_CONTEXT, ERROR_LEVEL_ERROR, + "'case/default' found without 'switch'. Statement ignored" }, +{ E_CASE_CONSTANT, ERROR_LEVEL_ERROR, + "'case' expression not constant. Statement ignored" }, +{ E_BREAK_CONTEXT, ERROR_LEVEL_ERROR, + "'break/continue' statement out of context" }, +{ E_SWITCH_AGGR, ERROR_LEVEL_ERROR, + "nonintegral used in switch expression" }, +{ E_FUNC_BODY, ERROR_LEVEL_ERROR, + "function '%s' already has body" }, +{ E_UNKNOWN_SIZE, ERROR_LEVEL_ERROR, + "attempt to allocate variable of unknown size '%s'" }, +{ E_AUTO_AGGR_INIT, ERROR_LEVEL_ERROR, + "aggregate 'auto' variable '%s' cannot be initialized" }, +{ E_INIT_COUNT, ERROR_LEVEL_ERROR, + "too many initializers" }, +{ E_INIT_STRUCT, ERROR_LEVEL_ERROR, + "struct/union/array '%s': initialization needs curly braces" }, +{ E_INIT_NON_ADDR, ERROR_LEVEL_ERROR, + "non-address initialization expression" }, +{ E_INT_DEFINED, ERROR_LEVEL_ERROR, + "interrupt no '%d' already has a service routine '%s'" }, +{ E_INT_ARGS, ERROR_LEVEL_ERROR, + "interrupt routine cannot have arguments, arguments ingored" }, +{ E_INCLUDE_MISSING, ERROR_LEVEL_ERROR, + "critical compiler #include file missing. " }, +{ E_NO_MAIN, ERROR_LEVEL_ERROR, + "function 'main' undefined" }, +{ E_EXTERN_INIT, ERROR_LEVEL_ERROR, + "'extern' variable '%s' cannot be initialised " }, +{ E_PRE_PROC_FAILED, ERROR_LEVEL_ERROR, + "Pre-Processor %s" }, +{ E_DUP_FAILED, ERROR_LEVEL_ERROR, + "_dup call failed" }, +{ E_INCOMPAT_TYPES, ERROR_LEVEL_ERROR, + "incompatible types" }, +{ W_LOOP_ELIMINATE, ERROR_LEVEL_WARNING, + "'while' loop with 'zero' constant. Loop eliminated" }, +{ W_NO_SIDE_EFFECTS, ERROR_LEVEL_WARNING, + "%s expression has NO side effects. Expr eliminated" }, +{ W_CONST_TOO_LARGE, ERROR_LEVEL_PEDANTIC, + "constant value '%s', out of range." }, +{ W_BAD_COMPARE, ERROR_LEVEL_WARNING, + "comparison will either, ALWAYs succeed or ALWAYs fail" }, +{ E_TERMINATING, ERROR_LEVEL_ERROR, + "Compiler Terminating , contact author with source" }, +{ W_LOCAL_NOINIT, ERROR_LEVEL_WARNING, + "'auto' variable '%s' may be used before initialization" }, +{ W_NO_REFERENCE, ERROR_LEVEL_WARNING, + "in function %s unreferenced %s : '%s'" }, +{ E_OP_UNKNOWN_SIZE, ERROR_LEVEL_ERROR, + "unknown size for operand" }, +{ W_LONG_UNSUPPORTED, ERROR_LEVEL_WARNING, + "'%s' 'long' not supported , declared as 'int'." }, +{ E_LITERAL_GENERIC, ERROR_LEVEL_ERROR, + //"illegal cast of LITERAL value to 'generic' pointer: assuming 'xdata' pointer" }, + "illegal cast of LITERAL value to 'generic' pointer" }, +{ E_SFR_ADDR_RANGE, ERROR_LEVEL_ERROR, + "%s '%s' address out of range" }, +{ E_BITVAR_STORAGE, ERROR_LEVEL_ERROR, + "storage class CANNOT be specified for bit variable '%s'" }, +{ E_EXTERN_MISMATCH, ERROR_LEVEL_ERROR, + "extern definition for '%s' mismatches with declaration." }, +{ E_NONRENT_ARGS, ERROR_LEVEL_ERROR, + "Functions called via pointers must be 'reentrant' to take this many arguments" }, +{ W_DOUBLE_UNSUPPORTED, ERROR_LEVEL_WARNING, + "type 'double' not supported assuming 'float'" }, +{ W_COMP_RANGE, ERROR_LEVEL_WARNING, + "comparison is always %s due to limited range of data type" }, +{ W_FUNC_NO_RETURN, ERROR_LEVEL_WARNING, + "no 'return' statement found for function '%s'" }, +{ W_PRE_PROC_WARNING, ERROR_LEVEL_WARNING, + "Pre-Processor %s" }, +{ W_STRUCT_AS_ARG, ERROR_LEVEL_WARNING, + "structure '%s' passed as function argument changed to pointer" }, +{ E_PREV_DEF_CONFLICT, ERROR_LEVEL_ERROR, + "conflict with previous definition of '%s' for attribute '%s'" }, +{ E_CODE_NO_INIT, ERROR_LEVEL_ERROR, + "variable '%s' declared in code space must have initialiser" }, +{ E_OPS_INTEGRAL, ERROR_LEVEL_ERROR, + "operands not integral for assignment operation" }, +{ E_TOO_MANY_PARMS, ERROR_LEVEL_ERROR, + "too many parameters " }, +{ E_TOO_FEW_PARMS, ERROR_LEVEL_ERROR, + "too few parameters" }, +{ E_FUNC_NO_CODE, ERROR_LEVEL_ERROR, + "code not generated for '%s' due to previous errors" }, +{ E_TYPE_MISMATCH_PARM, ERROR_LEVEL_ERROR, + "type mismatch for parameter number %d" }, +{ E_INVALID_FLOAT_CONST, ERROR_LEVEL_ERROR, + "invalid float constant '%s'" }, +{ E_INVALID_OP, ERROR_LEVEL_ERROR, + "invalid operand for '%s' operation" }, +{ E_SWITCH_NON_INTEGER, ERROR_LEVEL_ERROR, + "switch value not an integer" }, +{ E_CASE_NON_INTEGER, ERROR_LEVEL_ERROR, + "case label not an integer" }, +{ W_FUNC_TOO_LARGE, ERROR_LEVEL_WARNING, + "function '%s' too large for global optimization" }, +{ W_CONTROL_FLOW, ERROR_LEVEL_PEDANTIC, + "conditional flow changed by optimizer: so said EVELYN the modified DOG" }, +{ W_PTR_TYPE_INVALID, ERROR_LEVEL_WARNING, + "invalid type specifier for pointer type; specifier ignored" }, +{ W_IMPLICIT_FUNC, ERROR_LEVEL_WARNING, + "function '%s' implicit declaration" }, +{ W_CONTINUE, ERROR_LEVEL_WARNING, + "%s" }, +{ I_EXTENDED_STACK_SPILS, ERROR_LEVEL_INFO, + "extended stack by %d bytes for compiler temp(s) :in function '%s': %s " }, +{ W_UNKNOWN_PRAGMA, ERROR_LEVEL_WARNING, + "unknown or unsupported #pragma directive '%s'" }, +{ W_SHIFT_CHANGED, ERROR_LEVEL_PEDANTIC, + "%s shifting more than size of object changed to zero" }, +{ W_UNKNOWN_OPTION, ERROR_LEVEL_WARNING, + "unknown compiler option '%s' ignored" }, +{ W_UNSUPP_OPTION, ERROR_LEVEL_WARNING, + "option '%s' no longer supported '%s' " }, +{ W_UNKNOWN_FEXT, ERROR_LEVEL_WARNING, + "don't know what to do with file '%s'. file extension unsupported" }, +{ W_TOO_MANY_SRC, ERROR_LEVEL_WARNING, + "cannot compile more than one source file. file '%s' ignored" }, +{ I_CYCLOMATIC, ERROR_LEVEL_INFO, + "function '%s', # edges %d , # nodes %d , cyclomatic complexity %d" }, +{ E_DIVIDE_BY_ZERO, ERROR_LEVEL_ERROR, + "dividing by ZERO" }, +{ E_FUNC_BIT, ERROR_LEVEL_ERROR, + "function cannot return 'bit'" }, +{ E_CAST_ZERO, ERROR_LEVEL_ERROR, + "casting from to type 'void' is illegal" }, +{ W_CONST_RANGE, ERROR_LEVEL_WARNING, + "constant is out of range %s" }, +{ W_CODE_UNREACH, ERROR_LEVEL_PEDANTIC, + "unreachable code" }, +{ E_NONPTR2_GENPTR, ERROR_LEVEL_ERROR, + "non-pointer type cast to generic pointer" }, +{ W_POSSBUG, ERROR_LEVEL_WARNING, + "possible code generation error at line %d,\n" + " send source to sandeep.dutta@usa.net" }, +{ E_INCOMPAT_PTYPES, ERROR_LEVEL_ERROR, + "pointer types incompatible " }, +{ W_UNKNOWN_MODEL, ERROR_LEVEL_WARNING, + "unknown memory model at %s : %d" }, +{ E_UNKNOWN_TARGET, ERROR_LEVEL_ERROR, + "cannot generate code for target '%s'" }, +{ W_INDIR_BANKED, ERROR_LEVEL_WARNING, + "Indirect call to a banked function not implemented." }, +{ W_UNSUPPORTED_MODEL, ERROR_LEVEL_WARNING, + "Model '%s' not supported for %s, ignored." }, +{ W_BANKED_WITH_NONBANKED, ERROR_LEVEL_WARNING, + "Both banked and nonbanked attributes used. nonbanked wins." }, +{ W_BANKED_WITH_STATIC, ERROR_LEVEL_WARNING, + "Both banked and static used. static wins." }, +{ W_INT_TO_GEN_PTR_CAST, ERROR_LEVEL_WARNING, + "converting integer type to generic pointer: assuming XDATA" }, +{ W_ESC_SEQ_OOR_FOR_CHAR, ERROR_LEVEL_WARNING, + "escape sequence out of range for char." }, +{ E_INVALID_HEX, ERROR_LEVEL_ERROR, + "\\x used with no following hex digits." }, +{ W_FUNCPTR_IN_USING_ISR, ERROR_LEVEL_WARNING, + "call via function pointer in ISR using non-zero register bank.\n" + " Cannot determine which register bank to save." }, +{ E_NO_SUCH_BANK, ERROR_LEVEL_ERROR, + "called function uses unknown register bank %d." }, +{ E_TWO_OR_MORE_DATA_TYPES, ERROR_LEVEL_ERROR, + "two or more data types in declaration for '%s'" }, +{ E_LONG_OR_SHORT_INVALID, ERROR_LEVEL_ERROR, + "long or short specified for %s '%s'" }, +{ E_SIGNED_OR_UNSIGNED_INVALID, ERROR_LEVEL_ERROR, + "signed or unsigned specified for %s '%s'" }, +{ E_LONG_AND_SHORT_INVALID, ERROR_LEVEL_ERROR, + "both long and short specified for %s '%s'" }, +{ E_SIGNED_AND_UNSIGNED_INVALID, ERROR_LEVEL_ERROR, + "both signed and unsigned specified for %s '%s'" }, +{ E_TWO_OR_MORE_STORAGE_CLASSES, ERROR_LEVEL_ERROR, + "two or more storage classes in declaration for '%s'" }, +{ W_EXCESS_INITIALIZERS, ERROR_LEVEL_WARNING, + "excess elements in %s initializer after '%s'" }, +{ E_ARGUMENT_MISSING, ERROR_LEVEL_ERROR, + "Option %s requires an argument." }, +{ W_STRAY_BACKSLASH, ERROR_LEVEL_WARNING, + "stray '\\' at column %d" }, +{ W_NEWLINE_IN_STRING, ERROR_LEVEL_WARNING, + "newline in string constant" }, +{ E_CANNOT_USE_GENERIC_POINTER, ERROR_LEVEL_ERROR, + "cannot use generic pointer %s to initialize %s" }, +{ W_EXCESS_SHORT_OPTIONS, ERROR_LEVEL_WARNING, + "Only one short option can be specified at a time. Rest of %s ignored." }, +{ E_VOID_VALUE_USED, ERROR_LEVEL_ERROR, + "void value not ignored as it ought to be" }, +{ W_INTEGRAL2PTR_NOCAST, ERROR_LEVEL_WARNING, + "converting integral to pointer without a cast" }, +{ W_PTR2INTEGRAL_NOCAST, ERROR_LEVEL_WARNING, + "converting pointer to integral without a cast" }, +{ W_SYMBOL_NAME_TOO_LONG, ERROR_LEVEL_WARNING, + "symbol name too long, truncated to %d chars" }, +{ W_CAST_STRUCT_PTR,ERROR_LEVEL_WARNING, + "cast of struct %s * to struct %s * " }, +{ W_LIT_OVERFLOW, ERROR_LEVEL_WARNING, + "overflow in implicit constant conversion" }, +{ E_PARAM_NAME_OMITTED, ERROR_LEVEL_ERROR, + "in function %s: name omitted for parameter %d" }, +{ W_NO_FILE_ARG_IN_C1, ERROR_LEVEL_WARNING, + "only standard input is compiled in c1 mode. file '%s' ignored" }, +{ E_NEED_OPT_O_IN_C1, ERROR_LEVEL_ERROR, + "must specify assembler file name with -o in c1 mode" }, +{ W_ILLEGAL_OPT_COMBINATION, ERROR_LEVEL_WARNING, + "illegal combination of options (--c1mode, -E, -S -c)" }, +{ E_DUPLICATE_MEMBER, ERROR_LEVEL_ERROR, + "duplicate %s member '%s'" }, +{ E_STACK_VIOLATION, ERROR_LEVEL_ERROR, + "'%s' internal stack %s" }, +{ W_INT_OVL, ERROR_LEVEL_PEDANTIC, + "integer overflow in expression" }, +{ W_USELESS_DECL, ERROR_LEVEL_WARNING, + "useless declaration (possible use of keyword as variable name)" }, +{ E_INT_BAD_INTNO, ERROR_LEVEL_ERROR, + "interrupt number '%u' is not valid" }, +{ W_BITFLD_NAMED, ERROR_LEVEL_WARNING, + "ignoring declarator of 0 length bitfield" }, +{ E_FUNC_ATTR, ERROR_LEVEL_ERROR, + "function attribute following non-function declaration"}, +{ W_SAVE_RESTORE, ERROR_LEVEL_PEDANTIC, + "unmatched #pragma save and #pragma restore" }, +{ E_INVALID_CRITICAL, ERROR_LEVEL_ERROR, + "not allowed in a critical section" }, +{ E_NOT_ALLOWED, ERROR_LEVEL_ERROR, + "%s not allowed here" }, +{ E_BAD_TAG, ERROR_LEVEL_ERROR, + "'%s' is not a %s tag" }, +{ E_ENUM_NON_INTEGER, ERROR_LEVEL_ERROR, + "enumeration constant not an integer" }, +{ W_DEPRECATED_PRAGMA, ERROR_LEVEL_WARNING, + "pragma %s is deprecated, please see documentation for details" }, +{ E_SIZEOF_INCOMPLETE_TYPE, ERROR_LEVEL_ERROR, + "sizeof applied to an incomplete type" }, +{ E_PREVIOUS_DEF, ERROR_LEVEL_ERROR, + "previously defined here" }, +{ W_SIZEOF_VOID, ERROR_LEVEL_WARNING, + "size of void is zero" }, +{ W_POSSBUG2, ERROR_LEVEL_WARNING, + "possible code generation error at %s line %d,\n" + " please report problem and send source code at SDCC-USER list on SF.Net"}, +{ W_COMPLEMENT, ERROR_LEVEL_WARNING, + "using ~ on bit/bool/unsigned char variables can give unexpected results due to promotion to int" }, +{ E_SHADOWREGS_NO_ISR, ERROR_LEVEL_ERROR, + "ISR function attribute 'shadowregs' following non-ISR function '%s'" }, +{ W_SFR_ABSRANGE, ERROR_LEVEL_WARNING, + "absolute address for sfr '%s' probably out of range." }, +{ E_BANKED_WITH_CALLEESAVES, ERROR_LEVEL_ERROR, + "Both banked and callee-saves cannot be used together." }, +{ W_INVALID_INT_CONST, ERROR_LEVEL_WARNING, + "integer constant '%s' out of range, truncated to %.0lf." }, +{ W_CMP_SU_CHAR, ERROR_LEVEL_PEDANTIC, + "comparison of 'signed char' with 'unsigned char' requires promotion to int" }, +{ W_INVALID_FLEXARRAY, ERROR_LEVEL_WARNING, + "invalid use of structure with flexible array member" }, +{ W_C89_NO_FLEXARRAY, ERROR_LEVEL_PEDANTIC, + "ISO C90 does not support flexible array members" }, +{ E_FLEXARRAY_NOTATEND, ERROR_LEVEL_ERROR, + "flexible array member not at end of struct" }, +{ E_FLEXARRAY_INEMPTYSTRCT, ERROR_LEVEL_ERROR, + "flexible array in otherwise empty struct" }, +{ W_EMPTY_SOURCE_FILE, ERROR_LEVEL_WARNING, + "ISO C forbids an empty source file" }, +{ W_BAD_PRAGMA_ARGUMENTS, ERROR_LEVEL_WARNING, + "#pragma %s: bad argument(s); pragma ignored" }, +{ E_BAD_RESTRICT, ERROR_LEVEL_ERROR, + "Only pointers may be qualified with 'restrict'" }, +{ E_BAD_INLINE, ERROR_LEVEL_ERROR, + "Only functions may be qualified with 'inline'" }, +{ E_BAD_INT_ARGUMENT, ERROR_LEVEL_ERROR, + "Bad integer argument for option %s" }, +{ E_NEGATIVE_ARRAY_SIZE, ERROR_LEVEL_ERROR, + "Size of array '%s' is negative" }, }; -void vwerror (int errNum, va_list marker) +/* +------------------------------------------------------------------------------- +SetErrorOut - Set the error output file + +------------------------------------------------------------------------------- +*/ + +FILE *SetErrorOut(FILE *NewErrorOut) +{ + _SDCCERRG.out = NewErrorOut ; + + return NewErrorOut ; +} + +void setErrorLogLevel (ERROR_LOG_LEVEL level) +{ + _SDCCERRG.logLevel = level; +} + +/* +------------------------------------------------------------------------------- +vwerror - Output a standard error message with variable number of arguments + +------------------------------------------------------------------------------- +*/ + +void vwerror (int errNum, va_list marker) { - if ( ErrTab[errNum].errType== ERROR ) - fatalError++ ; + if (_SDCCERRG.out == NULL) { + _SDCCERRG.out = DEFAULT_ERROR_OUT; + } + + if (ErrTab[errNum].errIndex != errNum) { + fprintf(_SDCCERRG.out, + "Internal error: error table entry for %d inconsistent.", errNum); + } + + if ((ErrTab[errNum].errType >= _SDCCERRG.logLevel) && (!_SDCCERRG.disabled[errNum])) { + if ( ErrTab[errNum].errType == ERROR_LEVEL_ERROR || _SDCCERRG.werror ) + fatalError++ ; + + if ( filename && lineno ) { + if(_SDCCERRG.style) + fprintf(_SDCCERRG.out, "%s(%d) : ",filename,lineno); + else + fprintf(_SDCCERRG.out, "%s:%d: ",filename,lineno); + } else if (lineno) { + fprintf(_SDCCERRG.out, "at %d: ", lineno); + } else { + fprintf(_SDCCERRG.out, "-:0: "); + } + + switch(ErrTab[errNum].errType) + { + case ERROR_LEVEL_ERROR: + fprintf(_SDCCERRG.out, "error %d: ", errNum); + break; + case ERROR_LEVEL_WARNING: + case ERROR_LEVEL_PEDANTIC: + if (_SDCCERRG.werror) + fprintf(_SDCCERRG.out, "error %d: ", errNum); + else + fprintf(_SDCCERRG.out, "warning %d: ", errNum); + break; + case ERROR_LEVEL_INFO: + fprintf(_SDCCERRG.out, "info %d: ", errNum); + break; + default: + break; + } - if ( filename && lineno ) { - fprintf(ERRSINK, "%s(%d):",filename,lineno); + vfprintf(_SDCCERRG.out, ErrTab[errNum].errText,marker); + fprintf(_SDCCERRG.out, "\n"); } else { - fprintf(ERRSINK, "at %d:",lineno); + /* Below the logging level, drop. */ } - vfprintf(ERRSINK, ErrTab[errNum].errText,marker); } +/* +------------------------------------------------------------------------------- +werror - Output a standard error message with variable number of arguments + +------------------------------------------------------------------------------- +*/ + +void werror (int errNum, ...) +{ + va_list marker; + va_start(marker,errNum); + vwerror(errNum, marker); + va_end(marker); +} + +/* +------------------------------------------------------------------------------- +werrorfl - Output a standard error message with variable number of arguments. + Use a specified filename and line number instead of the default. + +------------------------------------------------------------------------------- +*/ + +void werrorfl (char *newFilename, int newLineno, int errNum, ...) +{ + char *oldFilename = filename; + int oldLineno = lineno; + va_list marker; + + filename = newFilename; + lineno = newLineno; + + va_start(marker,errNum); + vwerror(errNum, marker); + va_end(marker); + + filename = oldFilename; + lineno = oldLineno; +} + -/****************************************************************************/ -/* werror - writes an error to the listing file & to standarderr */ -/****************************************************************************/ -void werror (int errNum, ... ) +/* +------------------------------------------------------------------------------- +fatal - Output a standard error message with variable number of arguments and + call exit() +------------------------------------------------------------------------------- +*/ +void fatal (int exitCode, int errNum, ...) { - va_list marker; + va_list marker; va_start(marker,errNum); vwerror(errNum, marker); - va_end( marker ); + va_end(marker); + + exit(exitCode); +} + +/* +------------------------------------------------------------------------------- +style - Change the output error style to MSVC +------------------------------------------------------------------------------- +*/ + +void MSVC_style (int style) +{ + _SDCCERRG.style = style; +} + +/* +------------------------------------------------------------------------------- +disabled - Disable output of specified warning +------------------------------------------------------------------------------- +*/ + +void setWarningDisabled (int errNum) +{ + if ((errNum < MAX_ERROR_WARNING) && (ErrTab[errNum].errType <= ERROR_LEVEL_WARNING)) + _SDCCERRG.disabled[errNum] = 1; } +/* +------------------------------------------------------------------------------- +Set the flag to treat warnings as errors +------------------------------------------------------------------------------- +*/ + +void setWError (int flag) +{ + _SDCCERRG.werror = flag; +}