diff options
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/embed.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index a7419ba26d..1f5b7497ce 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -85,13 +85,16 @@ my ($embed, $core, $ext, $api) = setup_embed(); } if ($flags =~ /([si])/) { - my $type = ($1 eq 's') ? "STATIC" : "PERL_STATIC_INLINE"; + my $type; + if ($never_returns) { + $type = $1 eq 's' ? "PERL_STATIC_NO_RET" : "PERL_STATIC_INLINE_NO_RET"; + } + else { + $type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE"; + } warn "$func: i and s flags are mutually exclusive" if $flags =~ /s/ && $flags =~ /i/; $retval = "$type $splint_flags$retval"; - if ($never_returns) { - $retval = "PERL_CALLCONV_NO_RET $retval"; - } $func = "S_$plain_func"; } else { |