SM0 She11

Full Path (server): /usr/lib64/perl5/bits

📄 byteswap-16.ph [E] [D]
📄 byteswap.ph [E] [D]
📄 endian.ph [E] [D]
📄 ioctl-types.ph [E] [D]
📄 ioctls.ph [E] [D]
📄 pthreadtypes.ph [E] [D]
📄 select.ph [E] [D]
📄 select2.ph [E] [D]
📄 sigaction.ph [E] [D]
📄 sigcontext.ph [E] [D]
📄 siginfo.ph [E] [D]
📄 signum.ph [E] [D]
📄 sigset.ph [E] [D]
📄 sigstack.ph [E] [D]
📄 sigthread.ph [E] [D]
📄 sockaddr.ph [E] [D]
📄 socket.ph [E] [D]
📄 socket2.ph [E] [D]
📄 socket_type.ph [E] [D]
📄 syscall.ph [E] [D]
📄 syslog-ldbl.ph [E] [D]
📄 syslog-path.ph [E] [D]
📄 syslog.ph [E] [D]
📄 time.ph [E] [D]
📄 timex.ph [E] [D]
📄 types.ph [E] [D]
📄 typesizes.ph [E] [D]
📄 uio.ph [E] [D]
📄 waitflags.ph [E] [D]
📄 waitstatus.ph [E] [D]
📄 wordsize.ph [E] [D]

Editing: select.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SELECT_H)) {
    die("Never use <bits/select.h> directly; include <sys/select.h> instead.");
}
require 'bits/wordsize.ph';
if(defined (&__GNUC__)  && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) {
    if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) {
	eval 'sub __FD_ZERO_STOS () {"stosq";}' unless defined(&__FD_ZERO_STOS);
    } else {
	eval 'sub __FD_ZERO_STOS () {"stosl";}' unless defined(&__FD_ZERO_STOS);
    }
    eval 'sub __FD_ZERO {
        my($fdsp) = @_;
	    eval q(\\"(assembly code)\\");
    }' unless defined(&__FD_ZERO);
} else {
    eval 'sub __FD_ZERO {
        my($set) = @_;
	    eval q( &do { \'unsigned int __i\';  &fd_set * &__arr = ($set);  &for ( &__i = 0;  &__i < $sizeof{ &fd_set} / $sizeof{ &__fd_mask}; ++ &__i)  &__FDS_BITS ( &__arr)[ &__i] = 0; }  &while (0));
    }' unless defined(&__FD_ZERO);
}
unless(defined(&__FD_SET)) {
    sub __FD_SET {
	my($d, $set) = @_;
	eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] |=  &__FD_MASK ($d))));
    }
}
unless(defined(&__FD_CLR)) {
    sub __FD_CLR {
	my($d, $set) = @_;
	eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &= ~ &__FD_MASK ($d))));
    }
}
unless(defined(&__FD_ISSET)) {
    sub __FD_ISSET {
	my($d, $set) = @_;
	eval q((( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &  &__FD_MASK ($d)) != 0));
    }
}
1;