From 694c96705d5ca63998cf66bded5cd34872858678 Mon Sep 17 00:00:00 2001
From: hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Fri, 30 Apr 2004 05:11:10 +0000
Subject: 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
---
 lib/sbin/CreateFunctionBindings.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lib')

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);
-- 
cgit v1.2.3