NetBSD/gnu/usr.bin/gcc2/libgcc/_lesf2.c

36 lines
781 B
C

/* $Id: _lesf2.c,v 1.2 1993/08/02 17:38:13 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
__lesf2 (a, b)
union flt_or_int a, b;
{
union flt_or_int intify;
return 1 - ( (( a ).f) <= (( b ).f) ); ;
}