Adding thorn name to 'parse aliased function argument' error message.

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

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl
index 740ca21e..42b53c9a 100644
--- a/lib/sbin/CreateFunctionBindings.pl
+++ b/lib/sbin/CreateFunctionBindings.pl
@@ -800,7 +800,7 @@ sub FunctionDatabase
       $inargs = $rhinterface_db->{"\U$thorn FUNCTION\E $function ARGS"};
       $inret  = $rhinterface_db->{"\U$thorn FUNCTION\E $function RET"};
 
-      ($nstrings,$types,$c,$fortran,$wrappercall,$wrapperargs,$cargs) = &ParseArguments($inret,$inargs);
+      ($nstrings,$types,$c,$fortran,$wrappercall,$wrapperargs,$cargs) = &ParseArguments($inret,$inargs,$thorn);
 
       if ($function_db->{'FUNCTIONS'} =~ / $function / && $function !~ /^\s*$/)
       {
@@ -918,7 +918,7 @@ sub FunctionDatabase
 
 sub ParseArguments
 {
-  my($ret,$args) = @_;
+  my($ret,$args,$thorn) = @_;
   my($number_args);
 
 #  print "\nParsing Arguments\n";
@@ -995,7 +995,7 @@ sub ParseArguments
     {
       $fortran = 0;
       $c = 0;
-      $message = "Error parsing aliased function argument $arg";
+      $message = "Error parsing aliased function argument $arg in thorn $thorn.";
       &CST_error(1,$message,'',__LINE__,__FILE__);
     }
   }