[qfcc] Add pragma to control warning promotion

This allows me to disable -Werror in the Makefile but still have the
build tests work properly and not fail when they shouldn't.

tools/qfcc/source/pragma.c

@@ -107,6 +107,24 @@ set_bug (pragma_arg_t *args)
 	}
 }
 
+static void
+set_warn (pragma_arg_t *args)
+{
+	if (!args) {
+		warning (0, "missing warn flag");
+		return;
+	}
+	const char *flag = args->arg;
+	if (!strcmp (flag, "error")) {
+		options.warnings.promote = true;
+	} else if (!strcmp (flag, "!error")) {
+		options.warnings.promote = false;
+	}
+	if (args->next) {
+		warning (0, "pragma warn: ignoring extra arguments");
+	}
+}
+
 void
 pragma_process ()
 {
@@ -123,6 +141,8 @@ pragma_process ()
 		set_traditional (0);
 	} else if (!strcmp (id, "bug")) {
 		set_bug (pragma_args->next);
+	} else if (!strcmp (id, "warn")) {
+		set_warn (pragma_args->next);
 	} else {
 		warning (0, "unknown pragma: '%s'", id);
 	}

tools/qfcc/test/classarray.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 @interface foo
 {
 	id isa;

tools/qfcc/test/dealloc-warn.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 @interface Object
 {
 	Class		isa;

tools/qfcc/test/dealloc-warn2.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 @interface Object
 {
 	Class		isa;

tools/qfcc/test/dealloc-warn3.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 @interface Object
 {
 	Class		isa;

tools/qfcc/test/double-demote-float-ainit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int b[] = {1.0d};
 int main ()

tools/qfcc/test/double-demote-float-ginit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 float b = 1.0d;
 int main ()

tools/qfcc/test/double-demote-float-linit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int main ()
 {

tools/qfcc/test/double-demote-float.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 float b;
 int main ()

tools/qfcc/test/double-demote-int-ainit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int b[] = {1.0d};
 int main ()

tools/qfcc/test/double-demote-int-ginit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int b = 1.0d;
 int main ()

tools/qfcc/test/double-demote-int-linit.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int main ()
 {

tools/qfcc/test/double-demote-int.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int b;
 int main ()

tools/qfcc/test/double-float-compare.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 float b;
 int main ()

tools/qfcc/test/double-int-compare.r

@@ -1,3 +1,5 @@
+#pragma warn error
+
 double a;
 int b;
 int main ()