Fix for when extending a parameter shared AS.

Tom


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

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl
index dc9049be..b3247ce3 100644
--- a/lib/sbin/CreateParameterBindings.pl
+++ b/lib/sbin/CreateParameterBindings.pl
@@ -588,6 +588,8 @@ sub CreateParameterExtensionStuff
 
   foreach $parameter (split(' ',$rhparameter_db->{"\U$thorn\E SHARES \U$block\E variables"}))
   {
+    my $realname = $rhparameter_db->{"\U$thorn $parameter\E realname"};
+
     $n_ranges = $rhparameter_db->{"\U$thorn $parameter\E ranges"};
 
     for($range=1; $range <= $n_ranges; $range++)
@@ -606,7 +608,7 @@ sub CreateParameterExtensionStuff
       $quoted_range =~ s:\s*$::;
 
       push(@data, "  CCTKi_ParameterAddRange(\"$block\",");
-      push(@data, "                          \"$parameter\",");
+      push(@data, "                          \"$realname\",");
       push(@data, "                          \"$thorn\",");
       push(@data, "                          \"$quoted_range\",");
       push(@data, "                           $range_description);");