Quick hack to shorten names of function arguments.

This allows ADM_BSSN to compile again on irix systems where the CCTK_FARGUMENTS macro couldn't be expanded anymore by the system's preprocessor.


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

1 files changed, 9 insertions, 3 deletions

diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl
index e5f46df4..218d1ec0 100644
--- a/lib/sbin/GridFuncStuff.pl
+++ b/lib/sbin/GridFuncStuff.pl
@@ -266,15 +266,21 @@ sub GetThornArguments
 
         for($dim =0; $dim < $rhinterface_db->{"\U$thorn GROUP $group DIM\E"}; $dim++)
         {
-          $type .= "${sep}cctkv$group$dim";
+# FIXME: quick hack to shorten argument names
+#          $type .= "${sep}cctkv$group$dim";
+          $type .= "${sep}X$group$dim";
           $sep = ",";
           if($block eq "PRIVATE")
           {
-            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))";
+# FIXME: quick hack to shorten argument names
+#            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))";
+            $arguments{"X$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))";
           }
           else
           {
-            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))";
+# FIXME: quick hack to shorten argument names
+#            $arguments{"cctkv$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))";
+            $arguments{"X$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))";
           }
         }
         if(defined($vararraysize) && $compactgroup == 0)