diff options
author | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-04-30 05:11:10 +0000 |
---|---|---|
committer | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-04-30 05:11:10 +0000 |
commit | 694c96705d5ca63998cf66bded5cd34872858678 (patch) | |
tree | af8fa83c86b3c0cfd59cb3d041f2ef2df7cd3ee9 /lib | |
parent | 74751ddbe297eeeb6ddcb196f715f3e659dd1e51 (diff) |
s/...// -> s/...//g
Or, fixing function aliasing with multiple function pointer arguments.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3678 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 09f74a94..9669a11b 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -508,15 +508,18 @@ sub ParseArgumentsList my $nfptrs = 0; my $warnings = ""; my @fptrargs = (); - if ($Arguments =~ s/CCTK_FPOINTER//) + if ($Arguments =~ s/CCTK_FPOINTER//g) { - while ($Arguments =~ s/(.*?)\s*(\(.*\s.*?\))(.*)/\1FPTRARGS\3/) + &debug_print("$Thorn:$Function:$Arguments\n"); + while ($Arguments =~ s/(.*?)\s*(\(.*?\))(.*)/\1FPTRARGS\3/) { + &debug_print("$Thorn:$Function:$Arguments\n"); my $tempargs = $2; $tempargs =~ s/\((.*)\)/\1/; push(@fptrargs,$tempargs); $nfptrs++; # QUERY: This is set but never used. } + &debug_print("$Thorn:$Function:$Arguments\n"); } my @DummyList = split(',',$Arguments); @@ -529,6 +532,7 @@ sub ParseArgumentsList foreach $DummyArg (@DummyList) { + &debug_print("$Thorn:$Function:$DummyArg\n"); if ($DummyArg =~ /\S/) # ignore empty argument list { my $Arg = &ParseArgument($DummyArg, $Thorn, $Function); |