diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-13 18:17:19 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-13 18:17:19 +0000 |
commit | 95e178f493820d294ca7975cee3ef13e4b81e510 (patch) | |
tree | ef223555b454f20dd7569321494656791ade971e | |
parent | 8e15ad492d0a5c946f9ff4d7ba5fcba1010b8c34 (diff) |
Fix for parsing alias function declarations with return type 'void'.
This closes PR Cactus/1628.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3588 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 6325a4f2..084d72ff 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -350,8 +350,10 @@ sub FunctionDatabase $Function->{"Strings"} = $nstrings; $Function->{"String pointers"} = $nstringptrs; - # turn all return types except 'void' into upper-case as defined by CCTK $ReturnType = $interface_db->{"\U${thorn} FUNCTION\E $FunctionName RET"}; + # turn 'VOID' into lower-case + $ReturnType = lc $ReturnType; + # turn all return types except 'void' into upper-case CCTK types $ReturnType = uc $ReturnType if ($ReturnType ne 'void '); $FunctionName =~ /([a-zA-Z][a-zA-Z0-9_]*)/; |