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

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_ALLOCA_H)) {
    eval 'sub _ALLOCA_H () {1;}' unless defined(&_ALLOCA_H);
    require 'features.ph';
    eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
    require 'stddef.ph';
    undef(&alloca) if defined(&alloca);
    if(defined(&__GNUC__)) {
	eval 'sub alloca {
	    my($size) = @_;
    	    eval q( &__builtin_alloca ($size));
	}' unless defined(&alloca);
    }
}
1;