github.com/open-simh.simtools
1
0
Fork 0
mirror of https://github.com/open-simh/simtools.git synced 2026-01-14 23:55:09 +00:00
Code Issues Projects Releases Wiki Activity

Updated PSECT address/length processing

Browse Source
This commit is contained in:
AK6DN 2017-04-09 19:41:18 -07:00
parent 688828abd0
commit e7d126f682
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
obj2bin.pl
View File

@ -774,16 +774,28 @@ sub parse_rec ($$$) {
$psect{$nam}{FLG}{$flg&(1<<4) ? "R/O" : "R/W"}++;
$psect{$nam}{FLG}{$flg&(1<<5) ? "REL" : "ABS"}++;
$psect{$nam}{FLG}{$flg&(1<<7) ? "D" : "I/D"}++;
$val++ if $val & 1;
if ($psect{$nam}{FLG}{CON}) {
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = $psectaddr;
$psectname = $nam;
$psectaddr += $val;
} elsif ($psect{$nam}{FLG}{ABS}) {
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = 0;
$psectname = $nam;
$psectname = $nam;
if ($psect{$nam}{FLG}{ABS}) {
# absolute
if ($psect{$nam}{FLG}{CON}) {
# concatenated
warn sprintf("Warning: psect ABS,CON is not supported, psect='%s'\n", $psectname);
} else {
# overlaid
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = 0;
}
} else {
# relative
if ($psect{$nam}{FLG}{CON}) {
# concatenated
$psect{$nam}{LENGTH} = $val;
$psect{$nam}{START} = $psectaddr & 1 ? ++$psectaddr : $psectaddr;
$psectaddr += $val;
} else {
# overlaid
warn sprintf("Warning: psect REL,OVR is not supported, psect='%s'\n", $psectname);
}
}
}
if ($DEBUG) {