mcgrath%paris.Berkeley.EDU@GINGER.BERKELEY.EDU (Roland McGrath) (04/24/89)
The following file, when given to cc1 -O, produces an `abort' call in
expand_expr with GCC 1.34 on a Sun 3 (68020), Sun Unix 3.2.
# 1 "modf.c"
# 1 "modf-68881.c"
# 1 "../ansidecl.h"
# 90 "../ansidecl.h"
# 18 "modf-68881.c"
# 1 "./math.h"
# 1 "../errno.h"
# 1 "/usr/include/errno.h"
# 1 "/usr/include/sys/errno.h"
# 7 "/usr/include/errno.h"
extern int errno;
# 28 "../errno.h"
extern volatile int errno;
# 28 "./math.h"
# 1 "../float.h"
# 1 "../__fl_68881.h"
# 82 "../__fl_68881.h"
# 49 "../float.h"
# 33 "./math.h"
# 1 "./__math.h"
# 1 "./__math_68881.h"
# 76 "./__math_68881.h"
# 89 "./__math_68881.h"
# 128 "./__math_68881.h"
# 1 "./__math.h"
# 37 "./math.h"
extern const double acos (double __x) ;
extern const double asin (double __x) ;
extern const double atan (double __x) ;
extern const double atan2 (double __y, double __x) ;
extern const double cos (double __x) ;
extern const double sin (double __x) ;
extern const double tan (double __x) ;
extern const double cosh (double __x) ;
extern const double sinh (double __x) ;
extern const double tanh (double __x) ;
extern const double exp (double __x) ;
extern double frexp (double __value, int *__exp) ;
extern const double ldexp (double __x, int __exp) ;
extern const double log (double __x) ;
extern const double log10 (double __x) ;
extern double modf (double __value, double *__iptr) ;
extern const double pow (double __x, double __y) ;
extern const double sqrt (double __x) ;
extern const double ceil (double __x) ;
extern const double fabs (double __x) ;
extern const double floor (double __x) ;
extern const double fmod (double __x, double __y) ;
# 179 "./math.h"
# 20 "modf-68881.c"
double
modf( double value , double *iptr)
{
return (
( {
register const double __modf_x = (value);
register const double __modf_int =
( {
register double __result;
asm("f" "intrz" "%.x %1, %0" : "=f" (__result) :
"f" ( __modf_x ) );
__result;
} ) ;
*(double *) ( iptr) = __modf_int;
__modf_x - __modf_int;
} )
);
}
# 1 "modf.c"