Add support for -fformat-extensions.

(kernel and world should now be buildable using gcc28)

4 files changed, 283 insertions, 6 deletions

diff --git a/lang/gcc28/files/patch-05 b/lang/gcc28/files/patch-05
index 18beca3..2ed03dc 100644
--- a/lang/gcc28/files/patch-05
+++ b/lang/gcc28/files/patch-05
@@ -1,9 +1,21 @@
 --- flags.h.orig	Wed Dec 31 05:02:33 1997
-+++ flags.h	Tue Aug 11 13:31:22 1998
-@@ -216,6 +216,20 @@
++++ flags.h	Wed Mar 31 00:08:39 1999
+@@ -125,6 +125,10 @@
  
- extern int flag_unroll_all_loops;
+ extern int warn_aggregate_return;
+ 
++/* Nonzero means that -Wformat accepts certain non-ANSI formats.  */
++
++extern int flag_format_extensions;
++
+ /* Nonzero if generating code to do profiling.  */
+ 
+ extern int profile_flag;
+@@ -215,6 +219,20 @@
+    This is generally not a win.  */
  
+ extern int flag_unroll_all_loops;
++
 +/* Nonzero forces all invariant computations in loops to be moved
 +   outside the loop. */
 +
@@ -17,7 +29,6 @@
 +/* Nonzero gets another run of loop_optimize performed. */
 +
 +extern int flag_rerun_loop_opt;
-+
+ 
  /* Nonzero for -fcse-follow-jumps:
     have cse follow jumps to do a more extensive job.  */
- 
diff --git a/lang/gcc28/files/patch-06 b/lang/gcc28/files/patch-06
index cb6f247..adb0685 100644
--- a/lang/gcc28/files/patch-06
+++ b/lang/gcc28/files/patch-06
@@ -1,5 +1,5 @@
 --- toplev.c.orig	Wed Feb 25 18:04:46 1998
-+++ toplev.c	Tue Aug 11 14:40:22 1998
++++ toplev.c	Wed Mar 31 00:15:41 1999
 @@ -463,6 +463,20 @@
  
  int flag_unroll_all_loops;
@@ -21,3 +21,22 @@
  /* Nonzero for -fwritable-strings:
     store string constants in data segment and don't uniquize them.  */
  
+@@ -691,6 +705,7 @@
+   {"stack-check", &flag_stack_check, 1},
+   {"bytecode", &output_bytecode, 1},
+   {"check-memory-usage", &flag_check_memory_usage, 1},
++  {"format-extensions", &flag_format_extensions, 1},
+   {"prefix-function-name", &flag_prefix_function_name, 1}
+ };
+ 
+@@ -880,6 +895,10 @@
+   {"uninitialized", &warn_uninitialized, 1},
+   {"inline", &warn_inline, 1}
+ };
++
++/* Nonzero means that -Wformat accepts certain system-dependent formats.  */
++
++int flag_format_extensions = 0;
+ 
+ /* Output files for assembler code (real compiler output)
+    and debugging dumps.  */
diff --git a/lang/gcc28/files/patch-14 b/lang/gcc28/files/patch-14
new file mode 100644
index 0000000..6e0c0c0
--- /dev/null
+++ b/lang/gcc28/files/patch-14
@@ -0,0 +1,236 @@
+--- c-common.c.orig	Wed Feb 18 19:16:13 1998
++++ c-common.c	Tue Mar 30 14:42:30 1999
+@@ -623,6 +623,7 @@
+ 	    int format_num;
+ 	    int first_arg_num;
+ 	    int is_scan;
++	    int null_format_ok;
+ 	    tree argument;
+ 	    int arg_num;
+ 	
+@@ -637,12 +638,26 @@
+ 		&& (!strcmp (IDENTIFIER_POINTER (format_type), "printf")
+ 		    || !strcmp (IDENTIFIER_POINTER (format_type),
+ 				"__printf__")))
+-	      is_scan = 0;
++	      {
++	        is_scan = 0;
++	        null_format_ok = 0;
++	      }
++	    else if (TREE_CODE (format_type) == IDENTIFIER_NODE
++		&& (!strcmp (IDENTIFIER_POINTER (format_type), "printf0")
++		    || !strcmp (IDENTIFIER_POINTER (format_type),
++				"__printf0__")))
++	      {
++	        is_scan = 0;
++	        null_format_ok = 1;
++	      }
+ 	    else if (TREE_CODE (format_type) == IDENTIFIER_NODE
+ 		     && (!strcmp (IDENTIFIER_POINTER (format_type), "scanf")
+ 			 || !strcmp (IDENTIFIER_POINTER (format_type),
+ 				     "__scanf__")))
+-	      is_scan = 1;
++	      {
++	        is_scan = 1;
++	        null_format_ok = 0;
++	      }
+ 	    else if (TREE_CODE (format_type) == IDENTIFIER_NODE)
+ 	      {
+ 		error ("`%s' is an unrecognized format function type",
+@@ -651,7 +666,7 @@
+ 	      }
+ 	    else
+ 	      {
+-		error ("unrecognized format specifier");
++		error_with_decl (decl, "unrecognized format specifier");
+ 		continue;
+ 	      }
+ 
+@@ -718,7 +733,8 @@
+ 
+ 	    record_function_format (DECL_NAME (decl),
+ 				    DECL_ASSEMBLER_NAME (decl),
+-				    is_scan, format_num, first_arg_num);
++				    is_scan, null_format_ok, format_num,
++				    first_arg_num);
+ 	    break;
+ 	  }
+ 
+@@ -906,6 +922,7 @@
+   int pointer_count;
+   /* Type of argument if no length modifier is used.  */
+   tree *nolen;
++  /* EGCS has tree *hhlen -- length modifier for shortening to byte */
+   /* Type of argument if length modifier for shortening is used.
+      If NULL, then this modifier is not allowed.  */
+   tree *hlen;
+@@ -926,6 +943,11 @@
+ } format_char_info;
+ 
+ static format_char_info print_char_table[] = {
++/* FreeBSD kernel extensions.  */
++  { "D",	1,	T_C,	NULL,	NULL,	NULL,	NULL,	NULL,	"-wp"		},
++  { "b",	1,	T_C,	NULL,	NULL,	NULL,	NULL,	NULL,	"-wp"		},
++  { "rz",	0,	NULL,	T_I,	T_L,	NULL,	NULL,	NULL,	"-wp0 +#"	},
++#define unextended_print_char_table	(print_char_table + 3)
+   { "di",	0,	T_I,	T_I,	T_L,	T_LL,	T_LL,	T_ST,	"-wp0 +"	},
+   { "oxX",	0,	T_UI,	T_UI,	T_UL,	T_ULL,	T_ULL,	T_ST,	"-wp0#"		},
+   { "u",	0,	T_UI,	T_UI,	T_UL,	T_ULL,	T_ULL,	T_ST,	"-wp0"		},
+@@ -960,6 +982,7 @@
+   tree name;			/* identifier such as "printf" */
+   tree assembler_name;		/* optional mangled identifier (for C++) */
+   int is_scan;			/* TRUE if *scanf */
++  int null_format_ok;		/* TRUE if the format string may be NULL */
+   int format_num;		/* number of format argument */
+   int first_arg_num;		/* number of first arg (zero for varargs) */
+ } function_format_info;
+@@ -991,15 +1014,15 @@
+ void
+ init_function_format_info ()
+ {
+-  record_function_format (get_identifier ("printf"), NULL_TREE, 0, 1, 2);
+-  record_function_format (get_identifier ("fprintf"), NULL_TREE, 0, 2, 3);
+-  record_function_format (get_identifier ("sprintf"), NULL_TREE, 0, 2, 3);
+-  record_function_format (get_identifier ("scanf"), NULL_TREE, 1, 1, 2);
+-  record_function_format (get_identifier ("fscanf"), NULL_TREE, 1, 2, 3);
+-  record_function_format (get_identifier ("sscanf"), NULL_TREE, 1, 2, 3);
+-  record_function_format (get_identifier ("vprintf"), NULL_TREE, 0, 1, 0);
+-  record_function_format (get_identifier ("vfprintf"), NULL_TREE, 0, 2, 0);
+-  record_function_format (get_identifier ("vsprintf"), NULL_TREE, 0, 2, 0);
++  record_function_format (get_identifier ("printf"), NULL_TREE, 0, 0, 1, 2);
++  record_function_format (get_identifier ("fprintf"), NULL_TREE, 0, 0, 2, 3);
++  record_function_format (get_identifier ("sprintf"), NULL_TREE, 0, 0, 2, 3);
++  record_function_format (get_identifier ("scanf"), NULL_TREE, 1, 0, 1, 2);
++  record_function_format (get_identifier ("fscanf"), NULL_TREE, 1, 0, 2, 3);
++  record_function_format (get_identifier ("sscanf"), NULL_TREE, 1, 0, 2, 3);
++  record_function_format (get_identifier ("vprintf"), NULL_TREE, 0, 0, 1, 0);
++  record_function_format (get_identifier ("vfprintf"), NULL_TREE, 0, 0, 2, 0);
++  record_function_format (get_identifier ("vsprintf"), NULL_TREE, 0, 0, 2, 0);
+ 
+   record_international_format (get_identifier ("gettext"), NULL_TREE, 1);
+   record_international_format (get_identifier ("dgettext"), NULL_TREE, 2);
+@@ -1016,11 +1039,12 @@
+    (e.g. for varargs such as vfprintf).  */
+ 
+ void
+-record_function_format (name, assembler_name, is_scan,
++record_function_format (name, assembler_name, is_scan, null_format_ok,
+ 			format_num, first_arg_num)
+       tree name;
+       tree assembler_name;
+       int is_scan;
++      int null_format_ok;
+       int format_num;
+       int first_arg_num;
+ {
+@@ -1044,6 +1068,7 @@
+     }
+ 
+   info->is_scan = is_scan;
++  info->null_format_ok = null_format_ok;
+   info->format_num = format_num;
+   info->first_arg_num = first_arg_num;
+ }
+@@ -1194,7 +1219,8 @@
+ 
+   if (integer_zerop (format_tree))
+     {
+-      warning ("null format string");
++      if (!info->null_format_ok)
++	warning ("null format string");
+       return;
+     }
+   if (TREE_CODE (format_tree) != ADDR_EXPR)
+@@ -1329,6 +1355,7 @@
+ 		     It will work on most machines, because size_t and int
+ 		     have the same mode.  But might as well warn anyway,
+ 		     since it will fail on other machines.  */
++		  /* XXX should we allow unsigned ints here?  */
+ 		  if ((TYPE_MAIN_VARIANT (TREE_TYPE (cur_param))
+ 		       != integer_type_node)
+ 		      &&
+@@ -1336,7 +1363,7 @@
+ 		       != unsigned_type_node))
+ 		    {
+ 		      sprintf (message,
+-			       "field width is not type int (arg %d)",
++			       "precision is not type int (arg %d)",
+ 			       arg_num);
+ 		      warning (message);
+ 		    }
+@@ -1371,6 +1398,7 @@
+ 		      cur_param = TREE_VALUE (params);
+ 		      params = TREE_CHAIN (params);
+ 		      ++arg_num;
++		      /* XXX should we allow unsigned ints here?  */
+ 		      if (TYPE_MAIN_VARIANT (TREE_TYPE (cur_param))
+ 			  != integer_type_node)
+ 		        {
+@@ -1388,6 +1416,56 @@
+ 		}
+ 	    }
+ 	}
++      if (*format_chars == 'b')
++	{
++	  /* There should be an int arg to control the string arg.  */
++	  if (params == 0)
++	    {
++	      warning (tfaff);
++	      return;
++	    }
++	    if (info->first_arg_num != 0)
++	    {
++	      cur_param = TREE_VALUE (params);
++	      params = TREE_CHAIN (params);
++	      ++arg_num;
++	      if ((TYPE_MAIN_VARIANT (TREE_TYPE (cur_param))
++		   != integer_type_node)
++		  &&
++		  (TYPE_MAIN_VARIANT (TREE_TYPE (cur_param))
++		   != unsigned_type_node))
++		{
++		  sprintf (message, "bitmap is not type int (arg %d)",
++			   arg_num);
++		  warning (message);
++		}
++	    }
++	}
++      if (*format_chars == 'D')
++	{
++	  /* There should be an unsigned char * arg before the string arg.  */
++	  if (params == 0)
++	    {
++	      warning (tfaff);
++	      return;
++	    }
++	    if (info->first_arg_num != 0)
++	    {
++	      cur_param = TREE_VALUE (params);
++	      params = TREE_CHAIN (params);
++	      ++arg_num;
++	      cur_type = TREE_TYPE (cur_param);
++	      if (TREE_CODE (cur_type) != POINTER_TYPE
++		  || TYPE_MAIN_VARIANT (TREE_TYPE (cur_type))
++		     != unsigned_char_type_node)
++		{
++		  sprintf (message,
++		      "ethernet address is not type unsigned char * (arg %d)",
++			   arg_num);
++		  warning (message);
++		}
++	    }
++	}
+       if (*format_chars == 'h' || *format_chars == 'l')
+ 	length_char = *format_chars++;
+       else if (*format_chars == 'q' || *format_chars == 'L')
+@@ -1436,7 +1514,9 @@
+ 	  continue;
+ 	}
+       format_chars++;
+-      fci = info->is_scan ? scan_char_table : print_char_table;
++      fci = info->is_scan ? scan_char_table
++	    : flag_format_extensions ? print_char_table
++	    : unextended_print_char_table;
+       while (fci->format_chars != 0
+ 	     && index (fci->format_chars, format_char) == 0)
+ 	  ++fci;
diff --git a/lang/gcc28/files/patch-15 b/lang/gcc28/files/patch-15
new file mode 100644
index 0000000..fb77dd0
--- /dev/null
+++ b/lang/gcc28/files/patch-15
@@ -0,0 +1,11 @@
+--- c-tree.h.orig	Fri Aug  8 13:09:02 1997
++++ c-tree.h	Tue Mar 30 14:14:51 1999
+@@ -162,7 +162,7 @@
+ extern void declare_function_name               PROTO((void));
+ extern void decl_attributes                     PROTO((tree, tree, tree));
+ extern void init_function_format_info		PROTO((void));
+-extern void record_function_format		PROTO((tree, tree, int, int, int));
++extern void record_function_format		PROTO((tree, tree, int, int, int, int));
+ extern void check_function_format		PROTO((tree, tree, tree));
+ /* Print an error message for invalid operands to arith operation CODE.
+    NOP_EXPR is used as a special case (see truthvalue_conversion).  */