Apple-2-SW
/
merlin-utils
mirror of https://github.com/ksherlock/merlin-utils.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

EXD warning support.

This commit is contained in:
Kelvin Sherlock 2020-06-02 23:33:34 -04:00
parent 4f7890c699
commit 26676ede7d
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
link.cpp
View File

@ -264,6 +264,8 @@ static void process_labels(byte_view &data, cookie &cookie) {
switch (flag & ~0x1f) { switch (flag & ~0x1f) {
case SYMBOL_EXTERNAL: case SYMBOL_EXTERNAL:
/* map the unit symbol # to a global symbol # */ /* map the unit symbol # to a global symbol # */
if (!(value & 0x8000)) e->exd = true;
value &= 0x7fff; value &= 0x7fff;
if (cookie.remap.size() < value + 1) if (cookie.remap.size() < value + 1)
cookie.remap.resize(value + 1); cookie.remap.resize(value + 1);
@ -690,6 +692,18 @@ static void print_symbols(void) {
} }
static void check_exd(void) {
for (const auto &e : symbol_table) {
if (!e.exd) continue;
if (!e.defined) continue;
if (e.absolute && e.value < 0x0100) continue;
if (!e.absolute && lkv == 0 && (e.value + org) < 0x0100) continue;
warnx("%s defined as direct page", e.name.c_str());
}
}
void finish(void) { void finish(void) {
@ -712,6 +726,9 @@ void finish(void) {
errx(EX_OSERR, "%s: %s", path.c_str(), ex.what()); errx(EX_OSERR, "%s: %s", path.c_str(), ex.what());
} }
check_exd();
/* OP_ENT should print symbols */
print_symbols(); print_symbols();
segments.clear(); segments.clear();

1
link.h
View File

@ -20,6 +20,7 @@ struct symbol {
bool absolute = false; bool absolute = false;
bool defined = false; bool defined = false;
bool exd = false;
}; };
/* /*