diff options
Diffstat (limited to 'auto/MkSrc/CcHelper.pm')
| -rw-r--r-- | auto/MkSrc/CcHelper.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/auto/MkSrc/CcHelper.pm b/auto/MkSrc/CcHelper.pm index 0044335..cf669b8 100644 --- a/auto/MkSrc/CcHelper.pm +++ b/auto/MkSrc/CcHelper.pm @@ -81,13 +81,16 @@ sub make_func ( $ \@ $ ; \% ) { my ($name, $d, $p, $accum) = @_; $accum = {} unless defined $accum; my @d = @$d; + my $ret = to_type_name(shift @d, {%$p,pos=>'return'}, %$accum); + my $parms = join ', ', map {to_type_name $_, {%$p,pos=>'parm'}, %$accum} @d; + $parms = 'void' if $p->{mode} eq 'cc' and $parms eq ''; return (join '', - (to_type_name(shift @d, {%$p,pos=>'return'}, %$accum), + $ret, ' ', to_lower $name, '(', - (join ', ', map {to_type_name $_, {%$p,pos=>'parm'}, %$accum} @d), - ')')); + $parms, + ')'); } =item make_wide_version NAME @TYPES PARMS ; %ACCUM |