diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-09-26 00:23:59 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-09-26 00:23:59 +0000 |
| commit | 951bfd4f4be1618449139ab25324698bfbcdb5c3 (patch) | |
| tree | 08fda0f969eba095238721d10cfb973df1311bc6 | |
| parent | a1492b067055e73d5b61dfe45c3cd4200bee64a2 (diff) | |
Change the names of the internal routine arguments that contain the
array shapes. They used to have a digit appended to an existing group
name, which can clash with another existing group name. The new name
has the digit in front, which cannot be a legal group name.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4147 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/make/force-rebuild | 3 | ||||
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 12 |
2 files changed, 8 insertions, 7 deletions
diff --git a/lib/make/force-rebuild b/lib/make/force-rebuild index dd0d3751..128491e1 100644 --- a/lib/make/force-rebuild +++ b/lib/make/force-rebuild @@ -5,7 +5,7 @@ # @desc # Timestamp file for forcing rebuilds of configurations # @enddesc -# @version $Id: force-rebuild,v 1.16 2005-01-22 20:17:49 schnetter Exp $ +# @version $Id: force-rebuild,v 1.17 2005-09-26 00:23:59 schnetter Exp $ # @@*/ 06 Mar 2003: minor changes to CreateFunctionBindings.pl @@ -30,3 +30,4 @@ 30 Nov 2004: Change name of thorn libraries. (Rebuild because of Fortran deps from CST.) 22 Jan 2005: Add missing #include <stddef.h> to autogenerated file +21 Sep 2005: Change argument names that describe array shapes diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 177080f1..13e68108 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -390,20 +390,20 @@ sub GetThornArguments for($dim =0; $dim < $rhinterface_db->{"\U$thorn GROUP $group DIM\E"}; $dim++) { # FIXME: quick hack to shorten argument names -# $type .= "${sep}cctkv$group$dim"; - $type .= "${sep}X$group$dim"; +# $type .= "${sep}cctkv$dim$group"; + $type .= "${sep}X$dim$group"; $sep = ','; if($block eq 'PRIVATE') { # FIXME: quick hack to shorten argument names -# $arguments{"cctkv$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))"; - $arguments{"X$group$dim"} = "(STORAGESIZE($thorn\::$group, $dim))"; +# $arguments{"cctkv$dim$group"} = "(STORAGESIZE($thorn\::$group, $dim))"; + $arguments{"X$dim$group"} = "(STORAGESIZE($thorn\::$group, $dim))"; } else { # FIXME: quick hack to shorten argument names -# $arguments{"cctkv$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))"; - $arguments{"X$group$dim"} = "(STORAGESIZE($imp\::$group, $dim))"; +# $arguments{"cctkv$dim$group"} = "(STORAGESIZE($imp\::$group, $dim))"; + $arguments{"X$dim$group"} = "(STORAGESIZE($imp\::$group, $dim))"; } } if(defined($vararraysize) && $compactgroup == 0) |