summaryrefslogtreecommitdiff
path: root/lib/sbin/create_c_stuff.pl
diff options
context:
space:
mode:
authorgoodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>2004-08-18 14:21:56 +0000
committergoodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>2004-08-18 14:21:56 +0000
commitdc8293d47765882887eccf69165e727a54ab7ddd (patch)
treec95e6d6a2539fe544fc36b20678bc5f4a97c6636 /lib/sbin/create_c_stuff.pl
parenta530602eac18724b8854f09cdcafe069db116b4d (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.pl6
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;