diff options
| author | Kevin Atkinson <[email protected]> | 2024-07-29 21:14:28 -0400 |
|---|---|---|
| committer | Kevin Atkinson <[email protected]> | 2025-05-17 22:16:04 -0400 |
| commit | e4095439f40710e876c25e7b61b17c7c7cde978f (patch) | |
| tree | f51ec265573ec1b2064a2ab67f14ea6b7fe7ea5b | |
| parent | 4295413512cb1ceeba741876d12612e74c77f14b (diff) | |
| download | aspell-master.tar.gz | |
Closes #651.
| -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 |