[980307]: Warning patches #3/5 - Unused variables, functions, etc.

Manfred Hollstein manfred@s-direktnet.de
Sun Mar 8 10:42:00 GMT 1998


This patch

  1. removes definitions of unused variables
  2. surrounds prototype/function definitions with proper #ifdef ...
     #endif's
  3. adds some missing explicit parameter definitions
  4. adds a fake return to shut up the compiler
  5. adds some missing initializations

gcc/ChangeLog:

Sun Mar  8 17:06:02 1998  Manfred Hollstein  <manfred@s-direktnet.de>

	* bitmap.c (bitmap_element_allocate): Remove unused parameter;
	change callers accordingly.

	* cplus-dem.c (arm_special): Remove unused parameter work in prototype
	and definition; change all callers accordingly.

	* except.c (init_eh): Avoid assignment of unused return value of
	build_pointer_type; cast it to void, instead, and remove unused
	variable type.

	* gcc.c (lang_specific_driver): Define prototype only #ifdef
	LANG_SPECIFIC_DRIVER.
	(temp_names): Define only #ifdef MKTEMP_EACH_FILE.

	* genoutput.c (output_epilogue): Initialize next_name to 0.

	* genattr.c (fatal): Add explicit definition of int parameters.
	* genconfig.c (fatal): Likewise.
	* genemit.c (fatal): Likewise.
	* genextract.c (fatal): Likewise.
	* genflags.c (fatal): Likewise.
	* genopinit.c (fatal): Likewise.
	* genoutput.c (fatal): Likewise.
	* genpeep.c (fatal): Likewise.

	* real.c (efrexp): #if 0 prototype and function definition.
	(eremain): Likewise.
	(uditoe): Likewise.
	(ditoe): Likewise.
	(etoudi): Likewise.
	(etodi): Likewise.
	(esqrt): Likewise.

	* reload.c (push_secondary_reload): Define prototype only
	#ifdef HAVE_SECONDARY_RELOADS.

	* varasm.c (assemble_static_space): Define rounded only
	#ifndef ASM_OUTPUT_ALIGNED_LOCAL.

gcc/cp/ChangeLog:

Sun Mar  8 17:13:38 1998  Manfred Hollstein  <manfred@s-direktnet.de>

	* call.c (default_parm_conversions): Remove prototype definition.
	(build_method_call): Remove unused variable result.

	* cvt.c (ocp_convert): Remove unused variable conversion.

	* decl2.c (ambiguous_decl): Add explicit parameter definition for name.

	* except.c (do_unwind): #if 0 definition of unused variables fcall
	and next_pc.

	* expr.c (extract_scalar_init): #if 0 prototype and function definition.

	* init.c (expand_aggr_init_1): Remove unused variable init_type.
	(build_new_1): Remove unused variable t.

	* pt.c (instantiate_class_template): Remove unused variable newtag;
	cast called function return value to void.
	(do_decl_instantiation): Remove unused variables name and fn.

	* tree.c (get_type_decl): Add default return to shut up compiler from
	complaining control reaches end of non-void function.

	* typeck.c (build_x_conditional_expr): Remove unused variable rval.

diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/bitmap.c egcs-980307/gcc/bitmap.c
*** egcs-980307.orig/gcc/bitmap.c	Sat Feb 14 21:34:02 1998
--- egcs-980307/gcc/bitmap.c	Sun Mar  8 15:11:05 1998
*************** bitmap_element bitmap_zero;		/* An eleme
*** 52,58 ****
  bitmap_element *bitmap_free;		/* Freelist of bitmap elements. */
  
  static void bitmap_element_free		PROTO((bitmap, bitmap_element *));
! static bitmap_element *bitmap_element_allocate PROTO((bitmap));
  static int bitmap_element_zerop		PROTO((bitmap_element *));
  static void bitmap_element_link		PROTO((bitmap, bitmap_element *));
  static bitmap_element *bitmap_find_bit	PROTO((bitmap, unsigned int));
--- 52,58 ----
  bitmap_element *bitmap_free;		/* Freelist of bitmap elements. */
  
  static void bitmap_element_free		PROTO((bitmap, bitmap_element *));
! static bitmap_element *bitmap_element_allocate PROTO(());
  static int bitmap_element_zerop		PROTO((bitmap_element *));
  static void bitmap_element_link		PROTO((bitmap, bitmap_element *));
  static bitmap_element *bitmap_find_bit	PROTO((bitmap, unsigned int));
*************** bitmap_element_free (head, elt)
*** 88,95 ****
  /* Allocate a bitmap element.  The bits are cleared, but nothing else is.  */
  
  static INLINE bitmap_element *
! bitmap_element_allocate (head)
!      bitmap head;
  {
    bitmap_element *element;
  #if BITMAP_ELEMENT_WORDS != 2
--- 88,94 ----
  /* Allocate a bitmap element.  The bits are cleared, but nothing else is.  */
  
  static INLINE bitmap_element *
! bitmap_element_allocate ()
  {
    bitmap_element *element;
  #if BITMAP_ELEMENT_WORDS != 2
*************** bitmap_copy (to, from)
*** 257,263 ****
    /* Copy elements in forward direction one at a time */
    for (from_ptr = from->first; from_ptr; from_ptr = from_ptr->next)
      {
!       bitmap_element *to_elt = bitmap_element_allocate (to);
  
        to_elt->indx = from_ptr->indx;
  
--- 256,262 ----
    /* Copy elements in forward direction one at a time */
    for (from_ptr = from->first; from_ptr; from_ptr = from_ptr->next)
      {
!       bitmap_element *to_elt = bitmap_element_allocate ();
  
        to_elt->indx = from_ptr->indx;
  
*************** bitmap_set_bit (head, bit)
*** 364,370 ****
  
    if (ptr == 0)
      {
!       ptr = bitmap_element_allocate (head);
        ptr->indx = bit / BITMAP_ELEMENT_ALL_BITS;
        ptr->bits[word_num] = bit_val;
        bitmap_element_link (head, ptr);
--- 363,369 ----
  
    if (ptr == 0)
      {
!       ptr = bitmap_element_allocate ();
        ptr->indx = bit / BITMAP_ELEMENT_ALL_BITS;
        ptr->bits[word_num] = bit_val;
        bitmap_element_link (head, ptr);
*************** bitmap_operation (to, from1, from2, oper
*** 463,469 ****
  	}
  
        if (to_ptr == 0)
! 	to_ptr = bitmap_element_allocate (to);
  
        /* Do the operation, and if any bits are set, link it into the
  	 linked list.  */
--- 462,468 ----
  	}
  
        if (to_ptr == 0)
! 	to_ptr = bitmap_element_allocate ();
  
        /* Do the operation, and if any bits are set, link it into the
  	 linked list.  */
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/call.c egcs-980307/gcc/cp/call.c
*** egcs-980307.orig/gcc/cp/call.c	Thu Mar  5 09:20:42 1998
--- egcs-980307/gcc/cp/call.c	Sun Mar  8 12:12:06 1998
*************** static tree reference_binding PROTO((tre
*** 87,93 ****
  static tree strip_top_quals PROTO((tree));
  static tree non_reference PROTO((tree));
  static tree build_conv PROTO((enum tree_code, tree, tree));
- static tree default_parm_conversions PROTO((tree, tree *));
  static int is_subseq PROTO((tree, tree));
  
  tree
--- 87,92 ----
*************** build_method_call (instance, name, parms
*** 557,563 ****
       tree instance, name, parms, basetype_path;
       int flags;
  {
!   tree result, basetype, instance_ptr;
  
  #ifdef GATHER_STATISTICS
    n_build_method_call++;
--- 556,562 ----
       tree instance, name, parms, basetype_path;
       int flags;
  {
!   tree basetype, instance_ptr;
  
  #ifdef GATHER_STATISTICS
    n_build_method_call++;
*************** build_method_call (instance, name, parms
*** 585,599 ****
    if (name == ansi_opname[(int) DELETE_EXPR] && list_length (parms)==2)
      {
        tree save_last = TREE_CHAIN (parms);
!       tree result;
        /* get rid of unneeded argument */
        TREE_CHAIN (parms) = NULL_TREE;
!       result = build_method_call (instance, name, parms, basetype_path,
! 				  (LOOKUP_SPECULATIVELY|flags)
! 				  &~LOOKUP_COMPLAIN);
!       /* If it finds a match, return it.  */
!       if (result)
! 	return build_method_call (instance, name, parms, basetype_path, flags);
        /* If it doesn't work, two argument delete must work */
        TREE_CHAIN (parms) = save_last;
      }
--- 584,598 ----
    if (name == ansi_opname[(int) DELETE_EXPR] && list_length (parms)==2)
      {
        tree save_last = TREE_CHAIN (parms);
! 
        /* get rid of unneeded argument */
        TREE_CHAIN (parms) = NULL_TREE;
!       if (build_method_call (instance, name, parms, basetype_path,
! 			     (LOOKUP_SPECULATIVELY|flags) & ~LOOKUP_COMPLAIN))
! 	{
! 	  /* If it finds a match, return it.  */
! 	  return build_method_call (instance, name, parms, basetype_path, flags);
! 	}
        /* If it doesn't work, two argument delete must work */
        TREE_CHAIN (parms) = save_last;
      }
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/cvt.c egcs-980307/gcc/cp/cvt.c
*** egcs-980307.orig/gcc/cp/cvt.c	Thu Mar  5 09:20:44 1998
--- egcs-980307/gcc/cp/cvt.c	Sun Mar  8 15:46:24 1998
*************** ocp_convert (type, expr, convtype, flags
*** 761,767 ****
      {
        tree dtype = TREE_TYPE (e);
        tree ctor = NULL_TREE;
-       tree conversion = NULL_TREE;
  
        dtype = TYPE_MAIN_VARIANT (dtype);
  
--- 761,766 ----
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/decl2.c egcs-980307/gcc/cp/decl2.c
*** egcs-980307.orig/gcc/cp/decl2.c	Thu Mar  5 09:20:45 1998
--- egcs-980307/gcc/cp/decl2.c	Sun Mar  8 16:53:44 1998
*************** add_using_namespace (user, used, indirec
*** 3702,3707 ****
--- 3703,3709 ----
     XXX I don't want to repeat the entire duplicate_decls here */
  static tree
  ambiguous_decl (name, val1, val2)
+      int name;
       tree val1, val2;
  {
    my_friendly_assert (val1 != val2, 376);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/except.c egcs-980307/gcc/cp/except.c
*** egcs-980307.orig/gcc/cp/except.c	Mon Feb  2 01:03:54 1998
--- egcs-980307/gcc/cp/except.c	Sun Mar  8 15:47:31 1998
*************** do_unwind (inner_throw_label)
*** 714,722 ****
  #endif
  #endif
  #if ! defined (TARGET_88000) && ! defined (ARM_FRAME_RTX) && ! defined (SPARC_STACK_ALIGN)
    tree fcall;
-   tree params;
    rtx next_pc;
  
  #if 0
    /* I would like to do this here, but the move below doesn't seem to work.  */
--- 714,724 ----
  #endif
  #endif
  #if ! defined (TARGET_88000) && ! defined (ARM_FRAME_RTX) && ! defined (SPARC_STACK_ALIGN)
+ #if 0
    tree fcall;
    rtx next_pc;
+ #endif
+   tree params;
  
  #if 0
    /* I would like to do this here, but the move below doesn't seem to work.  */
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/expr.c egcs-980307/gcc/cp/expr.c
*** egcs-980307.orig/gcc/cp/expr.c	Wed Feb  4 02:29:33 1998
--- egcs-980307/gcc/cp/expr.c	Sun Mar  8 15:35:25 1998
*************** Boston, MA 02111-1307, USA.  */
*** 29,35 ****
--- 29,37 ----
  #include "cp-tree.h"
  
  static tree extract_aggr_init PROTO((tree, tree));
+ #if 0
  static tree extract_scalar_init PROTO((tree, tree));
+ #endif
  static rtx cplus_expand_expr PROTO((tree, rtx, enum machine_mode,
  				    enum expand_modifier));
  
*************** extract_aggr_init (decl, init)
*** 244,249 ****
--- 246,252 ----
    return 0;
  }
  
+ #if 0
  static tree
  extract_scalar_init (decl, init)
       tree decl, init;
*************** extract_scalar_init (decl, init)
*** 294,299 ****
--- 297,303 ----
  
    return t; 
  }
+ #endif
  
  int
  extract_init (decl, init)
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/init.c egcs-980307/gcc/cp/init.c
*** egcs-980307.orig/gcc/cp/init.c	Thu Mar  5 09:20:48 1998
--- egcs-980307/gcc/cp/init.c	Sun Mar  8 15:48:40 1998
*************** expand_aggr_init_1 (binfo, true_exp, exp
*** 1335,1341 ****
       int flags;
  {
    tree type = TREE_TYPE (exp);
-   tree init_type = NULL_TREE;
  
    my_friendly_assert (init != error_mark_node && type != error_mark_node, 211);
  
--- 1335,1340 ----
*************** tree
*** 2212,2218 ****
  build_new_1 (exp)
       tree exp;
  {
!   tree placement, init, t;
    tree type, true_type, size, rval;
    tree nelts = NULL_TREE;
    tree alloc_expr, alloc_node = NULL_TREE;
--- 2211,2217 ----
  build_new_1 (exp)
       tree exp;
  {
!   tree placement, init;
    tree type, true_type, size, rval;
    tree nelts = NULL_TREE;
    tree alloc_expr, alloc_node = NULL_TREE;
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/pt.c egcs-980307/gcc/cp/pt.c
*** egcs-980307.orig/gcc/cp/pt.c	Thu Mar  5 09:20:51 1998
--- egcs-980307/gcc/cp/pt.c	Sun Mar  8 12:15:44 1998
*************** instantiate_class_template (type)
*** 3129,3136 ****
        /* These will add themselves to CLASSTYPE_TAGS for the new type.  */
        if (TREE_CODE (tag) == ENUMERAL_TYPE)
  	{
! 	  tree newtag = tsubst_enum (tag, args, field_chain);
! 
  	  while (*field_chain)
  	    {
  	      DECL_FIELD_CONTEXT (*field_chain) = type;
--- 3129,3135 ----
        /* These will add themselves to CLASSTYPE_TAGS for the new type.  */
        if (TREE_CODE (tag) == ENUMERAL_TYPE)
  	{
! 	  (void) tsubst_enum (tag, args, field_chain);
  	  while (*field_chain)
  	    {
  	      DECL_FIELD_CONTEXT (*field_chain) = type;
*************** do_decl_instantiation (declspecs, declar
*** 5857,5864 ****
       tree declspecs, declarator, storage;
  {
    tree decl = grokdeclarator (declarator, declspecs, NORMAL, 0, NULL_TREE);
-   tree name;
-   tree fn;
    tree result = NULL_TREE;
    int extern_p = 0;
  
--- 5856,5861 ----
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/tree.c egcs-980307/gcc/cp/tree.c
*** egcs-980307.orig/gcc/cp/tree.c	Mon Feb 23 18:04:59 1998
--- egcs-980307/gcc/cp/tree.c	Sun Mar  8 15:54:11 1998
*************** get_type_decl (t)
*** 1920,1925 ****
--- 1921,1929 ----
      return TYPE_STUB_DECL (t);
    
    my_friendly_abort (42);
+ 
+   /* Stop compiler from complaining control reaches end of non-void function.  */
+   return 0;
  }
  
  int
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cp/typeck.c egcs-980307/gcc/cp/typeck.c
*** egcs-980307.orig/gcc/cp/typeck.c	Thu Mar  5 09:20:56 1998
--- egcs-980307/gcc/cp/typeck.c	Sun Mar  8 15:45:52 1998
*************** tree
*** 4899,4906 ****
  build_x_conditional_expr (ifexp, op1, op2)
       tree ifexp, op1, op2;
  {
-   tree rval = NULL_TREE;
- 
    if (processing_template_decl)
      return build_min_nt (COND_EXPR, ifexp, op1, op2);
  
--- 4899,4904 ----
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/cplus-dem.c egcs-980307/gcc/cplus-dem.c
*** egcs-980307.orig/gcc/cplus-dem.c	Sat Feb  7 23:58:32 1998
--- egcs-980307/gcc/cplus-dem.c	Sun Mar  8 12:34:10 1998
*************** static int
*** 264,270 ****
  gnu_special PARAMS ((struct work_stuff *, const char **, string *));
  
  static int
! arm_special PARAMS ((struct work_stuff *, const char **, string *));
  
  static void
  string_need PARAMS ((string *, int));
--- 264,270 ----
  gnu_special PARAMS ((struct work_stuff *, const char **, string *));
  
  static int
! arm_special PARAMS ((const char **, string *));
  
  static void
  string_need PARAMS ((string *, int));
*************** demangle_prefix (work, mangled, declp)
*** 1696,1702 ****
  	 then find the next "__" that separates the prefix from the signature.
  	 */
        if (!(ARM_DEMANGLING || LUCID_DEMANGLING)
! 	  || (arm_special (work, mangled, declp) == 0))
  	{
  	  while (*scan == '_')
  	    {
--- 1696,1702 ----
  	 then find the next "__" that separates the prefix from the signature.
  	 */
        if (!(ARM_DEMANGLING || LUCID_DEMANGLING)
! 	  || (arm_special (mangled, declp) == 0))
  	{
  	  while (*scan == '_')
  	    {
*************** LOCAL FUNCTION
*** 1940,1947 ****
  SYNOPSIS
  
  	static int
! 	arm_special (struct work_stuff *work, const char **mangled,
! 			string *declp);
  
  
  DESCRIPTION
--- 1940,1947 ----
  SYNOPSIS
  
  	static int
! 	arm_special (const char **mangled,
! 		     string *declp);
  
  
  DESCRIPTION
*************** DESCRIPTION
*** 1955,1962 ****
   */
  
  static int
! arm_special (work, mangled, declp)
!      struct work_stuff *work;
       const char **mangled;
       string *declp;
  {
--- 1955,1961 ----
   */
  
  static int
! arm_special (mangled, declp)
       const char **mangled;
       string *declp;
  {
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/except.c egcs-980307/gcc/except.c
*** egcs-980307.orig/gcc/except.c	Sat Feb 14 21:34:02 1998
--- egcs-980307/gcc/except.c	Sun Mar  8 14:45:45 1998
*************** init_eh ()
*** 1790,1796 ****
  {
    /* Generate rtl to reference the variable in which the PC of the
       current context is saved.  */
!   tree type = build_pointer_type (make_node (VOID_TYPE));
  }
  
  /* Initialize the per-function EH information.  */
--- 1790,1796 ----
  {
    /* Generate rtl to reference the variable in which the PC of the
       current context is saved.  */
!   (void) build_pointer_type (make_node (VOID_TYPE));
  }
  
  /* Initialize the per-function EH information.  */
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/gcc.c egcs-980307/gcc/gcc.c
*** egcs-980307.orig/gcc/gcc.c	Sun Mar  1 16:10:04 1998
--- egcs-980307/gcc/gcc.c	Sun Mar  8 16:02:53 1998
*************** static void error		PROTO(());
*** 259,264 ****
--- 259,268 ----
  void fancy_abort ();
  char *xmalloc ();
  char *xrealloc ();
+ 
+ #ifdef LANG_SPECIFIC_DRIVER
+ extern void lang_specific_driver PROTO ((void (*) (), int *, char ***));
+ #endif
  
  /* Specs are strings containing lines, each of which (if not blank)
  is made up of a program name, and arguments separated by spaces.
*************** static int argbuf_length;
*** 1210,1217 ****
  
  static int argbuf_index;
  
  /* This is the list of suffixes and codes (%g/%u/%U) and the associated
!    temp file.  Used only if MKTEMP_EACH_FILE.  */
  
  static struct temp_name {
    char *suffix;		/* suffix associated with the code.  */
--- 1214,1222 ----
  
  static int argbuf_index;
  
+ #ifdef MKTEMP_EACH_FILE
  /* This is the list of suffixes and codes (%g/%u/%U) and the associated
!    temp file.  */
  
  static struct temp_name {
    char *suffix;		/* suffix associated with the code.  */
*************** static struct temp_name {
*** 1221,1226 ****
--- 1226,1232 ----
    int filename_length;	/* strlen (filename).  */
    struct temp_name *next;
  } *temp_names;
+ #endif
  
  /* Number of commands executed so far.  */
  
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genattr.c egcs-980307/gcc/genattr.c
*** egcs-980307.orig/gcc/genattr.c	Sun Mar  1 16:10:05 1998
--- egcs-980307/gcc/genattr.c	Sun Mar  8 14:32:25 1998
*************** xrealloc (ptr, size)
*** 222,227 ****
--- 222,228 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genattr: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genconfig.c egcs-980307/gcc/genconfig.c
*** egcs-980307.orig/gcc/genconfig.c	Sun Mar  1 16:10:08 1998
--- egcs-980307/gcc/genconfig.c	Sun Mar  8 14:42:34 1998
*************** xrealloc (ptr, size)
*** 270,275 ****
--- 270,276 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genconfig: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genemit.c egcs-980307/gcc/genemit.c
*** egcs-980307.orig/gcc/genemit.c	Sun Mar  1 16:10:09 1998
--- egcs-980307/gcc/genemit.c	Sun Mar  8 15:29:41 1998
*************** xrealloc (ptr, size)
*** 701,706 ****
--- 701,707 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genemit: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genextract.c egcs-980307/gcc/genextract.c
*** egcs-980307.orig/gcc/genextract.c	Sun Mar  1 16:10:10 1998
--- egcs-980307/gcc/genextract.c	Sun Mar  8 15:28:19 1998
*************** xrealloc (ptr, size)
*** 372,377 ****
--- 372,378 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genextract: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genflags.c egcs-980307/gcc/genflags.c
*** egcs-980307.orig/gcc/genflags.c	Sun Mar  1 16:10:11 1998
--- egcs-980307/gcc/genflags.c	Sun Mar  8 14:40:57 1998
*************** xrealloc (ptr, size)
*** 204,209 ****
--- 204,210 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genflags: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genopinit.c egcs-980307/gcc/genopinit.c
*** egcs-980307.orig/gcc/genopinit.c	Sun Mar  1 16:10:12 1998
--- egcs-980307/gcc/genopinit.c	Sun Mar  8 15:27:01 1998
*************** xrealloc (ptr, size)
*** 315,320 ****
--- 315,321 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genopinit: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genoutput.c egcs-980307/gcc/genoutput.c
*** egcs-980307.orig/gcc/genoutput.c	Sun Mar  1 16:10:13 1998
--- egcs-980307/gcc/genoutput.c	Sun Mar  8 11:13:16 1998
*************** output_epilogue ()
*** 242,248 ****
      int offset = 0;
      int next;
      char * last_name = 0;
!     char * next_name;
      register struct data *n;
  
      for (n = insn_data, next = 1; n; n = n->next, next++)
--- 242,248 ----
      int offset = 0;
      int next;
      char * last_name = 0;
!     char * next_name = 0;
      register struct data *n;
  
      for (n = insn_data, next = 1; n; n = n->next, next++)
*************** mybcopy (b1, b2, length)
*** 920,925 ****
--- 920,926 ----
  static void
  fatal (s, a1, a2, a3, a4)
       char *s;
+      int a1, a2, a3, a4;
  {
    fprintf (stderr, "genoutput: ");
    fprintf (stderr, s, a1, a2, a3, a4);
*************** fancy_abort ()
*** 939,944 ****
--- 940,946 ----
  static void
  error (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genoutput: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/genpeep.c egcs-980307/gcc/genpeep.c
*** egcs-980307.orig/gcc/genpeep.c	Sun Mar  1 16:10:14 1998
--- egcs-980307/gcc/genpeep.c	Sun Mar  8 15:19:40 1998
*************** xrealloc (ptr, size)
*** 414,419 ****
--- 414,420 ----
  static void
  fatal (s, a1, a2)
       char *s;
+      int a1, a2;
  {
    fprintf (stderr, "genpeep: ");
    fprintf (stderr, s, a1, a2);
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/real.c egcs-980307/gcc/real.c
*** egcs-980307.orig/gcc/real.c	Sun Nov  2 22:17:51 1997
--- egcs-980307/gcc/real.c	Sun Mar  8 15:03:00 1998
*************** static void asctoe113	PROTO((char *, uns
*** 399,409 ****
--- 399,413 ----
  static void asctoe	PROTO((char *, unsigned EMUSHORT *));
  static void asctoeg	PROTO((char *, unsigned EMUSHORT *, int));
  static void efloor	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+ #if 0
  static void efrexp	PROTO((unsigned EMUSHORT *, int *,
  			       unsigned EMUSHORT *));
+ #endif
  static void eldexp	PROTO((unsigned EMUSHORT *, int, unsigned EMUSHORT *));
+ #if 0
  static void eremain	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
  			       unsigned EMUSHORT *));
+ #endif
  static void eiremain	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
  static void mtherr	PROTO((char *, int));
  #ifdef DEC
*************** static void toibm	PROTO((unsigned EMUSHO
*** 420,430 ****
--- 424,436 ----
  			       enum machine_mode));
  #endif
  static void make_nan	PROTO((unsigned EMUSHORT *, int, enum machine_mode));
+ #if 0
  static void uditoe	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
  static void ditoe	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
  static void etoudi	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
  static void etodi	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
  static void esqrt	PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+ #endif
  
  /* Copy 32-bit numbers obtained from array containing 16-bit numbers,
     swapping ends if required, into output array of longs.  The
*************** efloor (x, y)
*** 5308,5313 ****
--- 5314,5320 ----
  }
  
  
+ #if 0
  /* Return S and EXP such that  S * 2^EXP = X and .5 <= S < 1.
     For example, 1.1 = 0.55 * 2^1.  */
  
*************** efrexp (x, exp, s)
*** 5332,5337 ****
--- 5339,5345 ----
    emovo (xi, s);
    *exp = (int) (li - 0x3ffe);
  }
+ #endif
  
  /* Return e type Y = X * 2^PWR2.  */
  
*************** eldexp (x, pwr2, y)
*** 5354,5359 ****
--- 5362,5368 ----
  }
  
  
+ #if 0
  /* C = remainder after dividing B by A, all e type values.
     Least significant integer quotient bits left in EQUOT.  */
  
*************** eremain (a, b, c)
*** 5389,5394 ****
--- 5398,5404 ----
      num[0] = 0xffff;
    emovo (num, c);
  }
+ #endif
  
  /*  Return quotient of exploded e-types NUM / DEN in EQUOT,
      remainder in NUM.  */
*************** ereal_from_double (d)
*** 5955,5960 ****
--- 5965,5971 ----
  }
  
  
+ #if 0
  /* Convert target computer unsigned 64-bit integer to e-type.
     The endian-ness of DImode follows the convention for integers,
     so we use WORDS_BIG_ENDIAN here, not REAL_WORDS_BIG_ENDIAN.  */
*************** esqrt (x, y)
*** 6325,6330 ****
--- 6336,6342 ----
    emdnorm (sq, k, 0, exp, 64);
    emovo (sq, y);
  }
+ #endif
  #endif /* EMU_NON_COMPILE not defined */
  
  /* Return the binary precision of the significand for a given
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/reload.c egcs-980307/gcc/reload.c
*** egcs-980307.orig/gcc/reload.c	Fri Mar  6 17:13:29 1998
--- egcs-980307/gcc/reload.c	Sun Mar  8 15:19:01 1998
*************** static int output_reloadnum;
*** 306,314 ****
--- 306,316 ----
        ? RELOAD_FOR_OUTADDR_ADDRESS			\
        : (type)))
  
+ #ifdef HAVE_SECONDARY_RELOADS
  static int push_secondary_reload PROTO((int, rtx, int, int, enum reg_class,
  					enum machine_mode, enum reload_type,
  					enum insn_code *));
+ #endif
  static enum reg_class find_valid_class PROTO((enum machine_mode, int));
  static int push_reload		PROTO((rtx, rtx, rtx *, rtx *, enum reg_class,
  				       enum machine_mode, enum machine_mode,
diff -rcp -x CVS -x *.o -x *.info* -x *.html* -x *.elc -x *.dvi -x *.orig -x *~ -x version.el egcs-980307.orig/gcc/varasm.c egcs-980307/gcc/varasm.c
*** egcs-980307.orig/gcc/varasm.c	Sun Mar  1 16:10:39 1998
--- egcs-980307/gcc/varasm.c	Sun Mar  8 14:57:25 1998
*************** assemble_static_space (size)
*** 1667,1677 ****
--- 1667,1679 ----
    char name[12];
    char *namestring;
    rtx x;
+ #ifndef ASM_OUTPUT_ALIGNED_LOCAL
    /* Round size up to multiple of BIGGEST_ALIGNMENT bits
       so that each uninitialized object starts on such a boundary.  */
    int rounded = ((size + (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1)
  		 / (BIGGEST_ALIGNMENT / BITS_PER_UNIT)
  		 * (BIGGEST_ALIGNMENT / BITS_PER_UNIT));
+ #endif
  
  #if 0
    if (flag_shared_data)



More information about the Gcc-bugs mailing list