1 /*****************************************************************************/
5 /* Error handling for the cc65 C compiler */
9 /* (C) 1998-2011, Ullrich von Bassewitz */
10 /* Roemerstrasse 52 */
11 /* D-70794 Filderstadt */
12 /* EMail: uz@cc65.org */
15 /* This software is provided 'as-is', without any expressed or implied */
16 /* warranty. In no event will the authors be held liable for any damages */
17 /* arising from the use of this software. */
19 /* Permission is granted to anyone to use this software for any purpose, */
20 /* including commercial applications, and to alter it and redistribute it */
21 /* freely, subject to the following restrictions: */
23 /* 1. The origin of this software must not be misrepresented; you must not */
24 /* claim that you wrote the original software. If you use this software */
25 /* in a product, an acknowledgment in the product documentation would be */
26 /* appreciated but is not required. */
27 /* 2. Altered source versions must be plainly marked as such, and must not */
28 /* be misrepresented as being the original software. */
29 /* 3. This notice may not be removed or altered from any source */
32 /*****************************************************************************/
53 /*****************************************************************************/
55 /*****************************************************************************/
59 /* Count of errors/warnings */
60 unsigned ErrorCount = 0;
61 unsigned WarningCount = 0;
63 /* Warning and error options */
64 IntStack WarnEnable = INTSTACK(1); /* Enable warnings */
65 IntStack WarningsAreErrors = INTSTACK(0); /* Treat warnings as errors */
67 IntStack WarnConstComparison= INTSTACK(1); /* - constant comparison results */
68 IntStack WarnNoEffect = INTSTACK(1); /* - statements without an effect */
69 IntStack WarnStructParam = INTSTACK(1); /* - structs passed by val */
70 IntStack WarnUnusedLabel = INTSTACK(1); /* - unused labels */
71 IntStack WarnUnusedParam = INTSTACK(1); /* - unused parameters */
72 IntStack WarnUnusedVar = INTSTACK(1); /* - unused variables */
73 IntStack WarnUnknownPragma = INTSTACK(1); /* - unknown #pragmas */
75 /* Map the name of a warning to the intstack that holds its state */
76 typedef struct WarnMapEntry WarnMapEntry;
81 static WarnMapEntry WarnMap[] = {
82 /* Keep sorted, even if this isn't used for now */
83 { &WarningsAreErrors, "error" },
84 { &WarnConstComparison, "const-comparison" },
85 { &WarnNoEffect, "no-effect" },
86 { &WarnStructParam, "struct-param" },
87 { &WarnUnknownPragma, "unknown-pragma" },
88 { &WarnUnusedLabel, "unused-label" },
89 { &WarnUnusedParam, "unused-param" },
90 { &WarnUnusedVar, "unused-var" },
95 /*****************************************************************************/
96 /* Handling of fatal errors */
97 /*****************************************************************************/
101 void Fatal (const char* Format, ...)
102 /* Print a message about a fatal error and die */
106 const char* FileName;
109 FileName = GetInputName (CurTok.LI);
110 LineNum = GetInputLine (CurTok.LI);
112 FileName = GetCurrentFile ();
113 LineNum = GetCurrentLine ();
116 fprintf (stderr, "%s(%u): Fatal: ", FileName, LineNum);
118 va_start (ap, Format);
119 vfprintf (stderr, Format, ap);
121 fprintf (stderr, "\n");
124 Print (stderr, 1, "Input: %.*s\n", (int) SB_GetLen (Line), SB_GetConstBuf (Line));
131 void Internal (const char* Format, ...)
132 /* Print a message about an internal compiler error and die. */
136 const char* FileName;
139 FileName = GetInputName (CurTok.LI);
140 LineNum = GetInputLine (CurTok.LI);
142 FileName = GetCurrentFile ();
143 LineNum = GetCurrentLine ();
146 fprintf (stderr, "%s(%u): Internal compiler error:\n",
149 va_start (ap, Format);
150 vfprintf (stderr, Format, ap);
152 fprintf (stderr, "\n");
155 fprintf (stderr, "\nInput: %.*s\n", (int) SB_GetLen (Line), SB_GetConstBuf (Line));
158 /* Use abort to create a core dump */
164 /*****************************************************************************/
165 /* Handling of errors */
166 /*****************************************************************************/
170 static void IntError (const char* Filename, unsigned LineNo, const char* Msg, va_list ap)
171 /* Print an error message - internal function*/
173 fprintf (stderr, "%s(%u): Error: ", Filename, LineNo);
174 vfprintf (stderr, Msg, ap);
175 fprintf (stderr, "\n");
178 Print (stderr, 1, "Input: %.*s\n", (int) SB_GetLen (Line), SB_GetConstBuf (Line));
181 if (ErrorCount > 10) {
182 Fatal ("Too many errors");
188 void Error (const char* Format, ...)
189 /* Print an error message */
192 va_start (ap, Format);
193 IntError (GetInputName (CurTok.LI), GetInputLine (CurTok.LI), Format, ap);
199 void LIError (const LineInfo* LI, const char* Format, ...)
200 /* Print an error message with the line info given explicitly */
203 va_start (ap, Format);
204 IntError (GetInputName (LI), GetInputLine (LI), Format, ap);
210 void PPError (const char* Format, ...)
211 /* Print an error message. For use within the preprocessor. */
214 va_start (ap, Format);
215 IntError (GetCurrentFile(), GetCurrentLine(), Format, ap);
221 /*****************************************************************************/
222 /* Handling of warnings */
223 /*****************************************************************************/
227 static void IntWarning (const char* Filename, unsigned LineNo, const char* Msg, va_list ap)
228 /* Print warning message - internal function. */
230 if (IS_Get (&WarningsAreErrors)) {
232 /* Treat the warning as an error */
233 IntError (Filename, LineNo, Msg, ap);
235 } else if (IS_Get (&WarnEnable)) {
237 fprintf (stderr, "%s(%u): Warning: ", Filename, LineNo);
238 vfprintf (stderr, Msg, ap);
239 fprintf (stderr, "\n");
242 Print (stderr, 1, "Input: %.*s\n", (int) SB_GetLen (Line), SB_GetConstBuf (Line));
251 void Warning (const char* Format, ...)
252 /* Print warning message. */
255 va_start (ap, Format);
256 IntWarning (GetInputName (CurTok.LI), GetInputLine (CurTok.LI), Format, ap);
262 void LIWarning (const LineInfo* LI, const char* Format, ...)
263 /* Print a warning message with the line info given explicitly */
266 va_start (ap, Format);
267 IntWarning (GetInputName (LI), GetInputLine (LI), Format, ap);
273 void PPWarning (const char* Format, ...)
274 /* Print warning message. For use within the preprocessor. */
277 va_start (ap, Format);
278 IntWarning (GetCurrentFile(), GetCurrentLine(), Format, ap);
284 IntStack* FindWarning (const char* Name)
285 /* Search for a warning in the WarnMap table and return a pointer to the
286 * intstack that holds its state. Return NULL if there is no such warning.
291 /* For now, do a linear search */
292 for (I = 0; I < sizeof(WarnMap) / sizeof (WarnMap[0]); ++I) {
293 if (strcmp (WarnMap[I].Name, Name) == 0) {
294 return WarnMap[I].Stack;
302 void ListWarnings (FILE* F)
303 /* Print a list of warning types/names to the given file */
306 for (I = 0; I < sizeof(WarnMap) / sizeof (WarnMap[0]); ++I) {
307 fprintf (F, "%s\n", WarnMap[I].Name);
313 /*****************************************************************************/
315 /*****************************************************************************/
319 void ErrorReport (void)
320 /* Report errors (called at end of compile) */
322 Print (stdout, 1, "%u errors, %u warnings\n", ErrorCount, WarningCount);