diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-04 11:43:36 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-04 11:43:36 +0000 |
commit | 172b632473bf2c9426efb4a83b46827baed7a770 (patch) | |
tree | 154eae678cb35f82367b820b1e0e29e8f50c6c0f /lib | |
parent | 070333b3da106715b0705799bcbd42f498b63d9f (diff) |
Added some error catching code to the rfr files
git-svn-id: http://svn.cactuscode.org/flesh/trunk@869 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/schedule_parser.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/schedule_parser.pl b/lib/sbin/schedule_parser.pl index 529b5ecb..2e0741ef 100644 --- a/lib/sbin/schedule_parser.pl +++ b/lib/sbin/schedule_parser.pl @@ -564,7 +564,7 @@ sub parse_schedule_at_RFR { $out .= " index = CCTK_GroupIndex(\"$use_imp\:\:$this_group\");\n"; $out .= " if (index < 0) {\n"; - $out .= " printf(\"CCTK_GroupIndex failed in ".$thorn."_rfr.c\\n\");\n"; + $out .= " printf(\"CCTK_GroupIndex(\\\"$use_imp\:\:$this_group\\\") failed in ".$thorn."_rfr.c\\n\");\n"; $out .= " } else {\n"; $out .= " rfrRegisterStorage(GH->rfr_top,GH,$routine,index);\n"; $out .= " }\n"; @@ -595,7 +595,7 @@ sub parse_schedule_at_RFR { } $out .= " index = CCTK_GroupIndex(\"$this_imp\:\:$this_group\");\n"; $out .= " if (index < 0) {\n"; - $out .= " printf(\"CCTK_GroupIndex failed in ".$thorn."_rfr.c\\n\");\n"; + $out .= " printf(\"CCTK_GroupIndex(\\\"$this_imp\:\:$this_group\\\") failed in ".$thorn."_rfr.c\\n\");\n"; $out .= " } else {\n"; $out .= " rfrRegisterCommunication(GH->rfr_top,GH,$routine,index);\n"; $out .= " }\n"; |