m68k.h: Declare more functions used in macros.

        * m68k.h: Declare more functions used in macros.
        (REG_CLASS_CONTENTS): Completely embrace initializer.
        * m68k.md (adddi3, subdi3): Add abort call to avoid warning
        about returning no value.
        * cse.c (find_best_addr): Declare p and found_better only if
        needed.
        * dbxout.c (dbxout_continue): Define only if DBX_CONTIN_LENGTH > 0.
        * dwarfout.c (string_length_attribute): #if 0 away.
        * function.c (expand_function_end): Define varible blktramp only
        if needed.
        * jump.c (find_insert_position): Define only if !HAVE_cc0.
        * loop.c (combine_givs_p): Define variable tem only if needed.
        * real.c: Comment out unused functions eabs, eround,
        e{24,53,64,113}toasc and eiinfin.

From-SVN: r19998

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 801108d502e42a7a6e647d69b8701bd2dc943caa..4cff9d243eafd46fec0fc03dfd30fa6711d684d1 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,21 @@
+1998-05-24  Andreas Schwab  <schwab@issan.informatik.uni-dortmund.de>
+
+       * m68k.h: Declare more functions used in macros.
+       (REG_CLASS_CONTENTS): Completely embrace initializer.
+       * m68k.md (adddi3, subdi3): Add abort call to avoid warning
+       about returning no value.
+       * cse.c (find_best_addr): Declare p and found_better only if
+       needed.
+       * dbxout.c (dbxout_continue): Define only if DBX_CONTIN_LENGTH > 0.
+       * dwarfout.c (string_length_attribute): #if 0 away.
+       * function.c (expand_function_end): Define varible blktramp only
+       if needed.
+       * jump.c (find_insert_position): Define only if !HAVE_cc0.
+       * loop.c (combine_givs_p): Define variable tem only if needed.
+       * real.c: Comment out unused functions eabs, eround,
+       e{24,53,64,113}toasc and eiinfin.
+
+
 Sat May 23 23:44:53 1998  Alexandre Oliva <oliva@dcc.unicamp.br>
 
        * Makefile.in (boostrap2-lean, bootstrap3-lean,

diff --git a/gcc/config/m68k/m68k.h b/gcc/config/m68k/m68k.h
index 623e3ce197912a6eb2dbda8b69c09233147b344e..f3563a15a8a9db1f1288f97cfc445ef469a7d021 100644 (file)
--- a/gcc/config/m68k/m68k.h
+++ b/gcc/config/m68k/m68k.h
@@ -586,14 +586,14 @@ enum reg_class {
 
 #define REG_CLASS_CONTENTS \
 {                                      \
- 0x00000000,           /* NO_REGS */           \
- 0x000000ff,   /* DATA_REGS */         \
- 0x0000ff00,   /* ADDR_REGS */         \
- 0x00ff0000,   /* FP_REGS */           \
- 0x0000ffff,   /* GENERAL_REGS */      \
- 0x00ff00ff,   /* DATA_OR_FP_REGS */   \
- 0x00ffff00,    /* ADDR_OR_FP_REGS */   \
- 0x00ffffff,   /* ALL_REGS */          \
+  {0x00000000},  /* NO_REGS */         \
+  {0x000000ff},  /* DATA_REGS */       \
+  {0x0000ff00},  /* ADDR_REGS */       \
+  {0x00ff0000},  /* FP_REGS */         \
+  {0x0000ffff},  /* GENERAL_REGS */    \
+  {0x00ff00ff},  /* DATA_OR_FP_REGS */ \
+  {0x00ffff00},  /* ADDR_OR_FP_REGS */ \
+  {0x00ffffff},  /* ALL_REGS */                \
 }
 
 /* The same information, inverted:
@@ -2121,6 +2121,8 @@ extern int use_return_insn ();
 extern void print_operand_address ();
 extern void print_operand ();
 extern void notice_update_cc ();
+extern void finalize_pic ();
+extern void override_options ();
 
 \f
 /*

diff --git a/gcc/config/m68k/m68k.md b/gcc/config/m68k/m68k.md
index cb31fa5f09290e6556f150368cf0dd4f03f9987a..f583dc5e1cd841ca0fd7c5dd9496d08426b68ea5 100644 (file)
--- a/gcc/config/m68k/m68k.md
+++ b/gcc/config/m68k/m68k.md
@@ -2220,6 +2220,8 @@
          return \"add%.l %R2,%1\;move%.l %0,%3\;addx%.l %2,%3\;move%.l %3,%0\";
        }
     }
+  else
+    abort ();
 } ")
 
 (define_insn "addsi_lshrsi_31"
@@ -2777,6 +2779,8 @@
          return \"sub%.l %R2,%1\;move%.l %0,%3\;subx%.l %2,%3\;move%.l %3,%0\";
        }
     }
+  else
+    abort ();
 } ")
 
 (define_insn "subsi3"

diff --git a/gcc/cse.c b/gcc/cse.c
index 6d513c121be2454aee071b28e9c142e5b1ed1161..d494b04466a249da1ea6f95af87101e6ca3ff9cd 100644 (file)
--- a/gcc/cse.c
+++ b/gcc/cse.c
@@ -2564,9 +2564,12 @@ find_best_addr (insn, loc)
      rtx insn;
      rtx *loc;
 {
-  struct table_elt *elt, *p;
+  struct table_elt *elt;
   rtx addr = *loc;
+#ifdef ADDRESS_COST
+  struct table_elt *p;
   int found_better = 1;
+#endif
   int save_do_not_record = do_not_record;
   int save_hash_arg_in_memory = hash_arg_in_memory;
   int save_hash_arg_in_struct = hash_arg_in_struct;

diff --git a/gcc/dbxout.c b/gcc/dbxout.c
index bc2e2bac455761aa9d8553352d73a478c09d8380..a2abc7fc94413c5a5344bac2f103726099a933d0 100644 (file)
--- a/gcc/dbxout.c
+++ b/gcc/dbxout.c
@@ -326,7 +326,9 @@ static void dbxout_function_end             PROTO((void));
 #endif
 static void dbxout_typedefs            PROTO((tree));
 static void dbxout_type_index          PROTO((tree));
+#if DBX_CONTIN_LENGTH > 0
 static void dbxout_continue            PROTO((void));
+#endif
 static void dbxout_type_fields         PROTO((tree));
 static void dbxout_type_method_1       PROTO((tree, char *));
 static void dbxout_type_methods                PROTO((tree));
@@ -602,6 +604,7 @@ dbxout_type_index (type)
 #endif
 }
 
+#if DBX_CONTIN_LENGTH > 0
 /* Continue a symbol-description that gets too big.
    End one symbol table entry with a double-backslash
    and start a new one, eventually producing something like
@@ -620,6 +623,7 @@ dbxout_continue ()
   fprintf (asmfile, "%s \"", ASM_STABS_OP);
   current_sym_nchars = 0;
 }
+#endif /* DBX_CONTIN_LENGTH > 0 */
 \f
 /* Subroutine of `dbxout_type'.  Output the type fields of TYPE.
    This must be a separate function because anonymous unions require

diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c
index ce9df47efd385699496bb3365521db62c5e544f6..c4bfc6321f84fdda930d996c387b4c32e6a8501a 100644 (file)
--- a/gcc/dwarfout.c
+++ b/gcc/dwarfout.c
@@ -362,7 +362,9 @@ static inline void body_begin_attribute     PROTO((char *));
 static inline void body_end_attribute  PROTO((char *));
 static inline void language_attribute  PROTO((unsigned));
 static inline void member_attribute    PROTO((tree));
+#if 0
 static inline void string_length_attribute PROTO((tree));
+#endif
 static inline void comp_dir_attribute  PROTO((char *));
 static inline void sf_names_attribute  PROTO((char *));
 static inline void src_info_attribute  PROTO((char *));
@@ -2875,6 +2877,7 @@ member_attribute (context)
     }
 }
 
+#if 0
 static inline void
 string_length_attribute (upper_bound)
      register tree upper_bound;
@@ -2890,6 +2893,7 @@ string_length_attribute (upper_bound)
   output_bound_representation (upper_bound, 0, 'u');
   ASM_OUTPUT_LABEL (asm_out_file, end_label);
 }
+#endif
 
 static inline void
 comp_dir_attribute (dirname)

diff --git a/gcc/function.c b/gcc/function.c
index 900ad3b47cbf8006757fa66cfa571856fde7f6c9..00e7546b26882160d6654c97a03a4a297ac4643f 100644 (file)
--- a/gcc/function.c
+++ b/gcc/function.c
@@ -5695,7 +5695,9 @@ expand_function_end (filename, line, end_bindings)
       tree function = TREE_PURPOSE (link);
       rtx context = lookup_static_chain (function);
       rtx tramp = RTL_EXPR_RTL (TREE_VALUE (link));
+#ifdef TRAMPOLINE_TEMPLATE
       rtx blktramp;
+#endif
       rtx seq;
 
 #ifdef TRAMPOLINE_TEMPLATE

diff --git a/gcc/jump.c b/gcc/jump.c
index 74b038c7c796810074907a6921c156525254f982..301381c40d9bf16442784f9d855b31925a02f266 100644 (file)
--- a/gcc/jump.c
+++ b/gcc/jump.c
@@ -118,7 +118,9 @@ static void delete_from_jump_chain  PROTO((rtx));
 static int delete_labelref_insn                PROTO((rtx, rtx, int));
 static void mark_modified_reg          PROTO((rtx, rtx));
 static void redirect_tablejump         PROTO((rtx, rtx));
+#ifndef HAVE_cc0
 static rtx find_insert_position         PROTO((rtx, rtx));
+#endif
 \f
 /* Delete no-op jumps and optimize jumps to jumps
    and jumps around jumps.
@@ -4739,6 +4741,7 @@ rtx_equal_for_thread_p (x, y, yinsn)
 }
 \f
 
+#ifndef HAVE_cc0
 /* Return the insn that NEW can be safely inserted in front of starting at
    the jump insn INSN.  Return 0 if it is not safe to do this jump
    optimization.  Note that NEW must contain a single set. */
@@ -4779,3 +4782,4 @@ find_insert_position (insn, new)
 
   return reg_mentioned_p (SET_DEST (single_set (new)), prev) ? 0 : prev;
 }
+#endif /* !HAVE_cc0 */

diff --git a/gcc/loop.c b/gcc/loop.c
index 8bc4ef28fac75287af8e8064e98e15dbf6008891..45678def1dcd71a7928ea285a1042569c40bd05c 100644 (file)
--- a/gcc/loop.c
+++ b/gcc/loop.c
@@ -5845,7 +5845,9 @@ static int
 combine_givs_p (g1, g2)
      struct induction *g1, *g2;
 {
+#ifdef ADDRESS_COST
   rtx tem;
+#endif
 
   /* If these givs are identical, they can be combined.  */
   if (rtx_equal_p (g1->mult_val, g2->mult_val)

diff --git a/gcc/real.c b/gcc/real.c
index ac560499d611ff1e6b094e1f616a908736290589..37b0a883867e90ae8f43535fb8700030cffcb69b 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -325,7 +325,9 @@ static void endian  PROTO((unsigned EMUSHORT *, long *,
                               enum machine_mode));
 static void eclear     PROTO((unsigned EMUSHORT *));
 static void emov       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+#if 0
 static void eabs       PROTO((unsigned EMUSHORT *));
+#endif
 static void eneg       PROTO((unsigned EMUSHORT *));
 static int eisneg      PROTO((unsigned EMUSHORT *));
 static int eisinf      PROTO((unsigned EMUSHORT *));
@@ -340,7 +342,9 @@ static void emovz   PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 static void einan      PROTO((unsigned EMUSHORT *));
 static int eiisnan     PROTO((unsigned EMUSHORT *));
 static int eiisneg     PROTO((unsigned EMUSHORT *));
+#if 0
 static void eiinfin    PROTO((unsigned EMUSHORT *));
+#endif
 static int eiisinf     PROTO((unsigned EMUSHORT *));
 static int ecmpm       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 static void eshdn1     PROTO((unsigned EMUSHORT *));
@@ -379,7 +383,9 @@ static void toe53   PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 static void etoe24     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 static void toe24      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 static int ecmp                PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+#if 0
 static void eround     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+#endif
 static void ltoe       PROTO((HOST_WIDE_INT *, unsigned EMUSHORT *));
 static void ultoe      PROTO((unsigned HOST_WIDE_INT *, unsigned EMUSHORT *));
 static void eifrac     PROTO((unsigned EMUSHORT *, HOST_WIDE_INT *,
@@ -388,10 +394,12 @@ static void euifrac       PROTO((unsigned EMUSHORT *, unsigned HOST_WIDE_INT *,
                               unsigned EMUSHORT *));
 static int eshift      PROTO((unsigned EMUSHORT *, int));
 static int enormlz     PROTO((unsigned EMUSHORT *));
+#if 0
 static void e24toasc   PROTO((unsigned EMUSHORT *, char *, int));
 static void e53toasc   PROTO((unsigned EMUSHORT *, char *, int));
 static void e64toasc   PROTO((unsigned EMUSHORT *, char *, int));
 static void e113toasc  PROTO((unsigned EMUSHORT *, char *, int));
+#endif /* 0 */
 static void etoasc     PROTO((unsigned EMUSHORT *, char *, int));
 static void asctoe24   PROTO((char *, unsigned EMUSHORT *));
 static void asctoe53   PROTO((char *, unsigned EMUSHORT *));
@@ -1292,7 +1300,9 @@ ereal_isneg (x)
        e53toe (&d, e)          IEEE double precision to e type
        e64toe (&d, e)          IEEE long double precision to e type
        e113toe (&d, e)         128-bit long double precision to e type
+#if 0
        eabs (e)                        absolute value
+#endif
        eadd (a, b, c)          c = b + a
        eclear (e)              e = 0
        ecmp (a, b)             Returns 1 if a > b, 0 if a == b,
@@ -1307,12 +1317,16 @@ ereal_isneg (x)
        emov (a, b)             b = a
        emul (a, b, c)          c = b * a
        eneg (e)                        e = -e
+#if 0
        eround (a, b)           b = nearest integer value to a
+#endif
        esub (a, b, c)          c = b - a
+#if 0
        e24toasc (&f, str, n)   single to ASCII string, n digits after decimal
        e53toasc (&d, str, n)   double to ASCII string, n digits after decimal
        e64toasc (&d, str, n)   80-bit long double to ASCII string
        e113toasc (&d, str, n)  128-bit long double to ASCII string
+#endif
        etoasc (e, str, n)      e to ASCII string, n digits after decimal
        etoe24 (e, &f)          convert e type to IEEE single precision
        etoe53 (e, &d)          convert e type to IEEE double precision
@@ -1350,7 +1364,9 @@ ereal_isneg (x)
         eiisnan (ai)            1 if a NaN
        eiisneg (ai)            1 if sign bit of ai != 0, else 0
         einan (ai)              set ai = NaN
+#if 0
         eiinfin (ai)            set ai = infinity
+#endif
 
   The result is always normalized and rounded to NI-4 word precision
   after each arithmetic operation.
@@ -1520,6 +1536,7 @@ emov (a, b)
 }
 
 
+#if 0
 /* Absolute value of e-type X.  */
 
 static void 
@@ -1529,6 +1546,7 @@ eabs (x)
   /* sign is top bit of last word of external format */
   x[NE - 1] &= 0x7fff;         
 }
+#endif /* 0 */
 
 /* Negate the e-type number X.  */
 
@@ -1821,6 +1839,7 @@ eiisneg (x)
   return x[0] != 0;
 }
 
+#if 0
 /* Fill exploded e-type X with infinity pattern.
    This has maximum exponent and significand all zeros.  */
 
@@ -1832,6 +1851,7 @@ eiinfin (x)
   ecleaz (x);
   x[E] = 0x7fff;
 }
+#endif /* 0 */
 
 /* Return nonzero if exploded e-type X is infinite.  */
 
@@ -4083,6 +4103,7 @@ ecmp (a, b)
     return (-msign);           /* p is littler */
 }
 
+#if 0
 /* Find e-type nearest integer to X, as floor (X + 0.5).  */
 
 static void 
@@ -4092,6 +4113,7 @@ eround (x, y)
   eadd (ehalf, x, y);
   efloor (y, y);
 }
+#endif /* 0 */
 
 /* Convert HOST_WIDE_INT LP to e type Y.  */
 
@@ -4563,6 +4585,7 @@ static unsigned EMUSHORT emtens[NTEN + 1][NE] =
 };
 #endif
 
+#if 0
 /* Convert float value X to ASCII string STRING with NDIG digits after
    the decimal point.  */
 
@@ -4622,6 +4645,7 @@ e113toasc (x, string, ndigs)
   e113toe (x, w);
   etoasc (w, string, ndigs);
 }
+#endif /* 0 */
 
 /* Convert e-type X to ASCII string STRING with NDIGS digits after
    the decimal point.  */