diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-02 23:32:51 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-02 23:32:51 +0000 |
| commit | 76434b7d126c7adfe43151a2cae8680f0433b29a (patch) | |
| tree | 104e2e1135b4e5d8358e58fb3a4c861f81191db4 /lib/sbin/create_c_stuff.pl | |
| parent | 8313c457087302df0eaeea8ab935f9535b8e68e1 (diff) | |
Fix (hopefully) for problem with parameters having different orders
in common blocks and structures. Tom, have a check of this, I've
added a sort on the parameter keys before they are used but I might
have gone overboard.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@430 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
| -rw-r--r-- | lib/sbin/create_c_stuff.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 65e7f919..9f95205d 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -83,7 +83,7 @@ sub CreateParameterBindingFile # Initialisation subroutine push(@data, ("int $prefix"."Initialise(void)", "{")); - foreach $parameter (keys %parameters) + foreach $parameter (sort(keys %parameters)) { push(@data, &set_parameter_default($structure,$parameters{$parameter}, @@ -104,7 +104,7 @@ sub CreateParameterBindingFile push(@data, (" int retval;", " retval = 1;", "")); - foreach $parameter (keys %parameters) + foreach $parameter (sort(keys %parameters)) { push(@data, &set_parameter_code($structure,$parameters{$parameter}, $parameter, %parameter_database)); @@ -124,7 +124,7 @@ sub CreateParameterBindingFile push(@data, (" int retval;", " retval = 1;", "")); - foreach $parameter (keys %parameters) + foreach $parameter (sort(keys %parameters)) { push(@data, &get_parameter_code($structure,$parameters{$parameter}, $parameter, %parameter_database)); @@ -144,7 +144,7 @@ sub CreateParameterBindingFile push(@data, (" int retval;", " retval = 1;", "")); - foreach $parameter (keys %parameters) + foreach $parameter (sort(keys %parameters)) { push(@data, &help_parameter_code($structure,$parameters{$parameter}, $parameter, %parameter_database)); @@ -448,7 +448,7 @@ sub order_params %parameters = @rest[0..2*$nparams-1]; %parameter_database = @rest[2*$nparams..$#rest]; - foreach $parameter (keys %parameters) + foreach $parameter (sort(keys %parameters)) { $type = $parameter_database{"\U$parameters{$parameter} $parameter\E type"}; |