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

2 files changed, 4 insertions, 4 deletions

diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl
index d8fe411b..b13b75fc 100644
--- a/lib/sbin/CreateParameterBindings.pl
+++ b/lib/sbin/CreateParameterBindings.pl
@@ -212,7 +212,7 @@ sub CreateParameterBindings
 
         $type = $rhparameter_db->{"\U$friend_thorn $realname\E type"};
         $array_size = $rhparameter_db->{"\U$friend_thorn $realname\E array_size"};
-        $type_string = &get_c_type_string($type);
+        $type_string = &get_c_type_string($type,$realname);
 
         my $varprefix = '';
 
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;