*/
#include <stdio.h>
+#include <stdlib.h>
#include "SDCCerr.h"
-
#define USE_STDOUT_FOR_ERRORS 0
#if USE_STDOUT_FOR_ERRORS
static struct {
ERROR_LOG_LEVEL logLevel;
FILE *out;
+ int style; /* 1=MSVC */
} _SDCCERRG;
-#define PEDANTIC 0
-#define WARNING 1
-#define ERROR 2
-
extern char *filename ;
extern int lineno ;
extern int fatalError ;
*/
struct
{
- int errIndex;
- int errType;
- char *errText;
+ int errIndex;
+ ERROR_LOG_LEVEL errType;
+ const char *errText;
} ErrTab [] =
{
-{ E_DUPLICATE, ERROR,
- "error *** Duplicate symbol '%s', symbol IGNORED\n" },
-{ E_SYNTAX_ERROR, ERROR,
- "error *** Syntax Error Declaration ignored\n" },
-{ E_CONST_EXPECTED, ERROR,
- "error *** Constant Expected Found Variable\n" },
-{ E_OUT_OF_MEM, ERROR,
- "error *** 'malloc' failed file '%s' for size %ld\n" },
-{ E_FILE_OPEN_ERR, ERROR,
- "error *** 'fopen' failed on file '%s'\n" },
-{ E_INVALID_OCLASS, ERROR,
- "error *** Internal Error Oclass invalid '%s'\n" },
-{ E_CANNOT_ALLOC, ERROR,
- "error *** Cannot allocate variable '%s'.\n" },
-{ E_OLD_STYLE, ERROR,
- "error *** Old style C declaration. IGNORED '%s'\n" },
-{ E_STACK_OUT, ERROR,
- "error *** Out of stack Space. '%s' not allocated\n" },
-{ E_INTERNAL_ERROR, ERROR,
- "error *** FATAL Compiler Internal Error in file '%s' line number '%d' : %s \nContact Author with source code\n" },
-{ E_LVALUE_REQUIRED, ERROR,
- "error *** 'lvalue' required for '%s' operation .\n" },
-{ E_TMPFILE_FAILED, ERROR,
- "error *** Creation of temp file failed\n" },
-{ E_FUNCTION_EXPECTED, ERROR,
- "error *** Function expected here '%s'\n" },
-{ E_USING_ERROR, ERROR,
- "error *** 'using', 'interrupt' or 'reentrant' must follow a function definiton .'%s'\n" },
-{ E_SFR_INIT, ERROR,
- "error *** Absolute address & initial value both cannot be specified for\n a 'sfr','sbit' storage class, initial value ignored '%s'\n" },
-{ E_INIT_IGNORED, WARNING,
- "warning *** Variable in the storage class cannot be initialized.'%s'\n" },
-{ E_AUTO_ASSUMED, WARNING,
- "warning *** storage class not allowed for automatic variable '%s' in reentrant function\n" },
-{ E_AUTO_ABSA, ERROR,
- "error *** absolute address not allowed for automatic var '%s' in reentrant function \n" },
-{ E_INIT_WRONG, WARNING,
- "warning *** Initializer different levels of indirections\n" },
-{ E_FUNC_REDEF, ERROR,
- "error *** Function name '%s' redefined \n" },
-{ E_ID_UNDEF, ERROR,
- "error *** Undefined identifier '%s'\n" },
-{ W_STACK_OVERFLOW, WARNING,
- "warning *** stack exceeds 256 bytes for function '%s'\n" },
-{ E_NEED_ARRAY_PTR, ERROR,
- "error *** Array or pointer required for '%s' operation \n" },
-{ E_IDX_NOT_INT, ERROR,
- "error *** Array index not an integer\n" },
-{ E_ARRAY_BOUND, ERROR,
- "error *** Array bound Exceeded, assuming zero\n" },
-{ E_STRUCT_UNION, ERROR,
- "error *** Structure/Union expected left of '.%s'\n" },
-{ E_NOT_MEMBER, ERROR,
- "error *** '%s' not a structure/union member\n" },
-{ E_PTR_REQD, ERROR,
- "error *** Pointer required\n" },
-{ E_UNARY_OP, ERROR,
- "error *** 'unary %c': illegal operand\n" },
-{ E_CONV_ERR, ERROR,
- "error *** convertion error: integral promotion failed\n" },
-{ E_INT_REQD, ERROR,
- "error *** type must be INT for bit field definition\n" },
-{ E_BITFLD_SIZE, ERROR,
- "error *** bit field size greater than 16 . assuming 16\n" },
-{ E_TRUNCATION, WARNING,
- "warning *** high order truncation might occur\n" },
-{ E_CODE_WRITE, ERROR,
- "error *** Attempt to assign value to a constant variable %s\n" },
-{ E_LVALUE_CONST, ERROR,
- "error *** Lvalue specifies constant object\n" },
-{ E_ILLEGAL_ADDR, ERROR,
- "error *** '&' illegal operand , %s\n" },
-{ E_CAST_ILLEGAL, ERROR,
- "error *** illegal cast (cast cannot be aggregate)\n" },
-{ E_MULT_INTEGRAL, ERROR,
- "error *** '*' bad operand\n" },
-{ E_ARG_ERROR, ERROR,
- "error *** Argument count error, argument ignored\n" },
-{ E_ARG_COUNT, ERROR,
- "error *** Function was expecting more arguments\n" },
-{ E_FUNC_EXPECTED, ERROR,
- "error *** Function name expected '%s'.ANSI style declaration REQUIRED\n" },
-{ E_PLUS_INVALID, ERROR,
- "error *** invalid operand '%s'\n" },
-{ E_PTR_PLUS_PTR, ERROR,
- "error *** pointer + pointer invalid\n" },
-{ E_SHIFT_OP_INVALID, ERROR,
- "error *** invalid operand for shift operator\n" },
-{ E_COMPARE_OP, ERROR,
- "error *** compare operand cannot be struct/union\n" },
-{ E_BITWISE_OP, ERROR,
- "error *** operand invalid for bitwise operation\n" },
-{ E_ANDOR_OP, ERROR,
- "error *** Invalid operand for '&&' or '||'\n" },
-{ E_TYPE_MISMATCH, WARNING,
- "warning *** indirections to different types %s %s \n" },
-{ E_AGGR_ASSIGN, ERROR,
- "error *** cannot assign values to aggregates\n" },
-{ E_ARRAY_DIRECT, ERROR,
- "error *** bit Arrays can be accessed by literal index only\n" },
-{ E_BIT_ARRAY, ERROR,
- "error *** Array or Pointer to bit|sbit|sfr not allowed.'%s'\n" },
-{ E_DUPLICATE_TYPEDEF, ERROR,
- "error *** typedef/enum '%s' duplicate.Previous definiton Ignored\n" },
-{ E_ARG_TYPE, ERROR,
- "error *** Actual Argument type different from declaration %d\n" },
-{ E_RET_VALUE, ERROR,
- "error *** Function return value mismatch\n" },
-{ E_FUNC_AGGR, ERROR,
- "error *** Function cannot return aggregate. Func body ignored\n" },
-{ E_FUNC_DEF, ERROR,
- "error *** ANSI Style declaration needed\n" },
-{ E_DUPLICATE_LABEL, ERROR,
- "error *** Label name redefined '%s'\n" },
-{ E_LABEL_UNDEF, ERROR,
- "error *** Label undefined '%s'\n" },
-{ E_FUNC_VOID, ERROR,
- "error *** void function returning value\n" },
-{ E_VOID_FUNC, ERROR,
- "error *** function '%s' must return value\n" },
-{ E_RETURN_MISMATCH, WARNING,
- "warning *** function return value mismatch\n" },
-{ E_CASE_CONTEXT, ERROR,
- "error *** 'case/default' found without 'switch'.statement ignored\n" },
-{ E_CASE_CONSTANT, ERROR,
- "error *** 'case' expression not constant. statement ignored\n" },
-{ E_BREAK_CONTEXT, ERROR,
- "error *** 'break/continue' statement out of context\n" },
-{ E_SWITCH_AGGR, ERROR,
- "error *** nonintegral used in switch expression\n" },
-{ E_FUNC_BODY, ERROR,
- "error *** function '%s' already has body\n" },
-{ E_UNKNOWN_SIZE, ERROR,
- "error *** attempt to allocate variable of unknown size '%s'\n" },
-{ E_AUTO_AGGR_INIT, ERROR,
- "error *** aggregate 'auto' variable '%s' cannot be initialized\n" },
-{ E_INIT_COUNT, ERROR,
- "error *** too many initializers\n" },
-{ E_INIT_STRUCT, ERROR,
- "error *** struct/union/array '%s' :initialization needs curly braces\n" },
-{ E_INIT_NON_ADDR, ERROR,
- "error *** non-address initialization expression\n" },
-{ E_INT_DEFINED, ERROR,
- "error *** interrupt no '%d' already has a service routine '%s'\n" },
-{ E_INT_ARGS, ERROR,
- "error *** interrupt routine cannot have arguments, arguments ingored\n" },
-{ E_INCLUDE_MISSING, ERROR,
- "error *** critical compiler #include file missing. \n" },
-{ E_NO_MAIN, ERROR,
- "error *** function 'main' undefined\n" },
-{ E_EXTERN_INIT, ERROR,
- "error *** 'extern' variable '%s' cannot be initialised \n" },
-{ E_PRE_PROC_FAILED, ERROR,
- "error *** Pre-Processor %s\n" },
-{ E_DUP_FAILED, ERROR,
- "error *** _dup call failed\n" },
-{ E_INCOMPAT_CAST, WARNING,
- "warning *** pointer being cast to incompatible type \n" },
-{ E_LOOP_ELIMINATE, WARNING,
- "warning *** 'while' loop with 'zero' constant.loop eliminated\n" },
-{ W_NO_SIDE_EFFECTS, WARNING,
- "warning *** %s expression has NO side effects.expr eliminated\n" },
-{ E_CONST_TOO_LARGE, PEDANTIC,
- "warning *** constant value '%s', out of range.\n" },
-{ W_BAD_COMPARE, WARNING,
- "warning *** comparison will either, ALWAYs succeed or ALWAYs fail\n" },
-{ E_TERMINATING, ERROR,
- "error *** Compiler Terminating , contact author with source\n" },
-{ W_LOCAL_NOINIT, WARNING,
- "warning *** 'auto' variable '%s' may be used before initialization at %s(%d)\n" },
-{ W_NO_REFERENCE, WARNING,
- "warning *** in function %s unreferenced %s : '%s'\n" },
-{ E_OP_UNKNOWN_SIZE, ERROR,
- "error *** unknown size for operand\n" },
-{ W_LONG_UNSUPPORTED, WARNING,
- "warning *** '%s' 'long' not supported , declared as 'int' .\n" },
-{ W_LITERAL_GENERIC, WARNING,
- "warning *** LITERAL value being cast to '_generic' pointer\n" },
-{ E_SFR_ADDR_RANGE, ERROR,
- "error *** %s '%s' address out of range\n" },
-{ E_BITVAR_STORAGE, ERROR,
- "error *** storage class CANNOT be specified for bit variable '%s'\n" },
-{ W_EXTERN_MISMATCH, WARNING,
- "warning *** extern definition for '%s' mismatches with declaration.\n" },
-{ E_NONRENT_ARGS, WARNING,
- "warning *** Functions called via pointers must be 'reentrant' to take arguments\n" },
-{ W_DOUBLE_UNSUPPORTED, WARNING,
- "warning *** type 'double' not supported assuming 'float'\n" },
-{ W_IF_NEVER_TRUE, WARNING,
- "warning *** if-statement condition always false.if-statement not generated\n" },
-{ W_FUNC_NO_RETURN, WARNING,
- "warning *** no 'return' statement found for function '%s'\n" },
-{ W_PRE_PROC_WARNING, WARNING,
- "warning *** Pre-Processor %s\n" },
-{ W_STRUCT_AS_ARG, WARNING,
- "warning *** structure '%s' passed as function argument changed to pointer\n" },
-{ E_PREV_DEF_CONFLICT, ERROR,
- "error *** conflict with previous definition of '%s' for attribute '%s'\n" },
-{ E_CODE_NO_INIT, ERROR,
- "error *** variable '%s' declared in code space must have initialiser\n" },
-{ E_OPS_INTEGRAL, ERROR,
- "error *** operands not integral for assignment operation\n" },
-{ E_TOO_MANY_PARMS, ERROR,
- "error *** too many parameters \n" },
-{ E_TOO_FEW_PARMS, ERROR,
- "error *** too few parameters\n" },
-{ E_FUNC_NO_CODE, ERROR,
- "error *** code not generated for '%s' due to previous errors\n" },
-{ E_TYPE_MISMATCH_PARM, WARNING,
- "warning *** type mismatch for parameter number %d\n" },
-{ E_INVALID_FLOAT_CONST, ERROR,
- "error *** invalid float constant '%s'\n" },
-{ E_INVALID_OP, ERROR,
- "error *** invalid operand for '%s' operation\n" },
-{ E_SWITCH_NON_INTEGER, ERROR,
- "error *** switch value not an integer\n" },
-{ E_CASE_NON_INTEGER, ERROR,
- "error *** case label not an integer\n" },
-{ E_FUNC_TOO_LARGE, WARNING,
- "warning *** function '%s' too large for global optimization\n" },
-{ W_CONTROL_FLOW, PEDANTIC,
- "warning *** conditional flow changed by optimizer '%s(%d)':so said EVELYN the modified DOG\n" },
-{ W_PTR_TYPE_INVALID, WARNING,
- "warning *** invalid type specifier for pointer type specifier ignored\n" },
-{ W_IMPLICIT_FUNC, WARNING,
- "warning *** function '%s' implicit declaration\n" },
-{ E_CONTINUE, WARNING,
- "warning *** %s" },
-{ W_TOOMANY_SPILS, WARNING,
- "info *** %s extended by %d bytes for compiler temp(s) :in function '%s': %s \n" },
-{ W_UNKNOWN_PRAGMA, WARNING,
- "warning *** unknown or unsupported #pragma directive '%s'\n" },
-{ W_SHIFT_CHANGED, PEDANTIC,
- "warning *** %s shifting more than size of object changed to zero\n" },
-{ W_UNKNOWN_OPTION, WARNING,
- "warning *** unknown compiler option '%s' ignored\n" },
-{ W_UNSUPP_OPTION, WARNING,
- "warning *** option '%s' no longer supported '%s' \n" },
-{ W_UNKNOWN_FEXT, WARNING,
- "warning *** don't know what to do with file '%s'. file extension unsupported\n" },
-{ W_TOO_MANY_SRC, WARNING,
- "warning *** cannot compile more than one source file . file '%s' ignored\n" },
-{ I_CYCLOMATIC, WARNING,
- "info *** function '%s', # edges %d , # nodes %d , cyclomatic complexity %d\n" },
-{ E_DIVIDE_BY_ZERO, ERROR,
- "error *** dividing by ZERO\n" },
-{ E_FUNC_BIT, ERROR,
- "error *** function cannot return 'bit'\n" },
-{ E_CAST_ZERO, ERROR,
- "error *** casting from to type 'void' is illegal\n" },
-{ W_CONST_RANGE, WARNING,
- "warning *** constant is out of range %s\n" },
-{ W_CODE_UNREACH, PEDANTIC,
- "warning *** unreachable code %s(%d)\n" },
-{ W_NONPTR2_GENPTR, WARNING,
- "warning *** non-pointer type cast to _generic pointer\n" },
-{ W_POSSBUG, WARNING,
- "warning *** possible code generation error at line %d,\n send source to sandeep.dutta@usa.net\n" },
-{ W_PTR_ASSIGN, WARNING,
- "warning *** pointer types incompatible \n" },
-{ W_UNKNOWN_MODEL, WARNING,
- "warning *** unknown memory model at %s : %d\n" },
-{ E_UNKNOWN_TARGET, ERROR,
- "error *** cannot generate code for target '%s'\n" },
-{ W_INDIR_BANKED, WARNING,
- "warning *** Indirect call to a banked function not implemented.\n" },
-{ W_UNSUPPORTED_MODEL, WARNING,
- "warning *** Model '%s' not supported for %s, ignored.\n" },
-{ W_BANKED_WITH_NONBANKED, WARNING,
- "warning *** Both banked and nonbanked attributes used. nonbanked wins.\n" },
-{ W_BANKED_WITH_STATIC, WARNING,
- "warning *** Both banked and static used. static wins.\n" },
-{ W_INT_TO_GEN_PTR_CAST, WARNING,
- "warning *** converting integer type to generic pointer: assuming XDATA\n" },
-{ W_ESC_SEQ_OOR_FOR_CHAR, WARNING,
- "warning *** escape sequence out of range for char.\n" },
-{ E_INVALID_HEX, ERROR,
- "error *** \\x used with no following hex digits.\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,
+ "storage class not allowed for automatic variable '%s' in reentrant function unless static" },
+{ 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" },
+{ E_ARRAY_BOUND, ERROR_LEVEL_ERROR,
+ "Array bound Exceeded, assuming zero" },
+{ 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,
+ "convertion 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,
+ "Label name redefined '%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 at %s(%d)" },
+{ 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." },
+{ W_NONRENT_ARGS, ERROR_LEVEL_WARNING,
+ "Functions called via pointers must be 'reentrant' to take arguments" },
+{ W_DOUBLE_UNSUPPORTED, ERROR_LEVEL_WARNING,
+ "type 'double' not supported assuming 'float'" },
+{ W_IF_NEVER_TRUE, ERROR_LEVEL_WARNING,
+ "if-statement condition always false, if-statement not generated" },
+{ 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 '%s(%d)':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 %s(%d)" },
+{ 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' at line %d" },
+{ 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_IF_ALWAYS_TRUE, ERROR_LEVEL_WARNING,
+ "if-statement condition always true, if-statement not generated" },
+{ 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" },
};
+
/*
-------------------------------------------------------------------------------
SetErrorOut - Set the error output file
if (ErrTab[errNum].errIndex != errNum)
{
fprintf(_SDCCERRG.out,
- "*** Internal error: error table entry for %d inconsistent.", errNum);
+ "Internal error: error table entry for %d inconsistent.", errNum);
}
+
if (ErrTab[errNum].errType >= _SDCCERRG.logLevel) {
- if ( ErrTab[errNum].errType == ERROR )
+ if ( ErrTab[errNum].errType == ERROR_LEVEL_ERROR )
fatalError++ ;
if ( filename && lineno ) {
- fprintf(_SDCCERRG.out, "%s(%d):",filename,lineno);
- } else if (lineno) {
- fprintf(_SDCCERRG.out, "at %d:", 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: ");
+ break;
+ case ERROR_LEVEL_WARNING:
+ case ERROR_LEVEL_PEDANTIC:
+ fprintf(_SDCCERRG.out, "warning: ");
+ break;
+ case ERROR_LEVEL_INFO:
+ fprintf(_SDCCERRG.out, "info: ");
+ break;
+ default:
+ break;
}
vfprintf(_SDCCERRG.out, ErrTab[errNum].errText,marker);
+ fprintf(_SDCCERRG.out, "\n");
}
else {
- // Below the logging level, drop.
+ /* Below the logging level, drop. */
}
}
/*
-------------------------------------------------------------------------------
*/
-void werror (int errNum, ... )
+void werror (int errNum, ...)
+{
+ va_list marker;
+ va_start(marker,errNum);
+ vwerror(errNum, marker);
+ va_end(marker);
+}
+
+
+/*
+-------------------------------------------------------------------------------
+fatal - Output a standard eror message with variable number of arguements 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;
+}