FM / bits

/usr/lib/x86_64-linux-gnu/perl/5.34.0/bits/

/usr/lib/x86_64-linux-gnu/perl/5.34.0/bits

Name	Size	Mode	Actions
linux/	-	0755	rm
types/	-	0755	rm
atomic_wide_counter.ph	207	0644	edit dl rm
byteswap.ph	1641	0644	edit dl rm
confname.ph	25034	0644	edit dl rm
endian.ph	1036	0644	edit dl rm
endianness.ph	385	0644	edit dl rm
environments.ph	2096	0644	edit dl rm
floatn-common.ph	11991	0644	edit dl rm
floatn.ph	2763	0644	edit dl rm
getopt_core.ph	168	0644	edit dl rm
getopt_posix.ph	582	0644	edit dl rm
ioctl-types.ph	1764	0644	edit dl rm
ioctls.ph	3827	0644	edit dl rm
long-double.ph	169	0644	edit dl rm
posix_opt.ph	5471	0644	edit dl rm
pthreadtypes-arch.ph	2269	0644	edit dl rm
pthreadtypes.ph	492	0644	edit dl rm
select.ph	889	0644	edit dl rm
select2.ph	490	0644	edit dl rm
sigaction.ph	1720	0644	edit dl rm
sigcontext.ph	889	0644	edit dl rm
sigevent-consts.ph	620	0644	edit dl rm
siginfo-arch.ph	465	0644	edit dl rm
siginfo-consts-arch.ph	207	0644	edit dl rm
siginfo-consts.ph	4405	0644	edit dl rm
signal_ext.ph	200	0644	edit dl rm
signum-arch.ph	1719	0644	edit dl rm
signum-generic.ph	1635	0644	edit dl rm
sigstack.ph	441	0644	edit dl rm
sigstksz.ph	568	0644	edit dl rm
sigthread.ph	385	0644	edit dl rm
sockaddr.ph	507	0644	edit dl rm
socket-constants.ph	3704	0644	edit dl rm
socket.ph	11983	0644	edit dl rm
socket2.ph	177	0644	edit dl rm
socket_type.ph	766	0644	edit dl rm
ss_flags.ph	443	0644	edit dl rm
stdint-intn.ph	212	0644	edit dl rm
struct_mutex.ph	1019	0644	edit dl rm
struct_rwlock.ph	943	0644	edit dl rm
syscall.ph	77407	0644	edit dl rm
syslog-ldbl.ph	355	0644	edit dl rm
syslog-path.ph	363	0644	edit dl rm
syslog.ph	404	0644	edit dl rm
thread-shared-types.ph	427	0644	edit dl rm
time64.ph	530	0644	edit dl rm
timesize.ph	290	0644	edit dl rm
types.ph	2849	0644	edit dl rm
typesizes.ph	4723	0644	edit dl rm
uintn-identity.ph	631	0644	edit dl rm
unistd.ph	680	0644	edit dl rm
unistd_ext.ph	597	0644	edit dl rm
waitflags.ph	816	0644	edit dl rm
waitstatus.ph	1573	0644	edit dl rm
wordsize.ph	743	0644	edit dl rm

Edit: /usr/lib/x86_64-linux-gnu/perl/5.34.0/bits/floatn-common.ph (11991B)

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_BITS_FLOATN_COMMON_H)) {
    eval 'sub _BITS_FLOATN_COMMON_H () {1;}' unless defined(&_BITS_FLOATN_COMMON_H);
    require 'features.ph';
    require 'bits/long-double.ph';
    eval 'sub __HAVE_FLOAT16 () {0;}' unless defined(&__HAVE_FLOAT16);
    eval 'sub __HAVE_FLOAT32 () {1;}' unless defined(&__HAVE_FLOAT32);
    eval 'sub __HAVE_FLOAT64 () {1;}' unless defined(&__HAVE_FLOAT64);
    eval 'sub __HAVE_FLOAT32X () {1;}' unless defined(&__HAVE_FLOAT32X);
    eval 'sub __HAVE_FLOAT128X () {0;}' unless defined(&__HAVE_FLOAT128X);
    eval 'sub __HAVE_DISTINCT_FLOAT16 () { &__HAVE_FLOAT16;}' unless defined(&__HAVE_DISTINCT_FLOAT16);
    eval 'sub __HAVE_DISTINCT_FLOAT32 () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT32);
    eval 'sub __HAVE_DISTINCT_FLOAT64 () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT64);
    eval 'sub __HAVE_DISTINCT_FLOAT32X () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT32X);
    eval 'sub __HAVE_DISTINCT_FLOAT64X () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT64X);
    eval 'sub __HAVE_DISTINCT_FLOAT128X () { &__HAVE_FLOAT128X;}' unless defined(&__HAVE_DISTINCT_FLOAT128X);
    eval 'sub __HAVE_FLOAT128_UNLIKE_LDBL () {( &__HAVE_DISTINCT_FLOAT128  &&  &__LDBL_MANT_DIG__ != 113);}' unless defined(&__HAVE_FLOAT128_UNLIKE_LDBL);
    if( &__GNUC_PREREQ (7, 0)  && !defined (&__cplusplus)) {
	eval 'sub __HAVE_FLOATN_NOT_TYPEDEF () {1;}' unless defined(&__HAVE_FLOATN_NOT_TYPEDEF);
    } else {
	eval 'sub __HAVE_FLOATN_NOT_TYPEDEF () {0;}' unless defined(&__HAVE_FLOATN_NOT_TYPEDEF);
    }
    unless(defined(&__ASSEMBLER__)) {
	if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __f16 {
		    my($x) = @_;
    		    eval q((( &_Float16) $x &f));
		}' unless defined(&__f16);
	    } else {
		eval 'sub __f16 {
		    my($x) = @_;
    		    eval q($x &f16);
		}' unless defined(&__f16);
	    }
	}
	if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __f32 {
		    my($x) = @_;
    		    eval q($x &f);
		}' unless defined(&__f32);
	    } else {
		eval 'sub __f32 {
		    my($x) = @_;
    		    eval q($x &f32);
		}' unless defined(&__f32);
	    }
	}
	if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		if(defined(&__NO_LONG_DOUBLE_MATH)) {
		    eval 'sub __f64 {
		        my($x) = @_;
    			eval q($x &l);
		    }' unless defined(&__f64);
		} else {
		    eval 'sub __f64 {
		        my($x) = @_;
    			eval q($x);
		    }' unless defined(&__f64);
		}
	    } else {
		eval 'sub __f64 {
		    my($x) = @_;
    		    eval q($x &f64);
		}' unless defined(&__f64);
	    }
	}
	if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __f32x {
		    my($x) = @_;
    		    eval q($x);
		}' unless defined(&__f32x);
	    } else {
		eval 'sub __f32x {
		    my($x) = @_;
    		    eval q($x &f32x);
		}' unless defined(&__f32x);
	    }
	}
	if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) {
		    eval 'sub __f64x {
		        my($x) = @_;
    			eval q($x &l);
		    }' unless defined(&__f64x);
		} else {
		    eval 'sub __f64x {
		        my($x) = @_;
    			eval q( &__f128 ($x));
		    }' unless defined(&__f64x);
		}
	    } else {
		eval 'sub __f64x {
		    my($x) = @_;
    		    eval q($x &f64x);
		}' unless defined(&__f64x);
	    }
	}
	if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		die("_Float128X supported but no constant suffix");
	    } else {
		eval 'sub __f128x {
		    my($x) = @_;
    		    eval q($x &f128x);
		}' unless defined(&__f128x);
	    }
	}
	if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __CFLOAT16 () { &__cfloat16;}' unless defined(&__CFLOAT16);
	    } else {
		eval 'sub __CFLOAT16 () { &_Complex  &_Float16;}' unless defined(&__CFLOAT16);
	    }
	}
	if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __CFLOAT32 () { &_Complex \'float\';}' unless defined(&__CFLOAT32);
	    } else {
		eval 'sub __CFLOAT32 () { &_Complex  &_Float32;}' unless defined(&__CFLOAT32);
	    }
	}
	if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		if(defined(&__NO_LONG_DOUBLE_MATH)) {
		    eval 'sub __CFLOAT64 () { &_Complex \'long double\';}' unless defined(&__CFLOAT64);
		} else {
		    eval 'sub __CFLOAT64 () { &_Complex \'double\';}' unless defined(&__CFLOAT64);
		}
	    } else {
		eval 'sub __CFLOAT64 () { &_Complex  &_Float64;}' unless defined(&__CFLOAT64);
	    }
	}
	if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		eval 'sub __CFLOAT32X () { &_Complex \'double\';}' unless defined(&__CFLOAT32X);
	    } else {
		eval 'sub __CFLOAT32X () { &_Complex  &_Float32x;}' unless defined(&__CFLOAT32X);
	    }
	}
	if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) {
		    eval 'sub __CFLOAT64X () { &_Complex \'long double\';}' unless defined(&__CFLOAT64X);
		} else {
		    eval 'sub __CFLOAT64X () { &__CFLOAT128;}' unless defined(&__CFLOAT64X);
		}
	    } else {
		eval 'sub __CFLOAT64X () { &_Complex  &_Float64x;}' unless defined(&__CFLOAT64X);
	    }
	}
	if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		die("_Float128X supported but no complex type");
	    } else {
		eval 'sub __CFLOAT128X () { &_Complex  &_Float128x;}' unless defined(&__CFLOAT128X);
	    }
	}
	if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
	    }
	    if(! &__GNUC_PREREQ (7, 0)) {
		eval 'sub __builtin_huge_valf16 () {
		    eval q((( &_Float16)  &__builtin_huge_val ()));
		}' unless defined(&__builtin_huge_valf16);
		eval 'sub __builtin_inff16 () {
		    eval q((( &_Float16)  &__builtin_inf ()));
		}' unless defined(&__builtin_inff16);
		eval 'sub __builtin_nanf16 {
		    my($x) = @_;
    		    eval q((( &_Float16)  &__builtin_nan ($x)));
		}' unless defined(&__builtin_nanf16);
		eval 'sub __builtin_nansf16 {
		    my($x) = @_;
    		    eval q((( &_Float16)  &__builtin_nans ($x)));
		}' unless defined(&__builtin_nansf16);
	    }
	}
	if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
	    }
	    if(! &__GNUC_PREREQ (7, 0)) {
		eval 'sub __builtin_huge_valf32 () {
		    eval q(( &__builtin_huge_valf ()));
		}' unless defined(&__builtin_huge_valf32);
		eval 'sub __builtin_inff32 () {
		    eval q(( &__builtin_inff ()));
		}' unless defined(&__builtin_inff32);
		eval 'sub __builtin_nanf32 {
		    my($x) = @_;
    		    eval q(( &__builtin_nanf ($x)));
		}' unless defined(&__builtin_nanf32);
		eval 'sub __builtin_nansf32 {
		    my($x) = @_;
    		    eval q(( &__builtin_nansf ($x)));
		}' unless defined(&__builtin_nansf32);
	    }
	}
	if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) {
	    if(defined(&__NO_LONG_DOUBLE_MATH)) {
		if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		}
		if(! &__GNUC_PREREQ (7, 0)) {
		    eval 'sub __builtin_huge_valf64 () {
		        eval q(( &__builtin_huge_vall ()));
		    }' unless defined(&__builtin_huge_valf64);
		    eval 'sub __builtin_inff64 () {
		        eval q(( &__builtin_infl ()));
		    }' unless defined(&__builtin_inff64);
		    eval 'sub __builtin_nanf64 {
		        my($x) = @_;
    			eval q(( &__builtin_nanl ($x)));
		    }' unless defined(&__builtin_nanf64);
		    eval 'sub __builtin_nansf64 {
		        my($x) = @_;
    			eval q(( &__builtin_nansl ($x)));
		    }' unless defined(&__builtin_nansf64);
		}
	    } else {
		if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		}
		if(! &__GNUC_PREREQ (7, 0)) {
		    eval 'sub __builtin_huge_valf64 () {
		        eval q(( &__builtin_huge_val ()));
		    }' unless defined(&__builtin_huge_valf64);
		    eval 'sub __builtin_inff64 () {
		        eval q(( &__builtin_inf ()));
		    }' unless defined(&__builtin_inff64);
		    eval 'sub __builtin_nanf64 {
		        my($x) = @_;
    			eval q(( &__builtin_nan ($x)));
		    }' unless defined(&__builtin_nanf64);
		    eval 'sub __builtin_nansf64 {
		        my($x) = @_;
    			eval q(( &__builtin_nans ($x)));
		    }' unless defined(&__builtin_nansf64);
		}
	    }
	}
	if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
	    }
	    if(! &__GNUC_PREREQ (7, 0)) {
		eval 'sub __builtin_huge_valf32x () {
		    eval q(( &__builtin_huge_val ()));
		}' unless defined(&__builtin_huge_valf32x);
		eval 'sub __builtin_inff32x () {
		    eval q(( &__builtin_inf ()));
		}' unless defined(&__builtin_inff32x);
		eval 'sub __builtin_nanf32x {
		    my($x) = @_;
    		    eval q(( &__builtin_nan ($x)));
		}' unless defined(&__builtin_nanf32x);
		eval 'sub __builtin_nansf32x {
		    my($x) = @_;
    		    eval q(( &__builtin_nans ($x)));
		}' unless defined(&__builtin_nansf32x);
	    }
	}
	if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) {
	    if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) {
		if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		}
		if(! &__GNUC_PREREQ (7, 0)) {
		    eval 'sub __builtin_huge_valf64x () {
		        eval q(( &__builtin_huge_vall ()));
		    }' unless defined(&__builtin_huge_valf64x);
		    eval 'sub __builtin_inff64x () {
		        eval q(( &__builtin_infl ()));
		    }' unless defined(&__builtin_inff64x);
		    eval 'sub __builtin_nanf64x {
		        my($x) = @_;
    			eval q(( &__builtin_nanl ($x)));
		    }' unless defined(&__builtin_nanf64x);
		    eval 'sub __builtin_nansf64x {
		        my($x) = @_;
    			eval q(( &__builtin_nansl ($x)));
		    }' unless defined(&__builtin_nansf64x);
		}
	    } else {
		if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		}
		if(! &__GNUC_PREREQ (7, 0)) {
		    eval 'sub __builtin_huge_valf64x () {
		        eval q(( &__builtin_huge_valf128 ()));
		    }' unless defined(&__builtin_huge_valf64x);
		    eval 'sub __builtin_inff64x () {
		        eval q(( &__builtin_inff128 ()));
		    }' unless defined(&__builtin_inff64x);
		    eval 'sub __builtin_nanf64x {
		        my($x) = @_;
    			eval q(( &__builtin_nanf128 ($x)));
		    }' unless defined(&__builtin_nanf64x);
		    eval 'sub __builtin_nansf64x {
		        my($x) = @_;
    			eval q(( &__builtin_nansf128 ($x)));
		    }' unless defined(&__builtin_nansf64x);
		}
	    }
	}
	if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) {
	    if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) {
		die("_Float128x supported but no type");
	    }
	    if(! &__GNUC_PREREQ (7, 0)) {
		eval 'sub __builtin_huge_valf128x () {
		    eval q((( &_Float128x)  &__builtin_huge_val ()));
		}' unless defined(&__builtin_huge_valf128x);
		eval 'sub __builtin_inff128x () {
		    eval q((( &_Float128x)  &__builtin_inf ()));
		}' unless defined(&__builtin_inff128x);
		eval 'sub __builtin_nanf128x {
		    my($x) = @_;
    		    eval q((( &_Float128x)  &__builtin_nan ($x)));
		}' unless defined(&__builtin_nanf128x);
		eval 'sub __builtin_nansf128x {
		    my($x) = @_;
    		    eval q((( &_Float128x)  &__builtin_nans ($x)));
		}' unless defined(&__builtin_nansf128x);
	    }
	}
    }
}
1;

require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_FLOATN_COMMON_H)) { eval 'sub _BITS_FLOATN_COMMON_H () {1;}' unless defined(&_BITS_FLOATN_COMMON_H); require 'features.ph'; require 'bits/long-double.ph'; eval 'sub __HAVE_FLOAT16 () {0;}' unless defined(&__HAVE_FLOAT16); eval 'sub __HAVE_FLOAT32 () {1;}' unless defined(&__HAVE_FLOAT32); eval 'sub __HAVE_FLOAT64 () {1;}' unless defined(&__HAVE_FLOAT64); eval 'sub __HAVE_FLOAT32X () {1;}' unless defined(&__HAVE_FLOAT32X); eval 'sub __HAVE_FLOAT128X () {0;}' unless defined(&__HAVE_FLOAT128X); eval 'sub __HAVE_DISTINCT_FLOAT16 () { &__HAVE_FLOAT16;}' unless defined(&__HAVE_DISTINCT_FLOAT16); eval 'sub __HAVE_DISTINCT_FLOAT32 () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT32); eval 'sub __HAVE_DISTINCT_FLOAT64 () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT64); eval 'sub __HAVE_DISTINCT_FLOAT32X () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT32X); eval 'sub __HAVE_DISTINCT_FLOAT64X () {0;}' unless defined(&__HAVE_DISTINCT_FLOAT64X); eval 'sub __HAVE_DISTINCT_FLOAT128X () { &__HAVE_FLOAT128X;}' unless defined(&__HAVE_DISTINCT_FLOAT128X); eval 'sub __HAVE_FLOAT128_UNLIKE_LDBL () {( &__HAVE_DISTINCT_FLOAT128 && &__LDBL_MANT_DIG__ != 113);}' unless defined(&__HAVE_FLOAT128_UNLIKE_LDBL); if( &__GNUC_PREREQ (7, 0) && !defined (&__cplusplus)) { eval 'sub __HAVE_FLOATN_NOT_TYPEDEF () {1;}' unless defined(&__HAVE_FLOATN_NOT_TYPEDEF); } else { eval 'sub __HAVE_FLOATN_NOT_TYPEDEF () {0;}' unless defined(&__HAVE_FLOATN_NOT_TYPEDEF); } unless(defined(&__ASSEMBLER__)) { if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __f16 { my($x) = @_; eval q((( &_Float16) $x &f)); }' unless defined(&__f16); } else { eval 'sub __f16 { my($x) = @_; eval q($x &f16); }' unless defined(&__f16); } } if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __f32 { my($x) = @_; eval q($x &f); }' unless defined(&__f32); } else { eval 'sub __f32 { my($x) = @_; eval q($x &f32); }' unless defined(&__f32); } } if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { if(defined(&__NO_LONG_DOUBLE_MATH)) { eval 'sub __f64 { my($x) = @_; eval q($x &l); }' unless defined(&__f64); } else { eval 'sub __f64 { my($x) = @_; eval q($x); }' unless defined(&__f64); } } else { eval 'sub __f64 { my($x) = @_; eval q($x &f64); }' unless defined(&__f64); } } if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __f32x { my($x) = @_; eval q($x); }' unless defined(&__f32x); } else { eval 'sub __f32x { my($x) = @_; eval q($x &f32x); }' unless defined(&__f32x); } } if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) { eval 'sub __f64x { my($x) = @_; eval q($x &l); }' unless defined(&__f64x); } else { eval 'sub __f64x { my($x) = @_; eval q( &__f128 ($x)); }' unless defined(&__f64x); } } else { eval 'sub __f64x { my($x) = @_; eval q($x &f64x); }' unless defined(&__f64x); } } if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { die("_Float128X supported but no constant suffix"); } else { eval 'sub __f128x { my($x) = @_; eval q($x &f128x); }' unless defined(&__f128x); } } if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __CFLOAT16 () { &__cfloat16;}' unless defined(&__CFLOAT16); } else { eval 'sub __CFLOAT16 () { &_Complex &_Float16;}' unless defined(&__CFLOAT16); } } if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __CFLOAT32 () { &_Complex \'float\';}' unless defined(&__CFLOAT32); } else { eval 'sub __CFLOAT32 () { &_Complex &_Float32;}' unless defined(&__CFLOAT32); } } if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { if(defined(&__NO_LONG_DOUBLE_MATH)) { eval 'sub __CFLOAT64 () { &_Complex \'long double\';}' unless defined(&__CFLOAT64); } else { eval 'sub __CFLOAT64 () { &_Complex \'double\';}' unless defined(&__CFLOAT64); } } else { eval 'sub __CFLOAT64 () { &_Complex &_Float64;}' unless defined(&__CFLOAT64); } } if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { eval 'sub __CFLOAT32X () { &_Complex \'double\';}' unless defined(&__CFLOAT32X); } else { eval 'sub __CFLOAT32X () { &_Complex &_Float32x;}' unless defined(&__CFLOAT32X); } } if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) { eval 'sub __CFLOAT64X () { &_Complex \'long double\';}' unless defined(&__CFLOAT64X); } else { eval 'sub __CFLOAT64X () { &__CFLOAT128;}' unless defined(&__CFLOAT64X); } } else { eval 'sub __CFLOAT64X () { &_Complex &_Float64x;}' unless defined(&__CFLOAT64X); } } if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { die("_Float128X supported but no complex type"); } else { eval 'sub __CFLOAT128X () { &_Complex &_Float128x;}' unless defined(&__CFLOAT128X); } } if((defined(&__HAVE_FLOAT16) ? &__HAVE_FLOAT16 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf16 () { eval q((( &_Float16) &__builtin_huge_val ())); }' unless defined(&__builtin_huge_valf16); eval 'sub __builtin_inff16 () { eval q((( &_Float16) &__builtin_inf ())); }' unless defined(&__builtin_inff16); eval 'sub __builtin_nanf16 { my($x) = @_; eval q((( &_Float16) &__builtin_nan ($x))); }' unless defined(&__builtin_nanf16); eval 'sub __builtin_nansf16 { my($x) = @_; eval q((( &_Float16) &__builtin_nans ($x))); }' unless defined(&__builtin_nansf16); } } if((defined(&__HAVE_FLOAT32) ? &__HAVE_FLOAT32 : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf32 () { eval q(( &__builtin_huge_valf ())); }' unless defined(&__builtin_huge_valf32); eval 'sub __builtin_inff32 () { eval q(( &__builtin_inff ())); }' unless defined(&__builtin_inff32); eval 'sub __builtin_nanf32 { my($x) = @_; eval q(( &__builtin_nanf ($x))); }' unless defined(&__builtin_nanf32); eval 'sub __builtin_nansf32 { my($x) = @_; eval q(( &__builtin_nansf ($x))); }' unless defined(&__builtin_nansf32); } } if((defined(&__HAVE_FLOAT64) ? &__HAVE_FLOAT64 : undef)) { if(defined(&__NO_LONG_DOUBLE_MATH)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf64 () { eval q(( &__builtin_huge_vall ())); }' unless defined(&__builtin_huge_valf64); eval 'sub __builtin_inff64 () { eval q(( &__builtin_infl ())); }' unless defined(&__builtin_inff64); eval 'sub __builtin_nanf64 { my($x) = @_; eval q(( &__builtin_nanl ($x))); }' unless defined(&__builtin_nanf64); eval 'sub __builtin_nansf64 { my($x) = @_; eval q(( &__builtin_nansl ($x))); }' unless defined(&__builtin_nansf64); } } else { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf64 () { eval q(( &__builtin_huge_val ())); }' unless defined(&__builtin_huge_valf64); eval 'sub __builtin_inff64 () { eval q(( &__builtin_inf ())); }' unless defined(&__builtin_inff64); eval 'sub __builtin_nanf64 { my($x) = @_; eval q(( &__builtin_nan ($x))); }' unless defined(&__builtin_nanf64); eval 'sub __builtin_nansf64 { my($x) = @_; eval q(( &__builtin_nans ($x))); }' unless defined(&__builtin_nansf64); } } } if((defined(&__HAVE_FLOAT32X) ? &__HAVE_FLOAT32X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf32x () { eval q(( &__builtin_huge_val ())); }' unless defined(&__builtin_huge_valf32x); eval 'sub __builtin_inff32x () { eval q(( &__builtin_inf ())); }' unless defined(&__builtin_inff32x); eval 'sub __builtin_nanf32x { my($x) = @_; eval q(( &__builtin_nan ($x))); }' unless defined(&__builtin_nanf32x); eval 'sub __builtin_nansf32x { my($x) = @_; eval q(( &__builtin_nans ($x))); }' unless defined(&__builtin_nansf32x); } } if((defined(&__HAVE_FLOAT64X) ? &__HAVE_FLOAT64X : undef)) { if((defined(&__HAVE_FLOAT64X_LONG_DOUBLE) ? &__HAVE_FLOAT64X_LONG_DOUBLE : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf64x () { eval q(( &__builtin_huge_vall ())); }' unless defined(&__builtin_huge_valf64x); eval 'sub __builtin_inff64x () { eval q(( &__builtin_infl ())); }' unless defined(&__builtin_inff64x); eval 'sub __builtin_nanf64x { my($x) = @_; eval q(( &__builtin_nanl ($x))); }' unless defined(&__builtin_nanf64x); eval 'sub __builtin_nansf64x { my($x) = @_; eval q(( &__builtin_nansl ($x))); }' unless defined(&__builtin_nansf64x); } } else { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf64x () { eval q(( &__builtin_huge_valf128 ())); }' unless defined(&__builtin_huge_valf64x); eval 'sub __builtin_inff64x () { eval q(( &__builtin_inff128 ())); }' unless defined(&__builtin_inff64x); eval 'sub __builtin_nanf64x { my($x) = @_; eval q(( &__builtin_nanf128 ($x))); }' unless defined(&__builtin_nanf64x); eval 'sub __builtin_nansf64x { my($x) = @_; eval q(( &__builtin_nansf128 ($x))); }' unless defined(&__builtin_nansf64x); } } } if((defined(&__HAVE_FLOAT128X) ? &__HAVE_FLOAT128X : undef)) { if(! &__GNUC_PREREQ (7, 0) || defined (&__cplusplus)) { die("_Float128x supported but no type"); } if(! &__GNUC_PREREQ (7, 0)) { eval 'sub __builtin_huge_valf128x () { eval q((( &_Float128x) &__builtin_huge_val ())); }' unless defined(&__builtin_huge_valf128x); eval 'sub __builtin_inff128x () { eval q((( &_Float128x) &__builtin_inf ())); }' unless defined(&__builtin_inff128x); eval 'sub __builtin_nanf128x { my($x) = @_; eval q((( &_Float128x) &__builtin_nan ($x))); }' unless defined(&__builtin_nanf128x); eval 'sub __builtin_nansf128x { my($x) = @_; eval q((( &_Float128x) &__builtin_nans ($x))); }' unless defined(&__builtin_nansf128x); } } } } 1;