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/GridFuncStuff.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/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index af4d407b..3cf5967a 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -351,14 +351,14 @@ sub CreateFortranArgumentDeclarations # DEPRECATED IN BETA 10 if($type eq 'CHAR') { - &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code",__LINE__,__FILE__); + &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code","",__LINE__,__FILE__); } push(@declarations, "CCTK_$type $argument$suffix$dimensions"); } else { - &CST_error(0,"Unknown argument type \"$type\"",__LINE__,__FILE__); + &CST_error(0,"Unknown argument type \"$type\"","",__LINE__,__FILE__); } } } @@ -424,14 +424,14 @@ sub CreateCArgumentDeclarations # DEPRECATED IN BETA 10 */ if($type eq 'CHAR') { - &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code",__LINE__,__FILE__); + &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code","",__LINE__,__FILE__); } push(@declarations, "CCTK_$type *$argument$suffix=(CCTK_$type *)(cctkGH->data[CCTK_VarIndex(\"$thorn\::$argument\")][$levelmone]);"); } else { - &CST_error(0,"Unknown argument type $type",__LINE__,__FILE__); + &CST_error(0,"Unknown argument type $type","",__LINE__,__FILE__); } } } @@ -712,7 +712,7 @@ sub CreateCArgumentPrototype } else { - &CST_error(0,"Unknown argument type $type",__LINE__,__FILE__); + &CST_error(0,"Unknown argument type $type","",__LINE__,__FILE__); } } } @@ -780,7 +780,7 @@ sub CreateCArgumentList # DEPRECATED IN BETA 10 if($type eq 'CHAR') { - &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code",__LINE__,__FILE__); + &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code","",__LINE__,__FILE__); } $arglist .= "$sep"."(CCTK_$type *)(CCTKARGNUM_$argument<0 ? NULL : (xGH)->data[CCTKARGNUM_$argument][$level-1])"; @@ -788,7 +788,7 @@ sub CreateCArgumentList } else { - &CST_error(0,"Unknown argument type $type",__LINE__,__FILE__); + &CST_error(0,"Unknown argument type $type","",__LINE__,__FILE__); } } } @@ -1150,7 +1150,7 @@ sub CreateThornGroupInitialisers $message = "Array dimension $dim doesn't match the $numsize array sizes "; $message .= "\n ($rhinterface_db->{\"\U$thorn GROUP $group\E SIZE\"}) for $group in $thorn"; $message .= "\n (Array sizes must be comma separated list of parameters)"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } } @@ -1274,7 +1274,7 @@ sub CheckArraySizes if ($gotit == 0) { $message = "Array size $par in $thorn is not a parameter"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } } } |