diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-08-17 19:58:01 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-08-17 19:58:01 +0000 |
| commit | 84b4ec81232da53c9b3263a14920ba3f294b050d (patch) | |
| tree | 533201e24c0d644b86ac9a1b9c227dc758cea670 /lib | |
| parent | e12f39d2587f7fb8488b84ecd4045df1e5c5b1c4 (diff) | |
Produce warning if storage statement associated with startup or shutdown.
Patch from Yaakoub.
Fixes PR 1741.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3838 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/sbin/ScheduleParser.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl index 09d306fc..43a5b467 100644 --- a/lib/sbin/ScheduleParser.pl +++ b/lib/sbin/ScheduleParser.pl @@ -385,7 +385,16 @@ sub ParseScheduleBlock { $line_number++; if($data[$line_number] =~ m/^\s*STOR[^:]*:\s*(.*)$/i) - { + { + if ($where eq "CCTK_STARTUP" ) + { + &CST_error(1, "Scheduling storage \"$name\" at startup in thorn \"$thorn\"","Storage cannot be allocated at startup",__LINE__,__FILE__); + } + elsif ($where eq "CCTK_SHUTDOWN" ) + { + &CST_error(1, "Scheduling storage \"$name\" at shutdown in thorn \"$thorn\"","Storage cannot be allocated at shutdown",__LINE__,__FILE__); + } + push(@mem_groups, split(/\s+|\s*,\s*/, $1)); } elsif($data[$line_number] =~ m/^\s*COMM[^:]*:\s*(.*)$/i) |