die_at_end "$plain_func: s flag is mutually exclusive from the i and p plags"
if $flags =~ /s/ && $flags =~ /[ip]/;
die_at_end "$plain_func: s flag is mutually exclusive from the i and p plags"
if $flags =~ /s/ && $flags =~ /[ip]/;
}
$retval = "$type $retval";
die_at_end "Don't declare static function '$plain_func' pure" if $flags =~ /P/;
}
$retval = "$type $retval";
die_at_end "Don't declare static function '$plain_func' pure" if $flags =~ /P/;
$func = full_name($plain_func, $flags);
$ret = "";
$ret .= "#ifndef NO_MATHOMS\n" if $binarycompat;
$func = full_name($plain_func, $flags);
$ret = "";
$ret .= "#ifndef NO_MATHOMS\n" if $binarycompat;
$ret .= "\n#define PERL_ARGS_ASSERT_\U$plain_func\E\t\\\n\t"
. join '; ', map "assert($_)", @names_of_nn;
}
$ret .= "\n#define PERL_ARGS_ASSERT_\U$plain_func\E\t\\\n\t"
. join '; ', map "assert($_)", @names_of_nn;
}