$func = "S_$plain_func";
}
else {
- if($never_returns){
- $retval = "PERL_CALLCONV_NO_RET $splint_flags$retval";
- }else{
- $retval = "PERL_CALLCONV $splint_flags$retval";
- }if ($flags =~ /[bp]/) {
+ if ($never_returns) {
+ $retval = "PERL_CALLCONV_NO_RET $splint_flags$retval";
+ }
+ else {
+ $retval = "PERL_CALLCONV $splint_flags$retval";
+ }
+ if ($flags =~ /[bp]/) {
$func = "Perl_$plain_func";
- } else {
+ }
+ else {
$func = $plain_func;
}
}