diff options
Diffstat (limited to 'src/import/hwpf/fapi2/tools/parseErrorInfo.pl')
-rwxr-xr-x | src/import/hwpf/fapi2/tools/parseErrorInfo.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/import/hwpf/fapi2/tools/parseErrorInfo.pl b/src/import/hwpf/fapi2/tools/parseErrorInfo.pl index 6888c571..13f21049 100755 --- a/src/import/hwpf/fapi2/tools/parseErrorInfo.pl +++ b/src/import/hwpf/fapi2/tools/parseErrorInfo.pl @@ -1267,6 +1267,10 @@ foreach my $argnum ( 0 .. $#ARGV ) # Add the Target to cdgTargetHash to be processed with any # callout and deconfigure requests $cdgTargetHash{ $gard->{target} }{gard} = 1; + if ( exists $gard->{gardType} ) + { + $cdgTargetHash{ $gard->{target} }{gardType} = $gard->{gardType}; + } $elementsFound++; } if ( exists $gard->{childTargets} ) @@ -1324,6 +1328,7 @@ foreach my $argnum ( 0 .. $#ARGV ) my $priority = 'NONE'; my $deconf = 0; my $gard = 0; + my $gardType = 'GARD_Fatal'; if ( exists $cdgTargetHash{$cdg}->{callout} ) { @@ -1340,6 +1345,11 @@ foreach my $argnum ( 0 .. $#ARGV ) if ( exists $cdgTargetHash{$cdg}->{gard} ) { $gard = 1; + + if ( exists $cdgTargetHash{$cdg}->{gardType} ) + { + $gardType = $cdgTargetHash{$cdg}->{gardType}; + } } # Add the Target to the objectlist if it doesn't already exist @@ -1356,6 +1366,8 @@ foreach my $argnum ( 0 .. $#ARGV ) $eiEntryStr .= " l_entries[$eiEntryCount].target_cdg.iv_gard = $gard; \\\n"; $eiEntryStr .= " l_entries[$eiEntryCount].target_cdg.iv_calloutPriority = fapi2::CalloutPriorities::$priority; \\\n"; + $eiEntryStr .= + " l_entries[$eiEntryCount].target_cdg.iv_gardType = fapi2::GardTypes::$gardType; \\\n"; $eiEntryCount++; } |