git.sur5r.net Git - cc65/blob - src/ca65/error.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                  error.c                                  */
   4 /*                                                                           */
   5 /*                Error handling for the ca65 macroassembler                 */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 1998-2003 Ullrich von Bassewitz                                       */
  10 /*               Römerstraße 52                                              */
  11 /*               D-70794 Filderstadt                                         */
  12 /* EMail:        uz@cc65.org                                                 */
  13 /*                                                                           */
  14 /*                                                                           */
  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.                                    */
  18 /*                                                                           */
  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:                            */
  22 /*                                                                           */
  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              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 #include <stdio.h>
  37 #include <stdlib.h>
  38 #include <stdarg.h>
  39
  40 /* ca65 */
  41 #include "filetab.h"
  42 #include "nexttok.h"
  43 #include "error.h"
  44
  45
  46
  47 /*****************************************************************************/
  48 /*                                   Data                                    */
  49 /*****************************************************************************/
  50
  51
  52
  53 /* Warning level */
  54 unsigned WarnLevel      = 1;
  55
  56 /* Statistics */
  57 unsigned ErrorCount     = 0;
  58 unsigned WarningCount   = 0;
  59
  60
  61
  62 /*****************************************************************************/
  63 /*                                 Warnings                                  */
  64 /*****************************************************************************/
  65
  66
  67
  68 void WarningMsg (const FilePos* Pos, unsigned Level, const char* Format, va_list ap)
  69 /* Print warning message. */
  70 {
  71     if (Level <= WarnLevel) {
  72         fprintf (stderr, "%s(%lu): Warning: ",
  73                  GetFileName (Pos->Name), Pos->Line);
  74         vfprintf (stderr, Format, ap);
  75         fprintf (stderr, "\n");
  76         ++WarningCount;
  77     }
  78 }
  79
  80
  81
  82 void Warning (unsigned Level, const char* Format, ...)
  83 /* Print warning message. */
  84 {
  85     va_list ap;
  86     va_start (ap, Format);
  87     WarningMsg (&CurPos, Level, Format, ap);
  88     va_end (ap);
  89 }
  90
  91
  92
  93 void PWarning (const FilePos* Pos, unsigned Level, const char* Format, ...)
  94 /* Print warning message giving an explicit file and position. */
  95 {
  96     va_list ap;
  97     va_start (ap, Format);
  98     WarningMsg (Pos, Level, Format, ap);
  99     va_end (ap);
 100 }
 101
 102
 103
 104 /*****************************************************************************/
 105 /*                                  Errors                                   */
 106 /*****************************************************************************/
 107
 108
 109
 110 void ErrorMsg (const FilePos* Pos, const char* Format, va_list ap)
 111 /* Print an error message */
 112 {
 113     fprintf (stderr, "%s(%lu): Error: ",
 114              GetFileName (Pos->Name), Pos->Line);
 115     vfprintf (stderr, Format, ap);
 116     fprintf (stderr, "\n");
 117     ++ErrorCount;
 118 }
 119
 120
 121
 122 void Error (const char* Format, ...)
 123 /* Print an error message */
 124 {
 125     va_list ap;
 126     va_start (ap, Format);
 127     ErrorMsg (&CurPos, Format, ap);
 128     va_end (ap);
 129 }
 130
 131
 132
 133 void PError (const FilePos* Pos, const char* Format, ...)
 134 /* Print an error message giving an explicit file and position. */
 135 {
 136     va_list ap;
 137     va_start (ap, Format);
 138     ErrorMsg (Pos, Format, ap);
 139     va_end (ap);
 140 }
 141
 142
 143
 144 void ErrorSkip (const char* Format, ...)
 145 /* Print an error message and skip the rest of the line */
 146 {
 147     va_list ap;
 148     va_start (ap, Format);
 149     ErrorMsg (&CurPos, Format, ap);
 150     va_end (ap);
 151
 152     SkipUntilSep ();
 153 }
 154
 155
 156
 157 /*****************************************************************************/
 158 /*                                   Code                                    */
 159 /*****************************************************************************/
 160
 161
 162
 163 void Fatal (const char* Format, ...)
 164 /* Print a message about a fatal error and die */
 165 {
 166     va_list ap;
 167
 168     va_start (ap, Format);
 169     fprintf (stderr, "Fatal error: ");
 170     vfprintf (stderr, Format, ap);
 171     fprintf (stderr, "\n");
 172     va_end (ap);
 173
 174     /* And die... */
 175     exit (EXIT_FAILURE);
 176 }
 177
 178
 179
 180 void Internal (const char* Format, ...)
 181 /* Print a message about an internal compiler error and die. */
 182 {
 183     va_list ap;
 184     va_start (ap, Format);
 185     fprintf (stderr, "Internal assembler error:\n");
 186     vfprintf (stderr, Format, ap);
 187     va_end (ap);
 188     fprintf (stderr, "\n");
 189
 190     exit (EXIT_FAILURE);
 191 }
 192
 193
 194