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
This commit is contained in:
parent
10ad38cac0
commit
7a87758dfb
|
@ -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>
|
Sat May 23 23:44:53 1998 Alexandre Oliva <oliva@dcc.unicamp.br>
|
||||||
|
|
||||||
* Makefile.in (boostrap2-lean, bootstrap3-lean,
|
* Makefile.in (boostrap2-lean, bootstrap3-lean,
|
||||||
|
|
|
@ -586,14 +586,14 @@ enum reg_class {
|
||||||
|
|
||||||
#define REG_CLASS_CONTENTS \
|
#define REG_CLASS_CONTENTS \
|
||||||
{ \
|
{ \
|
||||||
0x00000000, /* NO_REGS */ \
|
{0x00000000}, /* NO_REGS */ \
|
||||||
0x000000ff, /* DATA_REGS */ \
|
{0x000000ff}, /* DATA_REGS */ \
|
||||||
0x0000ff00, /* ADDR_REGS */ \
|
{0x0000ff00}, /* ADDR_REGS */ \
|
||||||
0x00ff0000, /* FP_REGS */ \
|
{0x00ff0000}, /* FP_REGS */ \
|
||||||
0x0000ffff, /* GENERAL_REGS */ \
|
{0x0000ffff}, /* GENERAL_REGS */ \
|
||||||
0x00ff00ff, /* DATA_OR_FP_REGS */ \
|
{0x00ff00ff}, /* DATA_OR_FP_REGS */ \
|
||||||
0x00ffff00, /* ADDR_OR_FP_REGS */ \
|
{0x00ffff00}, /* ADDR_OR_FP_REGS */ \
|
||||||
0x00ffffff, /* ALL_REGS */ \
|
{0x00ffffff}, /* ALL_REGS */ \
|
||||||
}
|
}
|
||||||
|
|
||||||
/* The same information, inverted:
|
/* The same information, inverted:
|
||||||
|
@ -2121,6 +2121,8 @@ extern int use_return_insn ();
|
||||||
extern void print_operand_address ();
|
extern void print_operand_address ();
|
||||||
extern void print_operand ();
|
extern void print_operand ();
|
||||||
extern void notice_update_cc ();
|
extern void notice_update_cc ();
|
||||||
|
extern void finalize_pic ();
|
||||||
|
extern void override_options ();
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
|
|
@ -2220,6 +2220,8 @@
|
||||||
return \"add%.l %R2,%1\;move%.l %0,%3\;addx%.l %2,%3\;move%.l %3,%0\";
|
return \"add%.l %R2,%1\;move%.l %0,%3\;addx%.l %2,%3\;move%.l %3,%0\";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else
|
||||||
|
abort ();
|
||||||
} ")
|
} ")
|
||||||
|
|
||||||
(define_insn "addsi_lshrsi_31"
|
(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\";
|
return \"sub%.l %R2,%1\;move%.l %0,%3\;subx%.l %2,%3\;move%.l %3,%0\";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else
|
||||||
|
abort ();
|
||||||
} ")
|
} ")
|
||||||
|
|
||||||
(define_insn "subsi3"
|
(define_insn "subsi3"
|
||||||
|
|
|
@ -2564,9 +2564,12 @@ find_best_addr (insn, loc)
|
||||||
rtx insn;
|
rtx insn;
|
||||||
rtx *loc;
|
rtx *loc;
|
||||||
{
|
{
|
||||||
struct table_elt *elt, *p;
|
struct table_elt *elt;
|
||||||
rtx addr = *loc;
|
rtx addr = *loc;
|
||||||
|
#ifdef ADDRESS_COST
|
||||||
|
struct table_elt *p;
|
||||||
int found_better = 1;
|
int found_better = 1;
|
||||||
|
#endif
|
||||||
int save_do_not_record = do_not_record;
|
int save_do_not_record = do_not_record;
|
||||||
int save_hash_arg_in_memory = hash_arg_in_memory;
|
int save_hash_arg_in_memory = hash_arg_in_memory;
|
||||||
int save_hash_arg_in_struct = hash_arg_in_struct;
|
int save_hash_arg_in_struct = hash_arg_in_struct;
|
||||||
|
|
|
@ -326,7 +326,9 @@ static void dbxout_function_end PROTO((void));
|
||||||
#endif
|
#endif
|
||||||
static void dbxout_typedefs PROTO((tree));
|
static void dbxout_typedefs PROTO((tree));
|
||||||
static void dbxout_type_index PROTO((tree));
|
static void dbxout_type_index PROTO((tree));
|
||||||
|
#if DBX_CONTIN_LENGTH > 0
|
||||||
static void dbxout_continue PROTO((void));
|
static void dbxout_continue PROTO((void));
|
||||||
|
#endif
|
||||||
static void dbxout_type_fields PROTO((tree));
|
static void dbxout_type_fields PROTO((tree));
|
||||||
static void dbxout_type_method_1 PROTO((tree, char *));
|
static void dbxout_type_method_1 PROTO((tree, char *));
|
||||||
static void dbxout_type_methods PROTO((tree));
|
static void dbxout_type_methods PROTO((tree));
|
||||||
|
@ -602,6 +604,7 @@ dbxout_type_index (type)
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#if DBX_CONTIN_LENGTH > 0
|
||||||
/* Continue a symbol-description that gets too big.
|
/* Continue a symbol-description that gets too big.
|
||||||
End one symbol table entry with a double-backslash
|
End one symbol table entry with a double-backslash
|
||||||
and start a new one, eventually producing something like
|
and start a new one, eventually producing something like
|
||||||
|
@ -620,6 +623,7 @@ dbxout_continue ()
|
||||||
fprintf (asmfile, "%s \"", ASM_STABS_OP);
|
fprintf (asmfile, "%s \"", ASM_STABS_OP);
|
||||||
current_sym_nchars = 0;
|
current_sym_nchars = 0;
|
||||||
}
|
}
|
||||||
|
#endif /* DBX_CONTIN_LENGTH > 0 */
|
||||||
|
|
||||||
/* Subroutine of `dbxout_type'. Output the type fields of TYPE.
|
/* Subroutine of `dbxout_type'. Output the type fields of TYPE.
|
||||||
This must be a separate function because anonymous unions require
|
This must be a separate function because anonymous unions require
|
||||||
|
|
|
@ -362,7 +362,9 @@ static inline void body_begin_attribute PROTO((char *));
|
||||||
static inline void body_end_attribute PROTO((char *));
|
static inline void body_end_attribute PROTO((char *));
|
||||||
static inline void language_attribute PROTO((unsigned));
|
static inline void language_attribute PROTO((unsigned));
|
||||||
static inline void member_attribute PROTO((tree));
|
static inline void member_attribute PROTO((tree));
|
||||||
|
#if 0
|
||||||
static inline void string_length_attribute PROTO((tree));
|
static inline void string_length_attribute PROTO((tree));
|
||||||
|
#endif
|
||||||
static inline void comp_dir_attribute PROTO((char *));
|
static inline void comp_dir_attribute PROTO((char *));
|
||||||
static inline void sf_names_attribute PROTO((char *));
|
static inline void sf_names_attribute PROTO((char *));
|
||||||
static inline void src_info_attribute PROTO((char *));
|
static inline void src_info_attribute PROTO((char *));
|
||||||
|
@ -2875,6 +2877,7 @@ member_attribute (context)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#if 0
|
||||||
static inline void
|
static inline void
|
||||||
string_length_attribute (upper_bound)
|
string_length_attribute (upper_bound)
|
||||||
register tree upper_bound;
|
register tree upper_bound;
|
||||||
|
@ -2890,6 +2893,7 @@ string_length_attribute (upper_bound)
|
||||||
output_bound_representation (upper_bound, 0, 'u');
|
output_bound_representation (upper_bound, 0, 'u');
|
||||||
ASM_OUTPUT_LABEL (asm_out_file, end_label);
|
ASM_OUTPUT_LABEL (asm_out_file, end_label);
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
static inline void
|
static inline void
|
||||||
comp_dir_attribute (dirname)
|
comp_dir_attribute (dirname)
|
||||||
|
|
|
@ -5695,7 +5695,9 @@ expand_function_end (filename, line, end_bindings)
|
||||||
tree function = TREE_PURPOSE (link);
|
tree function = TREE_PURPOSE (link);
|
||||||
rtx context = lookup_static_chain (function);
|
rtx context = lookup_static_chain (function);
|
||||||
rtx tramp = RTL_EXPR_RTL (TREE_VALUE (link));
|
rtx tramp = RTL_EXPR_RTL (TREE_VALUE (link));
|
||||||
|
#ifdef TRAMPOLINE_TEMPLATE
|
||||||
rtx blktramp;
|
rtx blktramp;
|
||||||
|
#endif
|
||||||
rtx seq;
|
rtx seq;
|
||||||
|
|
||||||
#ifdef TRAMPOLINE_TEMPLATE
|
#ifdef TRAMPOLINE_TEMPLATE
|
||||||
|
|
|
@ -118,7 +118,9 @@ static void delete_from_jump_chain PROTO((rtx));
|
||||||
static int delete_labelref_insn PROTO((rtx, rtx, int));
|
static int delete_labelref_insn PROTO((rtx, rtx, int));
|
||||||
static void mark_modified_reg PROTO((rtx, rtx));
|
static void mark_modified_reg PROTO((rtx, rtx));
|
||||||
static void redirect_tablejump PROTO((rtx, rtx));
|
static void redirect_tablejump PROTO((rtx, rtx));
|
||||||
|
#ifndef HAVE_cc0
|
||||||
static rtx find_insert_position PROTO((rtx, rtx));
|
static rtx find_insert_position PROTO((rtx, rtx));
|
||||||
|
#endif
|
||||||
|
|
||||||
/* Delete no-op jumps and optimize jumps to jumps
|
/* Delete no-op jumps and optimize jumps to jumps
|
||||||
and jumps around jumps.
|
and jumps around jumps.
|
||||||
|
@ -4739,6 +4741,7 @@ rtx_equal_for_thread_p (x, y, yinsn)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#ifndef HAVE_cc0
|
||||||
/* Return the insn that NEW can be safely inserted in front of starting at
|
/* 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
|
the jump insn INSN. Return 0 if it is not safe to do this jump
|
||||||
optimization. Note that NEW must contain a single set. */
|
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;
|
return reg_mentioned_p (SET_DEST (single_set (new)), prev) ? 0 : prev;
|
||||||
}
|
}
|
||||||
|
#endif /* !HAVE_cc0 */
|
||||||
|
|
|
@ -5845,7 +5845,9 @@ static int
|
||||||
combine_givs_p (g1, g2)
|
combine_givs_p (g1, g2)
|
||||||
struct induction *g1, *g2;
|
struct induction *g1, *g2;
|
||||||
{
|
{
|
||||||
|
#ifdef ADDRESS_COST
|
||||||
rtx tem;
|
rtx tem;
|
||||||
|
#endif
|
||||||
|
|
||||||
/* If these givs are identical, they can be combined. */
|
/* If these givs are identical, they can be combined. */
|
||||||
if (rtx_equal_p (g1->mult_val, g2->mult_val)
|
if (rtx_equal_p (g1->mult_val, g2->mult_val)
|
||||||
|
|
24
gcc/real.c
24
gcc/real.c
|
@ -325,7 +325,9 @@ static void endian PROTO((unsigned EMUSHORT *, long *,
|
||||||
enum machine_mode));
|
enum machine_mode));
|
||||||
static void eclear PROTO((unsigned EMUSHORT *));
|
static void eclear PROTO((unsigned EMUSHORT *));
|
||||||
static void emov PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
static void emov PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
|
#if 0
|
||||||
static void eabs PROTO((unsigned EMUSHORT *));
|
static void eabs PROTO((unsigned EMUSHORT *));
|
||||||
|
#endif
|
||||||
static void eneg PROTO((unsigned EMUSHORT *));
|
static void eneg PROTO((unsigned EMUSHORT *));
|
||||||
static int eisneg PROTO((unsigned EMUSHORT *));
|
static int eisneg PROTO((unsigned EMUSHORT *));
|
||||||
static int eisinf 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 void einan PROTO((unsigned EMUSHORT *));
|
||||||
static int eiisnan PROTO((unsigned EMUSHORT *));
|
static int eiisnan PROTO((unsigned EMUSHORT *));
|
||||||
static int eiisneg PROTO((unsigned EMUSHORT *));
|
static int eiisneg PROTO((unsigned EMUSHORT *));
|
||||||
|
#if 0
|
||||||
static void eiinfin PROTO((unsigned EMUSHORT *));
|
static void eiinfin PROTO((unsigned EMUSHORT *));
|
||||||
|
#endif
|
||||||
static int eiisinf PROTO((unsigned EMUSHORT *));
|
static int eiisinf PROTO((unsigned EMUSHORT *));
|
||||||
static int ecmpm PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
static int ecmpm PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
static void eshdn1 PROTO((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 etoe24 PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
static void toe24 PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
static void toe24 PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
static int ecmp PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
static int ecmp PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
|
#if 0
|
||||||
static void eround PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
static void eround PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
|
||||||
|
#endif
|
||||||
static void ltoe PROTO((HOST_WIDE_INT *, unsigned EMUSHORT *));
|
static void ltoe PROTO((HOST_WIDE_INT *, unsigned EMUSHORT *));
|
||||||
static void ultoe PROTO((unsigned HOST_WIDE_INT *, unsigned EMUSHORT *));
|
static void ultoe PROTO((unsigned HOST_WIDE_INT *, unsigned EMUSHORT *));
|
||||||
static void eifrac PROTO((unsigned EMUSHORT *, HOST_WIDE_INT *,
|
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 *));
|
unsigned EMUSHORT *));
|
||||||
static int eshift PROTO((unsigned EMUSHORT *, int));
|
static int eshift PROTO((unsigned EMUSHORT *, int));
|
||||||
static int enormlz PROTO((unsigned EMUSHORT *));
|
static int enormlz PROTO((unsigned EMUSHORT *));
|
||||||
|
#if 0
|
||||||
static void e24toasc PROTO((unsigned EMUSHORT *, char *, int));
|
static void e24toasc PROTO((unsigned EMUSHORT *, char *, int));
|
||||||
static void e53toasc PROTO((unsigned EMUSHORT *, char *, int));
|
static void e53toasc PROTO((unsigned EMUSHORT *, char *, int));
|
||||||
static void e64toasc PROTO((unsigned EMUSHORT *, char *, int));
|
static void e64toasc PROTO((unsigned EMUSHORT *, char *, int));
|
||||||
static void e113toasc 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 etoasc PROTO((unsigned EMUSHORT *, char *, int));
|
||||||
static void asctoe24 PROTO((char *, unsigned EMUSHORT *));
|
static void asctoe24 PROTO((char *, unsigned EMUSHORT *));
|
||||||
static void asctoe53 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
|
e53toe (&d, e) IEEE double precision to e type
|
||||||
e64toe (&d, e) IEEE long 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
|
e113toe (&d, e) 128-bit long double precision to e type
|
||||||
|
#if 0
|
||||||
eabs (e) absolute value
|
eabs (e) absolute value
|
||||||
|
#endif
|
||||||
eadd (a, b, c) c = b + a
|
eadd (a, b, c) c = b + a
|
||||||
eclear (e) e = 0
|
eclear (e) e = 0
|
||||||
ecmp (a, b) Returns 1 if a > b, 0 if a == b,
|
ecmp (a, b) Returns 1 if a > b, 0 if a == b,
|
||||||
|
@ -1307,12 +1317,16 @@ ereal_isneg (x)
|
||||||
emov (a, b) b = a
|
emov (a, b) b = a
|
||||||
emul (a, b, c) c = b * a
|
emul (a, b, c) c = b * a
|
||||||
eneg (e) e = -e
|
eneg (e) e = -e
|
||||||
|
#if 0
|
||||||
eround (a, b) b = nearest integer value to a
|
eround (a, b) b = nearest integer value to a
|
||||||
|
#endif
|
||||||
esub (a, b, c) c = b - a
|
esub (a, b, c) c = b - a
|
||||||
|
#if 0
|
||||||
e24toasc (&f, str, n) single to ASCII string, n digits after decimal
|
e24toasc (&f, str, n) single to ASCII string, n digits after decimal
|
||||||
e53toasc (&d, str, n) double 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
|
e64toasc (&d, str, n) 80-bit long double to ASCII string
|
||||||
e113toasc (&d, str, n) 128-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
|
etoasc (e, str, n) e to ASCII string, n digits after decimal
|
||||||
etoe24 (e, &f) convert e type to IEEE single precision
|
etoe24 (e, &f) convert e type to IEEE single precision
|
||||||
etoe53 (e, &d) convert e type to IEEE double precision
|
etoe53 (e, &d) convert e type to IEEE double precision
|
||||||
|
@ -1350,7 +1364,9 @@ ereal_isneg (x)
|
||||||
eiisnan (ai) 1 if a NaN
|
eiisnan (ai) 1 if a NaN
|
||||||
eiisneg (ai) 1 if sign bit of ai != 0, else 0
|
eiisneg (ai) 1 if sign bit of ai != 0, else 0
|
||||||
einan (ai) set ai = NaN
|
einan (ai) set ai = NaN
|
||||||
|
#if 0
|
||||||
eiinfin (ai) set ai = infinity
|
eiinfin (ai) set ai = infinity
|
||||||
|
#endif
|
||||||
|
|
||||||
The result is always normalized and rounded to NI-4 word precision
|
The result is always normalized and rounded to NI-4 word precision
|
||||||
after each arithmetic operation.
|
after each arithmetic operation.
|
||||||
|
@ -1520,6 +1536,7 @@ emov (a, b)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#if 0
|
||||||
/* Absolute value of e-type X. */
|
/* Absolute value of e-type X. */
|
||||||
|
|
||||||
static void
|
static void
|
||||||
|
@ -1529,6 +1546,7 @@ eabs (x)
|
||||||
/* sign is top bit of last word of external format */
|
/* sign is top bit of last word of external format */
|
||||||
x[NE - 1] &= 0x7fff;
|
x[NE - 1] &= 0x7fff;
|
||||||
}
|
}
|
||||||
|
#endif /* 0 */
|
||||||
|
|
||||||
/* Negate the e-type number X. */
|
/* Negate the e-type number X. */
|
||||||
|
|
||||||
|
@ -1821,6 +1839,7 @@ eiisneg (x)
|
||||||
return x[0] != 0;
|
return x[0] != 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#if 0
|
||||||
/* Fill exploded e-type X with infinity pattern.
|
/* Fill exploded e-type X with infinity pattern.
|
||||||
This has maximum exponent and significand all zeros. */
|
This has maximum exponent and significand all zeros. */
|
||||||
|
|
||||||
|
@ -1832,6 +1851,7 @@ eiinfin (x)
|
||||||
ecleaz (x);
|
ecleaz (x);
|
||||||
x[E] = 0x7fff;
|
x[E] = 0x7fff;
|
||||||
}
|
}
|
||||||
|
#endif /* 0 */
|
||||||
|
|
||||||
/* Return nonzero if exploded e-type X is infinite. */
|
/* Return nonzero if exploded e-type X is infinite. */
|
||||||
|
|
||||||
|
@ -4083,6 +4103,7 @@ ecmp (a, b)
|
||||||
return (-msign); /* p is littler */
|
return (-msign); /* p is littler */
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#if 0
|
||||||
/* Find e-type nearest integer to X, as floor (X + 0.5). */
|
/* Find e-type nearest integer to X, as floor (X + 0.5). */
|
||||||
|
|
||||||
static void
|
static void
|
||||||
|
@ -4092,6 +4113,7 @@ eround (x, y)
|
||||||
eadd (ehalf, x, y);
|
eadd (ehalf, x, y);
|
||||||
efloor (y, y);
|
efloor (y, y);
|
||||||
}
|
}
|
||||||
|
#endif /* 0 */
|
||||||
|
|
||||||
/* Convert HOST_WIDE_INT LP to e type Y. */
|
/* Convert HOST_WIDE_INT LP to e type Y. */
|
||||||
|
|
||||||
|
@ -4563,6 +4585,7 @@ static unsigned EMUSHORT emtens[NTEN + 1][NE] =
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#if 0
|
||||||
/* Convert float value X to ASCII string STRING with NDIG digits after
|
/* Convert float value X to ASCII string STRING with NDIG digits after
|
||||||
the decimal point. */
|
the decimal point. */
|
||||||
|
|
||||||
|
@ -4622,6 +4645,7 @@ e113toasc (x, string, ndigs)
|
||||||
e113toe (x, w);
|
e113toe (x, w);
|
||||||
etoasc (w, string, ndigs);
|
etoasc (w, string, ndigs);
|
||||||
}
|
}
|
||||||
|
#endif /* 0 */
|
||||||
|
|
||||||
/* Convert e-type X to ASCII string STRING with NDIGS digits after
|
/* Convert e-type X to ASCII string STRING with NDIGS digits after
|
||||||
the decimal point. */
|
the decimal point. */
|
||||||
|
|
Loading…
Reference in New Issue