diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-08-19 12:52:15 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-08-19 12:52:15 +0000 |
| commit | 1cfc38d8c540f57cafb20b0b6316637c29dfbab9 (patch) | |
| tree | 79ef7e954c6deca80b097e74528151eb2eabacd7 /lib/sbin/CreateFunctionBindings.pl | |
| parent | f1d4f49a673caa29c981e7d8fce25a835fce224f (diff) | |
Adding a "help" argument to the CST_error call to start adding suggested causes for the errors.
At the moment the help message is always shown, since I've only added a couple so far.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2307 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateFunctionBindings.pl')
| -rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 81783003..cbb28b93 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -1095,12 +1095,12 @@ sub FunctionDatabase if ($types ne $function_db->{"$function TYPES"}) { $message = "Argument types for aliased $function do not match"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } if ($inret ne $function_db->{"$function RET"}) { $message = "Return types for aliased $function do not match"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } } else @@ -1124,14 +1124,14 @@ sub FunctionDatabase { $function_db->{"$function LANG"} = "C"; $message = "Fortran wrapper not created for alias $function"; - &CST_error(1,$message,__LINE__,__FILE__); + &CST_error(1,$message,"",__LINE__,__FILE__); } } else { $function_db->{"$function LANG"} = ""; $message = "Can't create alias for $function"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } if ($rhinterface_db->{"\U$thorn FUNCTION\E $function RET"} eq "void") @@ -1169,12 +1169,12 @@ sub FunctionDatabase if ($types ne $function_db->{"$function TYPES"}) { $message = "Argument types for aliased $function do not match"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } if ($inret ne $function_db->{"$function RET"}) { $message = "Return types for aliased $function do not match"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } } $function_db->{"PROVIDED FUNCTIONS"} .= "$function "; @@ -1187,7 +1187,7 @@ sub FunctionDatabase if ($function_db->{"PROVIDED FUNCTIONS"} !~ / $function /) { $message = "Aliased function $function is not provided by any thorn"; - &CST_error(1,$message,__LINE__,__FILE__); + &CST_error(1,$message,"",__LINE__,__FILE__); } } @@ -1283,7 +1283,7 @@ sub ParseArguments $fortran = 0; $c = 0; $message = "Error parsing aliased function argument $arg"; - &CST_error(1,$message,__LINE__,__FILE__); + &CST_error(1,$message,"",__LINE__,__FILE__); } } |