1 /*****************************************************************************/
5 /* Error handling for the ca65 macroassembler */
9 /* (C) 1998-2002 Ullrich von Bassewitz */
11 /* D-70597 Stuttgart */
12 /* EMail: uz@musoftware.de */
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 /*****************************************************************************/
47 /*****************************************************************************/
49 /*****************************************************************************/
54 unsigned WarnLevel = 1;
57 unsigned ErrorCount = 0;
58 unsigned WarningCount = 0;
62 /*****************************************************************************/
64 /*****************************************************************************/
68 void WarningMsg (const FilePos* Pos, unsigned WarnNum, va_list ap)
69 /* Print warning message. */
74 } Warnings [WARN_COUNT-1] = {
76 { 2, "Symbol `%s' is defined but never used" },
77 { 2, "Symbol `%s' is imported but never used" },
78 { 1, "Cannot track processor status byte" },
79 { 0, "User warning: %s" },
82 if (Warnings [WarnNum-1].Level <= WarnLevel) {
83 fprintf (stderr, "%s(%lu): Warning #%u: ",
84 GetFileName (Pos->Name), Pos->Line, WarnNum);
85 vfprintf (stderr, Warnings [WarnNum-1].Msg, ap);
86 fprintf (stderr, "\n");
93 void Warning (unsigned WarnNum, ...)
94 /* Print warning message. */
97 va_start (ap, WarnNum);
98 WarningMsg (&CurPos, WarnNum, ap);
104 void PWarning (const FilePos* Pos, unsigned WarnNum, ...)
105 /* Print warning message giving an explicit file and position. */
108 va_start (ap, WarnNum);
109 WarningMsg (Pos, WarnNum, ap);
115 /*****************************************************************************/
117 /*****************************************************************************/
121 void ErrorMsg (const FilePos* Pos, unsigned ErrNum, va_list ap)
122 /* Print an error message */
124 static const char* Msgs [ERR_COUNT-1] = {
125 "Command/operation not implemented",
126 "Cannot open include file `%s': %s",
127 "Cannot read from include file `%s': %s",
128 "Include nesting too deep",
129 "Invalid input character: %02X",
130 "Hex digit expected",
132 "`0' or `1' expected",
133 "Numerical overflow",
134 "Control statement expected",
135 "Too many characters",
141 "Boolean switch value expected (on/off/+/-)",
144 "Integer constant expected",
145 "String constant expected",
146 "Character constant expected",
147 "Constant expression expected",
148 "Identifier expected",
149 "`.ENDMACRO' expected",
150 "Option key expected",
152 "Command is only valid in 65816 mode",
154 "String constant too long",
155 "Newline in string constant",
156 "Illegal character constant",
157 "Illegal addressing mode",
158 "Illegal character to start local symbols",
159 "Illegal use of local symbol",
160 "Illegal segment name: `%s'",
161 "Illegal segment attribute",
162 "Illegal macro package name",
163 "Illegal emulation feature",
164 "Illegal scope specifier",
166 "Symbol `%s' is already defined",
167 "Undefined symbol `%s'",
168 "Symbol `%s' is already marked as import",
169 "Symbol `%s' is already marked as export",
170 "Exported symbol `%s' is undefined",
171 "Exported values must be constant",
172 "Unexpected end of file",
173 "Unexpected end of line",
176 "Modulo operation with zero",
178 "Too many macro parameters",
179 "Macro parameter expected",
180 "Circular reference in symbol definition",
181 "Symbol `%s' redeclaration mismatch",
182 "Alignment value must be a power of 2",
184 "Conditional assembly branch was never closed",
185 "Lexical level was not terminated correctly",
186 "Segment attribute mismatch",
191 "File name `%s' not found in file table",
194 fprintf (stderr, "%s(%lu): Error #%u: ",
195 GetFileName (Pos->Name), Pos->Line, ErrNum);
196 vfprintf (stderr, Msgs [ErrNum-1], ap);
197 fprintf (stderr, "\n");
203 void Error (unsigned ErrNum, ...)
204 /* Print an error message */
207 va_start (ap, ErrNum);
208 ErrorMsg (&CurPos, ErrNum, ap);
214 void PError (const FilePos* Pos, unsigned ErrNum, ...)
215 /* Print an error message giving an explicit file and position. */
218 va_start (ap, ErrNum);
219 ErrorMsg (Pos, ErrNum, ap);
225 void ErrorSkip (unsigned ErrNum, ...)
226 /* Print an error message and skip the rest of the line */
229 va_start (ap, ErrNum);
230 ErrorMsg (&CurPos, ErrNum, ap);
238 /*****************************************************************************/
240 /*****************************************************************************/
244 void Fatal (unsigned FatNum, ...)
245 /* Print a message about a fatal error and die */
247 static const char* Msgs [FAT_COUNT-1] = {
248 "Maximum number of input files reached",
252 "Cannot open input file `%s': %s",
253 "Cannot stat input file `%s': %s",
254 "Cannot open output file `%s': %s",
255 "Cannot write to output file `%s': %s",
256 "Cannot open listing file: %s",
257 "Cannot write to listing file: %s",
258 "Cannot read from listing file: %s",
259 "Too many nested constructs",
260 ".IF nesting too deep",
265 va_start (ap, FatNum);
266 fprintf (stderr, "Fatal #%u: ", FatNum);
267 vfprintf (stderr, Msgs [FatNum-1], ap);
268 fprintf (stderr, "\n");
277 void Internal (const char* Format, ...)
278 /* Print a message about an internal compiler error and die. */
281 va_start (ap, Format);
282 fprintf (stderr, "Internal assembler error\n");
283 vfprintf (stderr, Format, ap);
285 fprintf (stderr, "\n");