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/byteswap.ph (1641B)

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

if(!defined (&_BYTESWAP_H)  && !defined (&_NETINET_IN_H)  && !defined (&_ENDIAN_H)) {
    die("Never use <bits/byteswap.h> directly; include <byteswap.h> instead.");
}
unless(defined(&_BITS_BYTESWAP_H)) {
    eval 'sub _BITS_BYTESWAP_H () {1;}' unless defined(&_BITS_BYTESWAP_H);
    require 'features.ph';
    require 'bits/types.ph';
    eval 'sub __bswap_constant_16 {
        my($x) = @_;
	    eval q((( &__uint16_t) (((($x) >> 8) & 0xff) | ((($x) & 0xff) << 8))));
    }' unless defined(&__bswap_constant_16);
# some #ifdef were dropped here -- fill in the blanks
    eval 'sub __bswap_16 {
        my($__bsx) = @_;
	    eval q({ });
    }' unless defined(&__bswap_16);
    eval 'sub __bswap_constant_32 {
        my($x) = @_;
	    eval q((((($x) & 0xff000000) >> 24) | ((($x) & 0xff0000) >> 8) | ((($x) & 0xff00) << 8) | ((($x) & 0xff) << 24)));
    }' unless defined(&__bswap_constant_32);
# some #ifdef were dropped here -- fill in the blanks
    eval 'sub __bswap_32 {
        my($__bsx) = @_;
	    eval q({ });
    }' unless defined(&__bswap_32);
    eval 'sub __bswap_constant_64 {
        my($x) = @_;
	    eval q((((($x) & 0xff00000000000000) >> 56) | ((($x) & 0xff000000000000) >> 40) | ((($x) & 0xff0000000000) >> 24) | ((($x) & 0xff00000000) >> 8) | ((($x) & 0xff000000) << 8) | ((($x) & 0xff0000) << 24) | ((($x) & 0xff00) << 40) | ((($x) & 0xff) << 56)));
    }' unless defined(&__bswap_constant_64);
# some #ifdef were dropped here -- fill in the blanks
    eval 'sub __bswap_64 {
        my($__bsx) = @_;
	    eval q({ });
    }' unless defined(&__bswap_64);
}
1;

require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(!defined (&_BYTESWAP_H) && !defined (&_NETINET_IN_H) && !defined (&_ENDIAN_H)) { die("Never use directly; include instead."); } unless(defined(&_BITS_BYTESWAP_H)) { eval 'sub _BITS_BYTESWAP_H () {1;}' unless defined(&_BITS_BYTESWAP_H); require 'features.ph'; require 'bits/types.ph'; eval 'sub __bswap_constant_16 { my($x) = @_; eval q((( &__uint16_t) (((($x) >> 8) & 0xff) | ((($x) & 0xff) << 8)))); }' unless defined(&__bswap_constant_16); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_16 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_16); eval 'sub __bswap_constant_32 { my($x) = @_; eval q((((($x) & 0xff000000) >> 24) | ((($x) & 0xff0000) >> 8) | ((($x) & 0xff00) << 8) | ((($x) & 0xff) << 24))); }' unless defined(&__bswap_constant_32); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_32 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_32); eval 'sub __bswap_constant_64 { my($x) = @_; eval q((((($x) & 0xff00000000000000) >> 56) | ((($x) & 0xff000000000000) >> 40) | ((($x) & 0xff0000000000) >> 24) | ((($x) & 0xff00000000) >> 8) | ((($x) & 0xff000000) << 8) | ((($x) & 0xff0000) << 24) | ((($x) & 0xff00) << 40) | ((($x) & 0xff) << 56))); }' unless defined(&__bswap_constant_64); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_64 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_64); } 1;