Strip off FPTRARGS from the error message if a function pointer

argument is missing an intent statement.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@3472 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 1 insertions, 0 deletions

diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl
index d4f65594..97e08b4b 100644
--- a/lib/sbin/CreateFunctionBindings.pl
+++ b/lib/sbin/CreateFunctionBindings.pl
@@ -615,6 +615,7 @@ sub ParseArgument
   }
   else # (usually meaning intent is missing, so $intent holds the name and $name is empty)
   {
+    $intent =~ s/FPTRARGS//; #strip off the FPTARGS if this happens for a function pointer
     my $message = "Thorn $Thorn, Function $Function:\nEvery argument must contain an intent statement of type IN, OUT or INOUT.\n The argument \"$intent\" does not.";
     &CST_error(0,$message,'',__LINE__,__FILE__);
   }