nonreturning_function(extern, cl_error_floating_point_overflow, (void));
nonreturning_function(extern, cl_error_floating_point_underflow, (void));
nonreturning_function(extern, cl_error_floating_point_overflow, (void));
nonreturning_function(extern, cl_error_floating_point_underflow, (void));
// floatformatcase(value, SF_statement,FF_statement,DF_statement,LF_statement)
// LF_statement darf auf `len' zugreifen, die zu `value' korrespondierende
// Mantissenlänge (gemessen in Digits).
#define floatformatcase(value, SF_statement,FF_statement,DF_statement,LF_statement) \
// floatformatcase(value, SF_statement,FF_statement,DF_statement,LF_statement)
// LF_statement darf auf `len' zugreifen, die zu `value' korrespondierende
// Mantissenlänge (gemessen in Digits).
#define floatformatcase(value, SF_statement,FF_statement,DF_statement,LF_statement) \
- { if ((value) <= cl_float_format_sfloat) { SF_statement } \
- elif ((value) <= cl_float_format_ffloat) { FF_statement } \
- elif ((value) <= cl_float_format_dfloat) { DF_statement } \
+ { if ((value) <= float_format_sfloat) { SF_statement } \
+ elif ((value) <= float_format_ffloat) { FF_statement } \
+ elif ((value) <= float_format_dfloat) { DF_statement } \