*/
#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;
extern char *filename ;
{ E_DUPLICATE, ERROR_LEVEL_ERROR,
"Duplicate symbol '%s', symbol IGNORED" },
{ E_SYNTAX_ERROR, ERROR_LEVEL_ERROR,
- "Syntax Error Declaration ignored" },
+ "Syntax error, declaration ignored at '%s'" },
{ E_CONST_EXPECTED, ERROR_LEVEL_ERROR,
- "Constant Expected Found Variable" },
+ "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,
"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 ." },
+ "'lvalue' required for '%s' operation." },
{ E_TMPFILE_FAILED, ERROR_LEVEL_ERROR,
"Creation of temp file failed" },
{ E_FUNCTION_EXPECTED, ERROR_LEVEL_ERROR,
- "Function expected here '%s'" },
+ "called object is not a function" },
{ E_USING_ERROR, ERROR_LEVEL_ERROR,
- "'using', 'interrupt' or 'reentrant' must follow a function definiton .'%s'" },
+ "'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'" },
-{ E_INIT_IGNORED, ERROR_LEVEL_WARNING,
+{ 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 " },
-{ E_INIT_WRONG, ERROR_LEVEL_WARNING,
+{ W_INIT_WRONG, ERROR_LEVEL_WARNING,
"Initializer different levels of indirections" },
{ E_FUNC_REDEF, ERROR_LEVEL_ERROR,
"Function name '%s' redefined " },
{ E_INT_REQD, ERROR_LEVEL_ERROR,
"type must be INT for bit field definition" },
{ E_BITFLD_SIZE, ERROR_LEVEL_ERROR,
- "bit field size greater than 16 . assuming 16" },
-{ E_TRUNCATION, ERROR_LEVEL_WARNING,
+ "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" },
+ "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,
"operand invalid for bitwise operation" },
{ E_ANDOR_OP, ERROR_LEVEL_ERROR,
"Invalid operand for '&&' or '||'" },
-{ E_TYPE_MISMATCH, ERROR_LEVEL_WARNING,
+{ E_TYPE_MISMATCH, ERROR_LEVEL_ERROR,
"indirections to different types %s %s " },
{ E_AGGR_ASSIGN, ERROR_LEVEL_ERROR,
"cannot assign values to aggregates" },
"Label undefined '%s'" },
{ E_FUNC_VOID, ERROR_LEVEL_ERROR,
"void function returning value" },
-{ E_VOID_FUNC, ERROR_LEVEL_ERROR,
+{ W_VOID_FUNC, ERROR_LEVEL_WARNING,
"function '%s' must return value" },
-{ E_RETURN_MISMATCH, ERROR_LEVEL_WARNING,
+{ W_RETURN_MISMATCH, ERROR_LEVEL_WARNING,
"function return value mismatch" },
{ E_CASE_CONTEXT, ERROR_LEVEL_ERROR,
"'case/default' found without 'switch'.statement ignored" },
"Pre-Processor %s" },
{ E_DUP_FAILED, ERROR_LEVEL_ERROR,
"_dup call failed" },
-{ E_INCOMPAT_CAST, ERROR_LEVEL_WARNING,
- "pointer being cast to incompatible type " },
-{ E_LOOP_ELIMINATE, ERROR_LEVEL_WARNING,
+{ 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" },
-{ E_CONST_TOO_LARGE, ERROR_LEVEL_PEDANTIC,
+{ 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_OP_UNKNOWN_SIZE, ERROR_LEVEL_ERROR,
"unknown size for operand" },
{ W_LONG_UNSUPPORTED, ERROR_LEVEL_WARNING,
- "'%s' 'long' not supported , declared as 'int' ." },
-{ W_LITERAL_GENERIC, ERROR_LEVEL_WARNING,
- "LITERAL value being cast to '_generic' pointer" },
+ "'%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'" },
-{ W_EXTERN_MISMATCH, ERROR_LEVEL_WARNING,
+{ E_EXTERN_MISMATCH, ERROR_LEVEL_ERROR,
"extern definition for '%s' mismatches with declaration." },
-{ E_NONRENT_ARGS, ERROR_LEVEL_WARNING,
+{ 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" },
+ "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,
"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_WARNING,
+{ E_TYPE_MISMATCH_PARM, ERROR_LEVEL_ERROR,
"type mismatch for parameter number %d" },
{ E_INVALID_FLOAT_CONST, ERROR_LEVEL_ERROR,
"invalid float constant '%s'" },
"switch value not an integer" },
{ E_CASE_NON_INTEGER, ERROR_LEVEL_ERROR,
"case label not an integer" },
-{ E_FUNC_TOO_LARGE, ERROR_LEVEL_WARNING,
+{ 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" },
"invalid type specifier for pointer type specifier ignored" },
{ W_IMPLICIT_FUNC, ERROR_LEVEL_WARNING,
"function '%s' implicit declaration" },
-{ E_CONTINUE, ERROR_LEVEL_WARNING,
+{ W_CONTINUE, ERROR_LEVEL_WARNING,
"%s" },
-{ W_TOOMANY_SPILS, ERROR_LEVEL_INFO,
- "extended by %d bytes for compiler temp(s) :in function '%s': %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,
{ 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" },
+ "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,
"constant is out of range %s" },
{ W_CODE_UNREACH, ERROR_LEVEL_PEDANTIC,
"unreachable code %s(%d)" },
-{ W_NONPTR2_GENPTR, ERROR_LEVEL_WARNING,
- "non-pointer type cast to _generic pointer" },
+{ 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" },
-{ W_PTR_ASSIGN, ERROR_LEVEL_WARNING,
+{ E_INCOMPAT_PTYPES, ERROR_LEVEL_ERROR,
"pointer types incompatible " },
{ W_UNKNOWN_MODEL, ERROR_LEVEL_WARNING,
"unknown memory model at %s : %d" },
"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_EXESS_ARRAY_INITIALIZERS, ERROR_LEVEL_WARNING,
- "excess elements in array initializer after `%s' at line %d" },
+{ 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,
{ 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." }
+ "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" },
};
/*
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);
}
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 *** ");
+ fprintf(_SDCCERRG.out, "error: ");
break;
case ERROR_LEVEL_WARNING:
case ERROR_LEVEL_PEDANTIC:
- fprintf(_SDCCERRG.out, "warning *** ");
+ fprintf(_SDCCERRG.out, "warning: ");
break;
case ERROR_LEVEL_INFO:
- fprintf(_SDCCERRG.out, "info *** ");
+ fprintf(_SDCCERRG.out, "info: ");
break;
default:
break;
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_list marker;
va_start(marker,errNum);
vwerror(errNum, marker);
- va_end( 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_start(marker,errNum);
+ vwerror(errNum, marker);
+ va_end(marker);
+
+ exit(exitCode);
+}
+
+/*
+-------------------------------------------------------------------------------
+style - Change the output error style to MSVC
+-------------------------------------------------------------------------------
+*/
+
+void MSVC_style (int style)
+{
+ _SDCCERRG.style = style;
+}