Minor update to psect flag processing

This commit is contained in:
AK6DN 2017-04-09 21:03:19 -07:00
parent e7d126f682
commit 3d380827cb

View File

@ -780,19 +780,19 @@ sub parse_rec ($$$) {
if ($psect{$nam}{FLG}{CON}) {
# concatenated
warn sprintf("Warning: psect ABS,CON is not supported, psect='%s'\n", $psectname);
} else {
} elsif ($psect{$nam}{FLG}{OVR}) {
# overlaid
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = 0;
}
} else {
} elsif ($psect{$nam}{FLG}{REL}) {
# relative
if ($psect{$nam}{FLG}{CON}) {
# concatenated
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = $psectaddr & 1 ? ++$psectaddr : $psectaddr;
$psectaddr += $val;
} else {
} elsif ($psect{$nam}{FLG}{OVR}) {
# overlaid
warn sprintf("Warning: psect REL,OVR is not supported, psect='%s'\n", $psectname);
}