mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-25 14:34:29 +00:00
551 lines
18 KiB
C++
Executable File
551 lines
18 KiB
C++
Executable File
#include <iostream>
|
|
#include <string>
|
|
#include <map>
|
|
#include <vector>
|
|
#include <fstream>
|
|
#include <set>
|
|
#include <string.h>
|
|
#include <alloca.h>
|
|
|
|
#include <assert.h>
|
|
#include <stdint.h>
|
|
#include <ctype.h>
|
|
|
|
#include "PEF.h"
|
|
|
|
typedef unsigned bfd_size_type;
|
|
typedef unsigned bfd_vma;
|
|
#define SYMNMLEN 8
|
|
#define PARAMS(x) x
|
|
struct bfd_link_hash_entry {};
|
|
struct bfd_link_hash_table {};
|
|
typedef int bfd;
|
|
typedef int asection;
|
|
typedef int bfd_boolean;
|
|
typedef char bfd_byte;
|
|
|
|
#define AOUTHDR external_aouthdr
|
|
#include "rs6000.h"
|
|
|
|
bool verboseFlag = false;
|
|
|
|
inline int getI16(const void *xx)
|
|
{
|
|
const unsigned char *x = (const unsigned char*)xx;
|
|
return (x[0] << 8) | x[1];
|
|
}
|
|
|
|
inline int getI32(const void *xx)
|
|
{
|
|
const unsigned char *x = (const unsigned char*)xx;
|
|
return (x[0] << 24) | (x[1] << 16) | (x[2] << 8) | x[3];
|
|
}
|
|
|
|
inline int getI8(const void *xx)
|
|
{
|
|
return *(const unsigned char*)xx;
|
|
}
|
|
|
|
template<typename ch, int n>
|
|
inline int get(const ch (&x) [n])
|
|
{
|
|
switch(n)
|
|
{
|
|
case 1: return getI8(x);
|
|
case 2: return getI16(x);
|
|
case 4: return getI32(x);
|
|
default: abort();
|
|
}
|
|
}
|
|
|
|
|
|
class ImportLib
|
|
{
|
|
public:
|
|
std::string path, base, mem;
|
|
std::vector<std::string> imports;
|
|
std::vector<int> xcoffImportIndices;
|
|
|
|
int nameOffset;
|
|
bool weak;
|
|
|
|
std::vector<int> symNameOffsets;
|
|
|
|
ImportLib(std::string path, std::string base, std::string mem)
|
|
: path(path), base(base), mem(mem), weak(false)
|
|
{
|
|
}
|
|
};
|
|
|
|
void mkpef(const std::string& inFn, const std::string& outFn)
|
|
{
|
|
std::ifstream in(inFn);
|
|
|
|
external_filehdr xcoffHeader;
|
|
external_aouthdr aoutHeader;
|
|
|
|
in.read((char*) &xcoffHeader, sizeof(xcoffHeader));
|
|
assert((size_t)get(xcoffHeader.f_opthdr) >= sizeof(aoutHeader));
|
|
in.read((char*)&aoutHeader, sizeof(aoutHeader));
|
|
in.seekg(get(xcoffHeader.f_opthdr) - sizeof(aoutHeader),std::ios_base::cur);
|
|
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "flags: " << std::hex << get(xcoffHeader.f_flags) << std::dec << std::endl;
|
|
std::cerr << "symptr: " << get(xcoffHeader.f_symptr) << std::endl;
|
|
std::cerr << "nsyms: " << get(xcoffHeader.f_nsyms) << std::endl;
|
|
}
|
|
|
|
|
|
std::map<std::string,external_scnhdr> xcoffSections;
|
|
std::map<std::string, int> xcoffSectionNumbers;
|
|
|
|
int nSections = get(xcoffHeader.f_nscns);
|
|
for(int i=0;i<nSections;i++)
|
|
{
|
|
external_scnhdr xcoffSection;
|
|
|
|
in.read((char*) &xcoffSection, sizeof(xcoffSection));
|
|
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "section: " << xcoffSection.s_name << std::endl;
|
|
std::cerr << " at: " << get(xcoffSection.s_scnptr) << std::endl;
|
|
std::cerr << " sz: " << get(xcoffSection.s_size) << std::endl;
|
|
}
|
|
xcoffSections[xcoffSection.s_name] = xcoffSection;
|
|
xcoffSectionNumbers[xcoffSection.s_name] = i+1;
|
|
}
|
|
|
|
|
|
std::vector<ImportLib> importLibs;
|
|
std::vector<int> importedSymbolIndices;
|
|
int totalImportedSyms = 0;
|
|
|
|
std::vector<unsigned short> relocInstructions;
|
|
|
|
{
|
|
external_scnhdr xcoffLoaderSection = xcoffSections[".loader"];
|
|
external_ldhdr xcoffLoaderHeader;
|
|
|
|
char * loaderSectionPtr = (char*)alloca(get(xcoffLoaderSection.s_size));
|
|
in.seekg(get(xcoffLoaderSection.s_scnptr));
|
|
in.read(loaderSectionPtr, get(xcoffLoaderSection.s_size));
|
|
|
|
xcoffLoaderHeader = *(external_ldhdr*)loaderSectionPtr;
|
|
|
|
char *p = loaderSectionPtr + get(xcoffLoaderHeader.l_impoff);
|
|
for(int i=0; i<get(xcoffLoaderHeader.l_nimpid); i++)
|
|
{
|
|
std::string path = p;
|
|
p += strlen(p) + 1;
|
|
std::string base = p;
|
|
p += strlen(p) + 1;
|
|
std::string mem = p;
|
|
p += strlen(p) + 1;
|
|
importLibs.push_back(ImportLib(path,base,mem));
|
|
if(verboseFlag)
|
|
std::cerr << "Import: " << path << ", " << base << ", " << mem << '\n';
|
|
}
|
|
|
|
external_ldsym *syms = (external_ldsym*) (loaderSectionPtr + sizeof(external_ldhdr));
|
|
for(int i=0; i<get(xcoffLoaderHeader.l_nsyms); i++)
|
|
{
|
|
std::string name;
|
|
external_ldsym& sym = syms[i];
|
|
|
|
if(get(sym._l._l_l._l_zeroes) == 0)
|
|
{
|
|
name = loaderSectionPtr + get(xcoffLoaderHeader.l_stoff)
|
|
+ get(sym._l._l_l._l_offset);
|
|
}
|
|
else
|
|
name = sym._l._l_name;
|
|
if(verboseFlag)
|
|
std::cerr << "Loader Symbol: " << name << std::endl;
|
|
|
|
if((get(sym.l_smtype) & 0xF8) == 0x40 /*L_IMPORT*/)
|
|
{
|
|
assert((get(sym.l_smtype) & 3) == 0 /*XTY_ER*/);
|
|
if(verboseFlag)
|
|
std::cerr << "... from file: " << get(sym.l_ifile) << std::endl;
|
|
importLibs[get(sym.l_ifile)].imports.push_back(name);
|
|
importLibs[get(sym.l_ifile)].xcoffImportIndices.push_back(i);
|
|
totalImportedSyms++;
|
|
}
|
|
}
|
|
importedSymbolIndices.resize(get(xcoffLoaderHeader.l_nsyms));
|
|
{
|
|
int symbolIndex = 0;
|
|
for(unsigned i=1;i<importLibs.size();i++)
|
|
{
|
|
for(unsigned j=0;j<importLibs[i].xcoffImportIndices.size();j++)
|
|
{
|
|
importedSymbolIndices[importLibs[i].xcoffImportIndices[j]] = symbolIndex;
|
|
symbolIndex++;
|
|
}
|
|
}
|
|
}
|
|
|
|
int xcoffDataSecNumber = xcoffSectionNumbers[".data"];
|
|
|
|
external_ldrel *rels = (external_ldrel*) (loaderSectionPtr + sizeof(external_ldhdr) + get(xcoffLoaderHeader.l_nsyms) * sizeof(external_ldsym));
|
|
for(int i=0; i<get(xcoffLoaderHeader.l_nreloc); i++)
|
|
{
|
|
external_ldrel& rel = rels[i];
|
|
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "[" << i << "] reloc: " << std::hex << get(rel.l_vaddr) << " " << get(rel.l_symndx) << " " << get(rel.l_rtype) << " " << get(rel.l_rsecnm) << "\n";
|
|
}
|
|
assert(get(rel.l_rtype) == 0x1f00);
|
|
assert(get(rel.l_rsecnm) == xcoffDataSecNumber);
|
|
|
|
int vaddr = get(rel.l_vaddr);
|
|
|
|
relocInstructions.push_back(
|
|
PEFRelocComposeSetPosition_1st(vaddr));
|
|
relocInstructions.push_back(
|
|
PEFRelocComposeSetPosition_2nd(vaddr));
|
|
if(get(rel.l_symndx) == 0)
|
|
relocInstructions.push_back(PEFRelocComposeBySectC(1));
|
|
else if(get(rel.l_symndx) == 1 || get(rel.l_symndx) == 2)
|
|
relocInstructions.push_back(PEFRelocComposeBySectD(1));
|
|
else
|
|
{
|
|
int importIndex = importedSymbolIndices[get(rel.l_symndx) - 3];
|
|
relocInstructions.push_back(
|
|
PEFRelocComposeLgByImport_1st(importIndex));
|
|
relocInstructions.push_back(
|
|
PEFRelocComposeLgByImport_2nd(importIndex));
|
|
}
|
|
}
|
|
}
|
|
|
|
PEFContainerHeader pefHeader;
|
|
|
|
memset(&pefHeader,0,sizeof(pefHeader));
|
|
|
|
pefHeader.tag1 = kPEFTag1;
|
|
pefHeader.tag2 = kPEFTag2;
|
|
pefHeader.architecture = 'pwpc';
|
|
pefHeader.formatVersion = kPEFVersion;
|
|
pefHeader.sectionCount = 3; // .text, .data, .loader
|
|
pefHeader.instSectionCount = 2; // .text, .data
|
|
|
|
PEFLoaderInfoHeader loaderInfoHeader;
|
|
memset(&loaderInfoHeader, 0, sizeof(loaderInfoHeader));
|
|
|
|
loaderInfoHeader.mainSection = -1;
|
|
loaderInfoHeader.initSection = -1;
|
|
loaderInfoHeader.termSection = -1;
|
|
|
|
loaderInfoHeader.mainSection = 1;
|
|
loaderInfoHeader.mainOffset = get(aoutHeader.entry);
|
|
|
|
|
|
PEFSectionHeader textSectionHeader, dataSectionHeader, loaderSectionHeader;
|
|
memset(&textSectionHeader, 0, sizeof(textSectionHeader));
|
|
memset(&dataSectionHeader, 0, sizeof(dataSectionHeader));
|
|
memset(&loaderSectionHeader, 0, sizeof(loaderSectionHeader));
|
|
|
|
int textSize = get(xcoffSections[".text"].s_size);
|
|
textSectionHeader.nameOffset = -1;
|
|
textSectionHeader.defaultAddress = 0;
|
|
textSectionHeader.totalLength = textSize;
|
|
textSectionHeader.unpackedLength = textSize;
|
|
textSectionHeader.containerLength = textSize;
|
|
textSectionHeader.containerOffset = sizeof(PEFContainerHeader) + 3*sizeof(PEFSectionHeader);
|
|
textSectionHeader.sectionKind = kPEFCodeSection;
|
|
textSectionHeader.shareKind = kPEFGlobalShare;
|
|
textSectionHeader.alignment = 2;
|
|
|
|
int dataSize = get(xcoffSections[".data"].s_size);
|
|
dataSectionHeader.nameOffset = -1;
|
|
dataSectionHeader.defaultAddress = 0;
|
|
dataSectionHeader.totalLength = dataSize + get(xcoffSections[".bss"].s_size);
|
|
dataSectionHeader.unpackedLength = dataSize;
|
|
dataSectionHeader.containerLength = dataSize;
|
|
dataSectionHeader.containerOffset = sizeof(PEFContainerHeader) + 3*sizeof(PEFSectionHeader) + textSize;
|
|
dataSectionHeader.sectionKind = kPEFUnpackedDataSection;
|
|
dataSectionHeader.shareKind = kPEFProcessShare;
|
|
dataSectionHeader.alignment = 2;
|
|
|
|
std::vector<std::string> loaderStringTable;
|
|
int loaderStringTableSize = 0;
|
|
|
|
for(unsigned i=1;i<importLibs.size();i++)
|
|
{
|
|
ImportLib& imp = importLibs[i];
|
|
std::string name;
|
|
|
|
if(imp.mem != "")
|
|
name = imp.mem;
|
|
else
|
|
name = imp.base;
|
|
|
|
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "XCOFF name \"" << name << '"';
|
|
}
|
|
int dotIndex = name.rfind('.');
|
|
if(dotIndex)
|
|
{
|
|
name = name.substr(0,dotIndex);
|
|
if(name.substr(0,3) == "lib")
|
|
name = name.substr(3);
|
|
}
|
|
|
|
if(name.length() > 6)
|
|
{
|
|
if(name.substr(name.length()-6,6) == "__weak")
|
|
{
|
|
name = name.substr(0,name.length()-6);
|
|
imp.weak = true;
|
|
}
|
|
}
|
|
|
|
if(name.length() > 5)
|
|
{
|
|
// the shared library name has been encoded as hex by MakeImport
|
|
// in order to avoid potential file name issues
|
|
// classic MacOS shared library names are in MacRoman and
|
|
// may contain wierd characters; the shared library name is used
|
|
// as the file name for the archive member, so there can be problems.
|
|
if(name.substr(0,5) == "imp__")
|
|
{
|
|
std::string realName;
|
|
|
|
int i;
|
|
int n = name.size();
|
|
for(i = 5; i < n && name[i] != '_'; i++)
|
|
;
|
|
++i;
|
|
for(; i + 1 < n && name[i] != '_'; i+=2)
|
|
{
|
|
char c1 = tolower(name[i]);
|
|
char c2 = tolower(name[i+1]);
|
|
assert(isdigit(c1) || (c1 >= 'a' && c1 <= 'f'));
|
|
assert(isdigit(c2) || (c2 >= 'a' && c2 <= 'f'));
|
|
int c = (c1 >= 'a' ? c1 - 'a' + 10 : c1 - '0') * 16
|
|
+ (c2 >= 'a' ? c2 - 'a' + 10 : c2 - '0');
|
|
realName += (char)c;
|
|
}
|
|
name = realName;
|
|
}
|
|
}
|
|
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "PEF name \"" << name << '"';
|
|
if(imp.weak)
|
|
std::cerr << " (weak)";
|
|
std::cerr << " at " << std::hex << loaderStringTableSize << std::dec
|
|
<< std::endl;
|
|
}
|
|
importLibs[i].nameOffset = loaderStringTableSize;
|
|
loaderStringTable.push_back(name);
|
|
loaderStringTableSize += name.length() + 1;
|
|
|
|
for(unsigned j=0;j<importLibs[i].imports.size();j++)
|
|
{
|
|
name = importLibs[i].imports[j];
|
|
if(verboseFlag)
|
|
std::cerr << "Sym name \"" << name << "\" at " << std::hex
|
|
<< loaderStringTableSize << std::dec << std::endl;
|
|
importLibs[i].symNameOffsets.push_back(loaderStringTableSize);
|
|
loaderStringTable.push_back(name);
|
|
loaderStringTableSize += name.length() + 1;
|
|
}
|
|
}
|
|
|
|
loaderInfoHeader.importedLibraryCount = importLibs.size()-1;
|
|
loaderInfoHeader.totalImportedSymbolCount = totalImportedSyms;
|
|
loaderInfoHeader.relocSectionCount = 1; // data only
|
|
loaderInfoHeader.relocInstrOffset = sizeof(PEFLoaderInfoHeader)
|
|
+ sizeof(PEFImportedLibrary)*(importLibs.size()-1)
|
|
+ sizeof(PEFImportedSymbol)*totalImportedSyms
|
|
+ sizeof(PEFLoaderRelocationHeader);
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "reloc instr offset: " << loaderInfoHeader.relocInstrOffset
|
|
<< " = " << sizeof(PEFLoaderInfoHeader)
|
|
<< " + " << sizeof(PEFImportedLibrary)*(importLibs.size()-1)
|
|
<< " + " << sizeof(PEFImportedSymbol)*totalImportedSyms
|
|
<< " + " << sizeof(PEFLoaderRelocationHeader)
|
|
<< std::endl;
|
|
}
|
|
loaderInfoHeader.loaderStringsOffset = loaderInfoHeader.relocInstrOffset
|
|
+ relocInstructions.size() * 2;
|
|
loaderInfoHeader.exportHashOffset = loaderInfoHeader.loaderStringsOffset
|
|
+ loaderStringTableSize;
|
|
|
|
PEFLoaderRelocationHeader dataRelocationHeader;
|
|
dataRelocationHeader.sectionIndex = 1;
|
|
dataRelocationHeader.reservedA = 0;
|
|
dataRelocationHeader.relocCount = relocInstructions.size();
|
|
dataRelocationHeader.firstRelocOffset = 0;
|
|
|
|
|
|
loaderSectionHeader.nameOffset = -1;
|
|
loaderSectionHeader.defaultAddress = 0;
|
|
loaderSectionHeader.totalLength = 0;
|
|
loaderSectionHeader.unpackedLength = 0;
|
|
loaderSectionHeader.containerLength = loaderInfoHeader.exportHashOffset + 4;
|
|
loaderSectionHeader.containerOffset = sizeof(PEFContainerHeader) + 3*sizeof(PEFSectionHeader)
|
|
+ textSize + dataSize;
|
|
loaderSectionHeader.sectionKind = kPEFLoaderSection;
|
|
loaderSectionHeader.shareKind = kPEFGlobalShare;
|
|
loaderSectionHeader.alignment = 2;
|
|
|
|
std::ofstream out(outFn);
|
|
if(verboseFlag)
|
|
std::cerr << "Writing Headers..." << std::flush;
|
|
|
|
eswap(&pefHeader);
|
|
out.write((char*)&pefHeader, sizeof(pefHeader));
|
|
eswap(&textSectionHeader);
|
|
out.write((char*)&textSectionHeader, sizeof(textSectionHeader));
|
|
eswap(&dataSectionHeader);
|
|
out.write((char*)&dataSectionHeader, sizeof(dataSectionHeader));
|
|
eswap(&loaderSectionHeader);
|
|
out.write((char*)&loaderSectionHeader, sizeof(loaderSectionHeader));
|
|
if(verboseFlag)
|
|
std::cerr << "done.\nCopying text and data..." << std::flush;
|
|
{
|
|
char *buf = new char[textSize];
|
|
|
|
in.seekg(get(xcoffSections[".text"].s_scnptr));
|
|
in.read(buf, textSize);
|
|
out.write(buf, textSize);
|
|
delete[] buf;
|
|
}
|
|
{
|
|
char *buf = new char[dataSize];
|
|
|
|
in.seekg(get(xcoffSections[".data"].s_scnptr));
|
|
in.read(buf, dataSize);
|
|
out.write(buf, dataSize);
|
|
delete[] buf;
|
|
}
|
|
if(verboseFlag)
|
|
std::cerr << "done.\n";
|
|
eswap(&loaderInfoHeader);
|
|
out.write((char*)&loaderInfoHeader, sizeof(loaderInfoHeader));
|
|
|
|
int firstImportedSymbol = 0;
|
|
|
|
if(verboseFlag)
|
|
std::cerr << "imports..." << std::flush;
|
|
for(unsigned i=1;i<importLibs.size();i++)
|
|
{
|
|
PEFImportedLibrary impLib;
|
|
memset(&impLib,0,sizeof(impLib));
|
|
impLib.nameOffset = importLibs[i].nameOffset;
|
|
impLib.importedSymbolCount = importLibs[i].imports.size();
|
|
impLib.firstImportedSymbol= firstImportedSymbol;
|
|
firstImportedSymbol += impLib.importedSymbolCount;
|
|
|
|
if(importLibs[i].weak)
|
|
impLib.options = kPEFWeakImportLibMask;
|
|
|
|
eswap(&impLib);
|
|
out.write((char*)&impLib, sizeof(impLib));
|
|
}
|
|
for(unsigned i=1;i<importLibs.size();i++)
|
|
{
|
|
for(unsigned j=0;j<importLibs[i].imports.size();j++)
|
|
{
|
|
PEFImportedSymbol sym;
|
|
sym.classAndName = PEFComposeImportedSymbol(kPEFTVectorSymbol /* ### */,
|
|
importLibs[i].symNameOffsets[j]);
|
|
eswap(&sym);
|
|
out.write((char*)&sym, sizeof(sym));
|
|
}
|
|
}
|
|
if(verboseFlag)
|
|
std::cerr << "done.\n";
|
|
|
|
if(verboseFlag)
|
|
std::cerr << "relocations..." << std::flush;
|
|
eswap(&dataRelocationHeader);
|
|
out.write((char*)&dataRelocationHeader, sizeof(dataRelocationHeader));
|
|
for(unsigned i=0;i<relocInstructions.size();i++)
|
|
{
|
|
short insn = relocInstructions[i];
|
|
eswap(&insn, "s");
|
|
out.write((char*)&insn, sizeof(insn));
|
|
}
|
|
if(verboseFlag)
|
|
{
|
|
std::cerr << "done.\n";
|
|
std::cerr << "strings..." << std::flush;
|
|
}
|
|
for(unsigned i=0;i<loaderStringTable.size();i++)
|
|
{
|
|
out.write(loaderStringTable[i].c_str(),loaderStringTable[i].length()+1);
|
|
}
|
|
if(verboseFlag)
|
|
std::cerr << "done.\n";
|
|
|
|
{
|
|
int zero = 0;
|
|
out.write((char*)&zero, 4);
|
|
}
|
|
}
|
|
|
|
int main (int argc, char * const argv[]) {
|
|
bool hadInput = false;
|
|
std::string inputFn;
|
|
bool hadOutput = false;
|
|
std::string outputFn = "";
|
|
|
|
for(int i=1;i<argc;i++)
|
|
{
|
|
std::string arg = argv[i];
|
|
if(arg == "-v")
|
|
verboseFlag = true;
|
|
else if(arg == "-o")
|
|
{
|
|
i++;
|
|
if(i >= argc)
|
|
{
|
|
std::cerr << "makepef: -o requires an argument.\n";
|
|
return 1;
|
|
}
|
|
if(hadOutput)
|
|
{
|
|
std::cerr << "makepef: -o can only be used once.\n";
|
|
return 1;
|
|
}
|
|
outputFn = argv[i];
|
|
hadOutput = true;
|
|
}
|
|
else
|
|
{
|
|
if(hadInput)
|
|
{
|
|
std::cerr << "makepef: can only handle one input file.\n";
|
|
return 1;
|
|
}
|
|
inputFn = argv[i];
|
|
hadInput = true;
|
|
}
|
|
}
|
|
if(!hadInput)
|
|
{
|
|
std::cerr << "makepef: no input file specified.\n";
|
|
return 1;
|
|
}
|
|
|
|
if(!hadOutput)
|
|
{
|
|
std::cerr << "makepef: no output file specified.\n";
|
|
return 1;
|
|
}
|
|
mkpef(inputFn, outputFn);
|
|
return 0;
|
|
}
|
|
|