if (! $can_ignore && $retval eq 'void') {
warn "It is nonsensical to require the return value of a void function ($plain_func) to be checked";
}
+
+ my $scope_type_flag_count = 0;
+ $scope_type_flag_count++ if $flags =~ /s/;
+ $scope_type_flag_count++ if $flags =~ /i/;
+ $scope_type_flag_count++ if $flags =~ /p/;
+ warn "$plain_func: i, p, and s flags are all mutually exclusive"
+ if $scope_type_flag_count > 1;
my $splint_flags = "";
if ( $SPLINT && !$commented_out ) {
$splint_flags .= '/*@noreturn@*/ ' if $never_returns;
else {
$type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE";
}
- warn "$plain_func: i and s flags are mutually exclusive"
- if $flags =~ /s/ && $flags =~ /i/;
$retval = "$type $splint_flags$retval";
$func = "S_$plain_func";
}