Erik Schnetter's patch to declare string parameters in a thorn's parameter

struct as constant. Completes the fix for Cactus-1350.


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

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl
index 22a7ee80..5b1b7cfb 100644
--- a/lib/sbin/CreateParameterBindings.pl
+++ b/lib/sbin/CreateParameterBindings.pl
@@ -229,16 +229,16 @@ sub CreateParameterBindings
 
         $type = $rhparameter_db->{"\U$friend_thorn $realname\E type"};
         $array = $rhparameter_db->{"\U$friend_thorn $realname\E array_size"};
-        ($type_string) = &get_c_type_string($type);
+        $type_string = &get_c_type_string($type);
 
         my $varprefix = '';
 
         if($array_size)
         {
-          $varprefix = '*';
+          $varprefix = ' const *';
         }
 
-        push(@data, "  const $type_string $varprefix$parameter = RESTRICTED_\U$friend\E_STRUCT.$realname; \\");
+        push(@data, "  $type_string$varprefix const $parameter = RESTRICTED_\U$friend\E_STRUCT.$realname; \\");
         push(@use, "  (void) ($parameter + 0); \\");
       }
     }