diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-28 13:34:47 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-28 13:34:47 +0000 |
commit | 61c4bd4485d5bd2de3718f3eb78a90d4b95ac1dc (patch) | |
tree | 5c5ecdf289e24e12033d96706ecebea854cdcf5d /lib/sbin/CreateFunctionBindings.pl | |
parent | d27cb3b6fe35b2f202d034575b9ca6a17f50b9bb (diff) |
Patch from Ian Hawke for Function Aliasing
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2766 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateFunctionBindings.pl')
-rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 53923c43..49db10f1 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -535,7 +535,7 @@ sub DummyThornFunctions foreach $arg (split(',',$function_db->{"$function CARGS"})) { $arg =~ m:.*\s+\**([^\s*\*]+)\s*:; - push(@data, " (void) ($1 + 0)"); + push(@data, " (void) ($1 + 0);"); } push(@data, ' CCTK_Warn(1, __LINE__, __FILE__, "Bindings",'); push(@data, " \"CCTKBindings_Dummy$function: Calling thorn function $function which has not been overloaded\");"); @@ -689,7 +689,10 @@ sub FortranThornFunctions # prototype push(@data, "$line;"); + # call + push(@data, "$function_db->{\"$function RET\"} CCTK_FCALL +CCTK_FNAME($function)"); push(@data, $line); push(@data, '{'); |