Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/byteswap.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_BYTESWAP_H)) {
    eval 'sub _BYTESWAP_H () {1;}' unless defined(&_BYTESWAP_H);
    require 'bits/byteswap.ph';
    eval 'sub bswap_16 {
        my($x) = @_;
	    eval q( &__bswap_16 ($x));
    }' unless defined(&bswap_16);
    eval 'sub bswap_32 {
        my($x) = @_;
	    eval q( &__bswap_32 ($x));
    }' unless defined(&bswap_32);
    if(defined (&__GNUC__)  && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) {
	eval 'sub bswap_64 {
	    my($x) = @_;
    	    eval q( &__bswap_64 ($x));
	}' unless defined(&bswap_64);
    }
}
1;