diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-08-18 14:21:56 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-08-18 14:21:56 +0000 |
commit | dc8293d47765882887eccf69165e727a54ab7ddd (patch) | |
tree | c95e6d6a2539fe544fc36b20678bc5f4a97c6636 /lib/sbin/create_c_stuff.pl | |
parent | a530602eac18724b8854f09cdcafe069db116b4d (diff) |
Slightly more informative error message for an internal error condition;
correct fix would be to remove thorn from thornlist, and imp from
implist when missing ancestors found, so we never get to this point.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3842 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 1952a188..9c541bac 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -41,7 +41,7 @@ sub CreateParameterBindingFile foreach $parameter (&order_params($rhparameters,$rhparameter_db)) { my $type = $rhparameter_db->{"\U$rhparameters->{$parameter} $parameter\E type"}; - my $type_string = &get_c_type_string($type); + my $type_string = &get_c_type_string($type,$parameter); my $realname = $rhparameter_db->{"\U$rhparameters->{$parameter} $parameter\E realname"}; @@ -81,7 +81,7 @@ sub CreateParameterBindingFile sub get_c_type_string { - my($type) = @_; + my($type,$parameter) = @_; my $type_string; @@ -133,7 +133,7 @@ sub get_c_type_string } else { - &CST_error(0,"Unknown parameter type '$type'",'',__LINE__,__FILE__); + &CST_error(0,"Unknown parameter type '$type' for parameter '$parameter'",'',__LINE__,__FILE__); } return $type_string; |