Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-12-25 13:29:59 +00:00
Code Issues Projects Releases Wiki Activity

Strip header from loaded module

Browse Source
This commit is contained in:
David Schmenk 2014-05-16 20:37:36 -07:00
parent eb746fb5a0
commit 2c9986fd25
1 changed files with 52 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
PLASMA/src/plvm.c
View File

@ -228,7 +228,8 @@ uword extern_lookup(byte *esd, int index)
} }
int load_mod(byte *mod) int load_mod(byte *mod)
{ {
uword len, size, end, magic, bytecode, fixup, addr, sysflags, defcnt = 0, init = 0, modaddr = mark_heap(); uword modsize, hdrlen, len, end, magic, bytecode, fixup, addr, sysflags, defcnt = 0, init = 0, modaddr = mark_heap();
word modfix;
byte *moddep, *rld, *esd, *cdd, *sym; byte *moddep, *rld, *esd, *cdd, *sym;
byte header[128]; byte header[128];
int fd; int fd;
@ -239,8 +240,9 @@ int load_mod(byte *mod)
fd = open(filename, O_RDONLY, 0); fd = open(filename, O_RDONLY, 0);
if ((fd > 0) && (len = read(fd, header, 128)) > 0) if ((fd > 0) && (len = read(fd, header, 128)) > 0)
{ {
modaddr = mark_heap(); moddep = header + 1;
magic = header[2] | (header[3] << 8); modsize = header[0] | (header[1] << 8);
magic = header[2] | (header[3] << 8);
if (magic == 0xDA7E) if (magic == 0xDA7E)
{ {
/* /*
@ -251,36 +253,52 @@ int load_mod(byte *mod)
defcnt = header[8] | (header[9] << 8); defcnt = header[8] | (header[9] << 8);
init = header[10] | (header[11] << 8); init = header[10] | (header[11] << 8);
moddep = header + 12; moddep = header + 12;
if (*moddep) /*
* Load module dependencies.
*/
while (*moddep)
{ {
/* if (lookup_mod(moddep) == 0)
* Load module dependencies.
*/
close(fd);
while (*moddep)
{ {
if (lookup_mod(moddep) == 0) if (fd)
load_mod(moddep); {
moddep += dcitos(moddep, string); close(fd);
fd = 0;
}
load_mod(moddep);
} }
modaddr = mark_heap(); moddep += dcitos(moddep, string);
fd = open(filename, O_RDONLY, 0); }
len = read(fd, mem_data + modaddr, 128); if (fd == 0)
{
fd = open(filename, O_RDONLY, 0);
len = read(fd, header, 128);
} }
else
memcpy(mem_data + modaddr, header, len);
} }
addr = modaddr + len; /*
while ((len = read(fd, mem_data + addr, 4096)) > 0) * Alloc heap space for relocated module (data + bytecode).
addr += len; */
close(fd); moddep += 1;
size = addr - modaddr; hdrlen = moddep - header;
len = mem_data[modaddr + 0] | (mem_data[modaddr + 1] << 8); len -= hdrlen;
modaddr = mark_heap();
end = modaddr + len; end = modaddr + len;
rld = mem_data + modaddr + len; // Re-Locatable Directory /*
esd = rld; // Extern+Entry Symbol Directory * Read in remainder of module into memory for fixups.
bytecode += modaddr - MOD_ADDR; */
while (*esd != 0x00) // Scan to end of RLD memcpy(mem_data + modaddr, moddep, len);
while ((len = read(fd, mem_data + end, 4096)) > 0)
end += len;
close(fd);
/*
* Apply all fixups and symbol import/export.
*/
modfix = modaddr - hdrlen - MOD_ADDR;
bytecode += modfix;
end = modaddr - hdrlen + modsize;
rld = mem_data + end; // Re-Locatable Directory
esd = rld; // Extern+Entry Symbol Directory
while (*esd != 0x00) // Scan to end of RLD
esd += 4; esd += 4;
esd++; esd++;
cdd = rld; cdd = rld;
@ -289,8 +307,8 @@ int load_mod(byte *mod)
/* /*
* Dump different parts of module. * Dump different parts of module.
*/ */
printf("Module size: %d\n", size); printf("Module size: %d\n", end - modaddr + hdrlen);
printf("Module code+data size: %d\n", len); printf("Module code+data size: %d\n", modsize);
printf("Module magic: $%04X\n", magic); printf("Module magic: $%04X\n", magic);
printf("Module sysflags: $%04X\n", sysflags); printf("Module sysflags: $%04X\n", sysflags);
printf("Module bytecode: $%04X\n", bytecode); printf("Module bytecode: $%04X\n", bytecode);
@ -308,7 +326,7 @@ int load_mod(byte *mod)
{ {
if (show_state) printf("\tDEF CODE"); if (show_state) printf("\tDEF CODE");
addr = rld[1] | (rld[2] << 8); addr = rld[1] | (rld[2] << 8);
addr += modaddr - MOD_ADDR; addr += modfix;
rld[1] = addr; rld[1] = addr;
rld[2] = addr >> 8; rld[2] = addr >> 8;
end = rld - mem_data + 4; end = rld - mem_data + 4;
@ -316,7 +334,7 @@ int load_mod(byte *mod)
else else
{ {
addr = rld[1] | (rld[2] << 8); addr = rld[1] | (rld[2] << 8);
addr += modaddr - MOD_ADDR; addr += modfix;
if (rld[0] & 0x80) if (rld[0] & 0x80)
fixup = mem_data[addr] | (mem_data[addr + 1] << 8); fixup = mem_data[addr] | (mem_data[addr + 1] << 8);
else else
@ -329,7 +347,7 @@ int load_mod(byte *mod)
else else
{ {
if (show_state) printf("\tINTERN "); if (show_state) printf("\tINTERN ");
fixup += modaddr - MOD_ADDR; fixup += modfix;
if (fixup >= bytecode) if (fixup >= bytecode)
/* /*
* Replace with call def dictionary. * Replace with call def dictionary.
@ -363,7 +381,7 @@ int load_mod(byte *mod)
else if (esd[0] & 0x08) else if (esd[0] & 0x08)
{ {
addr = esd[1] | (esd[2] << 8); addr = esd[1] | (esd[2] << 8);
addr += modaddr - MOD_ADDR; addr += modfix;
if (show_state) printf("\tEXPORT %s@$%04X\n", string, addr); if (show_state) printf("\tEXPORT %s@$%04X\n", string, addr);
if (addr >= bytecode) if (addr >= bytecode)
addr = def_lookup(cdd, addr); addr = def_lookup(cdd, addr);
@ -386,7 +404,7 @@ int load_mod(byte *mod)
*/ */
if (init) if (init)
{ {
interp(mem_data + init + modaddr - MOD_ADDR); interp(mem_data + init + modfix);
return POP; return POP;
} }
return 0; return 0;