1 files changed, 0 insertions, 137 deletions
diff --git a/lcc/src/error.c b/lcc/src/error.c
deleted file mode 100644
index 2187c10..0000000
--- a/lcc/src/error.c
+++ /dev/null
@@ -1,137 +0,0 @@
-#include "c.h"
-
-
-static void printtoken(void);
-int errcnt   = 0;
-int errlimit = 20;
-char kind[] = {
-#define xx(a,b,c,d,e,f,g) f,
-#define yy(a,b,c,d,e,f,g) f,
-#include "token.h"
-};
-int wflag;		/* != 0 to suppress warning messages */
-
-void test(int tok, char set[]) {
-	if (t == tok)
-		t = gettok();
-	else {
-		expect(tok);
-		skipto(tok, set);
-		if (t == tok)
-			t = gettok();
-	}
-}
-void expect(int tok) {
-	if (t == tok)
-		t = gettok();
-	else {
-		error("syntax error; found");
-		printtoken();
-		fprint(stderr, " expecting `%k'\n", tok);
-	}
-}
-void error(const char *fmt, ...) {
-	va_list ap;
-
-	if (errcnt++ >= errlimit) {
-		errcnt = -1;
-		error("too many errors\n");
-		exit(1);
-	}
-	va_start(ap, fmt);
-	if (firstfile != file && firstfile && *firstfile)
-		fprint(stderr, "%s: ", firstfile);
-	fprint(stderr, "%w: ", &src);
-	vfprint(stderr, NULL, fmt, ap);
-	va_end(ap);
-}
-
-void skipto(int tok, char set[]) {
-	int n;
-	char *s;
-
-	assert(set);
-	for (n = 0; t != EOI && t != tok; t = gettok()) {
-		for (s = set; *s && kind[t] != *s; s++)
-			;
-		if (kind[t] == *s)
-			break;
-		if (n++ == 0)
-			error("skipping");
-		if (n <= 8)
-			printtoken();
-		else if (n == 9)
-			fprint(stderr, " ...");
-	}
-	if (n > 8) {
-		fprint(stderr, " up to");
-		printtoken();
-	}
-	if (n > 0)
-		fprint(stderr, "\n");
-}
-/* fatal - issue fatal error message and exit */
-int fatal(const char *name, const char *fmt, int n) {
-	print("\n");
-	errcnt = -1;
-	error("compiler error in %s--", name);
-	fprint(stderr, fmt, n);
-	exit(EXIT_FAILURE);
-	return 0;
-}
-
-/* printtoken - print current token preceeded by a space */
-static void printtoken(void) {
-	switch (t) {
-	case ID: fprint(stderr, " `%s'", token); break;
-	case ICON:
-		fprint(stderr, " `%s'", vtoa(tsym->type, tsym->u.c.v));
-		break;
-	case SCON: {
-		int i, n;
-		if (ischar(tsym->type->type)) {
-			char *s = tsym->u.c.v.p;
-			n = tsym->type->size;
-			fprint(stderr, " \"");
-			for (i = 0; i < 20 && i < n && *s; s++, i++)
-				if (*s < ' ' || *s >= 0177)
-					fprint(stderr, "\\%o", *s);
-				else
-					fprint(stderr, "%c", *s);
-		} else {	/* wchar_t string */
-			unsigned int *s = tsym->u.c.v.p;
-			assert(tsym->type->type->size == widechar->size);
-			n = tsym->type->size/widechar->size;
-			fprint(stderr, " L\"");
-			for (i = 0; i < 20 && i < n && *s; s++, i++)
-				if (*s < ' ' || *s >= 0177)
-					fprint(stderr, "\\x%x", *s);
-				else
-					fprint(stderr, "%c", *s);
-		}
-		if (i < n)
-			fprint(stderr, " ...");
-		else
-			fprint(stderr, "\"");
-		break;
-		}
-	case FCON:
-		fprint(stderr, " `%S'", token, (char*)cp - token);
-		break;
-	case '`': case '\'': fprint(stderr, " \"%k\"", t); break;
-	default: fprint(stderr, " `%k'", t);
-	}
-}
-
-/* warning - issue warning error message */
-void warning(const char *fmt, ...) {
-	va_list ap;
-
-	va_start(ap, fmt);
-	if (wflag == 0) {
-		errcnt--;
-		error("warning: ");
-		vfprint(stderr, NULL, fmt, ap);
-	}
-	va_end(ap);
-}