NetBSD/gnu/usr.bin/gcc2/libgcc/_gesf2.c
mycroft 2cce313a8b Add RCS identifiers, remove some completely useless RCS logs and patchkit
headers, and a few other insignificant changes.
1993-08-02 17:28:42 +00:00

36 lines
780 B
C

/* $Id: _gesf2.c,v 1.2 1993/08/02 17:38:10 mycroft Exp $ */
extern int target_flags;
enum reg_class
{
NO_REGS,
AREG, DREG, CREG, BREG,
Q_REGS,
SIREG, DIREG,
INDEX_REGS,
GENERAL_REGS,
FP_TOP_REG, FP_SECOND_REG,
FLOAT_REGS,
ALL_REGS, LIM_REG_CLASSES
};
extern enum reg_class regclass_map[17 ];
extern struct rtx_def *i386_compare_op0, *i386_compare_op1;
extern struct rtx_def *(*i386_compare_gen)(), *(*i386_compare_gen_eq)();
extern char *hi_reg_name[];
extern char *qi_reg_name[];
extern char *qi_high_reg_name[];
union flt_or_value { float i; float f; };
union flt_or_int { int i; float f; };
long int
__gesf2 (a, b)
union flt_or_int a, b;
{
union flt_or_int intify;
return ( (( a ).f) >= (( b ).f) ) - 1 ;
}