/* */
/* */
/* */
-/* (C) 1998-2003 Ullrich von Bassewitz */
-/* Römerstrasse 52 */
-/* D-70794 Filderstadt */
-/* EMail: uz@cc65.org */
+/* (C) 1998-2012, Ullrich von Bassewitz */
+/* Roemerstrasse 52 */
+/* D-70794 Filderstadt */
+/* EMail: uz@cc65.org */
/* */
/* */
/* This software is provided 'as-is', without any expressed or implied */
#include <string.h>
-#include <errno.h>
-#include <time.h>
-#include <sys/types.h> /* EMX needs this */
-#include <sys/stat.h>
/* common */
#include "fname.h"
#include "xmalloc.h"
/* ld65 */
+#include "asserts.h"
#include "dbgsyms.h"
#include "error.h"
#include "exports.h"
#include "fileio.h"
#include "lineinfo.h"
#include "objdata.h"
-#include "segments.h"
#include "objfile.h"
+#include "scopes.h"
+#include "segments.h"
+#include "spool.h"
-static const char* GetModule (const char* Name)
-/* Get a module name from the file name */
+static unsigned GetModule (const char* Name)
+/* Get a module name index from the file name */
{
/* Make a module name from the file name */
const char* Module = FindName (Name);
if (*Module == 0) {
Error ("Cannot make module name from `%s'", Name);
}
- return Module;
+ return GetStringId (Module);
}
H->LineInfoSize = Read32 (Obj);
H->StrPoolOffs = Read32 (Obj);
H->StrPoolSize = Read32 (Obj);
+ H->AssertOffs = Read32 (Obj);
+ H->AssertSize = Read32 (Obj);
+ H->ScopeOffs = Read32 (Obj);
+ H->ScopeSize = Read32 (Obj);
+ H->SpanOffs = Read32 (Obj);
+ H->SpanSize = Read32 (Obj);
+}
+
+
+
+void ObjReadFiles (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the files list from a file at the given position */
+{
+ unsigned I;
+ unsigned FileCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
+
+ /* Read the data */
+ FileCount = ReadVar (F);
+ CollGrow (&O->Files, FileCount);
+ for (I = 0; I < FileCount; ++I) {
+ CollAppend (&O->Files, ReadFileInfo (F, O));
+ }
}
-void ObjReadFiles (FILE* F, ObjData* O)
-/* Read the files list from a file at the current position */
+void ObjReadSections (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the section data from a file at the given position */
{
unsigned I;
+ unsigned SectionCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
- O->FileCount = ReadVar (F);
- O->Files = xmalloc (O->FileCount * sizeof (FileInfo*));
- for (I = 0; I < O->FileCount; ++I) {
- O->Files[I] = ReadFileInfo (F, O);
+ /* Read the data */
+ SectionCount = ReadVar (F);
+ CollGrow (&O->Sections, SectionCount);
+ for (I = 0; I < SectionCount; ++I) {
+ CollAppend (&O->Sections, ReadSection (F, O));
}
}
-void ObjReadImports (FILE* F, ObjData* O)
-/* Read the imports from a file at the current position */
+void ObjReadImports (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the imports from a file at the given position */
{
unsigned I;
+ unsigned ImportCount;
- O->ImportCount = ReadVar (F);
- O->Imports = xmalloc (O->ImportCount * sizeof (Import*));
- for (I = 0; I < O->ImportCount; ++I) {
- O->Imports [I] = ReadImport (F, O);
- InsertImport (O->Imports [I]);
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
+
+ /* Read the data */
+ ImportCount = ReadVar (F);
+ CollGrow (&O->Imports, ImportCount);
+ for (I = 0; I < ImportCount; ++I) {
+ CollAppend (&O->Imports, ReadImport (F, O));
}
}
-void ObjReadExports (FILE* F, ObjData* O)
-/* Read the exports from a file at the current position */
+void ObjReadExports (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the exports from a file at the given position */
{
unsigned I;
+ unsigned ExportCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
- O->ExportCount = ReadVar (F);
- O->Exports = xmalloc (O->ExportCount * sizeof (Export*));
- for (I = 0; I < O->ExportCount; ++I) {
- O->Exports [I] = ReadExport (F, O);
- InsertExport (O->Exports [I]);
+ /* Read the data */
+ ExportCount = ReadVar (F);
+ CollGrow (&O->Exports, ExportCount);
+ for (I = 0; I < ExportCount; ++I) {
+ CollAppend (&O->Exports, ReadExport (F, O));
}
}
-void ObjReadDbgSyms (FILE* F, ObjData* O)
-/* Read the debug symbols from a file at the current position */
+void ObjReadDbgSyms (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the debug symbols from a file at the given position */
{
unsigned I;
+ unsigned DbgSymCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
- O->DbgSymCount = ReadVar (F);
- O->DbgSyms = xmalloc (O->DbgSymCount * sizeof (DbgSym*));
- for (I = 0; I < O->DbgSymCount; ++I) {
- O->DbgSyms [I] = ReadDbgSym (F, O);
+ /* Read the asm debug symbols */
+ DbgSymCount = ReadVar (F);
+ CollGrow (&O->DbgSyms, DbgSymCount);
+ for (I = 0; I < DbgSymCount; ++I) {
+ CollAppend (&O->DbgSyms, ReadDbgSym (F, O, I));
+ }
+
+ /* Read the hll debug symbols */
+ DbgSymCount = ReadVar (F);
+ CollGrow (&O->HLLDbgSyms, DbgSymCount);
+ for (I = 0; I < DbgSymCount; ++I) {
+ CollAppend (&O->HLLDbgSyms, ReadHLLDbgSym (F, O, I));
}
}
-void ObjReadLineInfos (FILE* F, ObjData* O)
-/* Read the line infos from a file at the current position */
+void ObjReadLineInfos (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the line infos from a file at the given position */
{
unsigned I;
+ unsigned LineInfoCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
- O->LineInfoCount = ReadVar (F);
- O->LineInfos = xmalloc (O->LineInfoCount * sizeof (LineInfo*));
- for (I = 0; I < O->LineInfoCount; ++I) {
- O->LineInfos[I] = ReadLineInfo (F, O);
+ /* Read the data */
+ LineInfoCount = ReadVar (F);
+ CollGrow (&O->LineInfos, LineInfoCount);
+ for (I = 0; I < LineInfoCount; ++I) {
+ CollAppend (&O->LineInfos, ReadLineInfo (F, O));
}
}
-void ObjReadStrPool (FILE* F, ObjData* O)
-/* Read the string pool from a file at the current position */
+void ObjReadStrPool (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the string pool from a file at the given position */
{
unsigned I;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
+
+ /* Read the data */
O->StringCount = ReadVar (F);
- O->Strings = xmalloc (O->StringCount * sizeof (char*));
+ O->Strings = xmalloc (O->StringCount * sizeof (O->Strings[0]));
for (I = 0; I < O->StringCount; ++I) {
O->Strings[I] = ReadStr (F);
}
-void ObjReadSections (FILE* F, ObjData* O)
-/* Read the section data from a file at the current position */
+void ObjReadAssertions (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the assertions from a file at the given offset */
{
unsigned I;
+ unsigned AssertionCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
- O->SectionCount = ReadVar (F);
- O->Sections = xmalloc (O->SectionCount * sizeof (Section*));
- for (I = 0; I < O->SectionCount; ++I) {
- O->Sections [I] = ReadSection (F, O);
+ /* Read the data */
+ AssertionCount = ReadVar (F);
+ CollGrow (&O->Assertions, AssertionCount);
+ for (I = 0; I < AssertionCount; ++I) {
+ CollAppend (&O->Assertions, ReadAssertion (F, O));
+ }
+}
+
+
+
+void ObjReadScopes (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the scope table from a file at the given offset */
+{
+ unsigned I;
+ unsigned ScopeCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
+
+ /* Read the data */
+ ScopeCount = ReadVar (F);
+ CollGrow (&O->Scopes, ScopeCount);
+ for (I = 0; I < ScopeCount; ++I) {
+ CollAppend (&O->Scopes, ReadScope (F, O, I));
+ }
+}
+
+
+
+void ObjReadSpans (FILE* F, unsigned long Pos, ObjData* O)
+/* Read the span table from a file at the given offset */
+{
+ unsigned I;
+ unsigned SpanCount;
+
+ /* Seek to the correct position */
+ FileSetPos (F, Pos);
+
+ /* Read the data */
+ SpanCount = ReadVar (F);
+ CollGrow (&O->Spans, SpanCount);
+ for (I = 0; I < SpanCount; ++I) {
+ CollAppend (&O->Spans, ReadSpan (F, O, I));
}
}
ObjReadHeader (Obj, &O->Header, Name);
/* Initialize the object module data structure */
- O->Name = xstrdup (GetModule (Name));
- O->Flags = OBJ_HAVEDATA;
+ O->Name = GetModule (Name);
/* Read the string pool from the object file */
- fseek (Obj, O->Header.StrPoolOffs, SEEK_SET);
- ObjReadStrPool (Obj, O);
+ ObjReadStrPool (Obj, O->Header.StrPoolOffs, O);
/* Read the files list from the object file */
- fseek (Obj, O->Header.FileOffs, SEEK_SET);
- ObjReadFiles (Obj, O);
+ ObjReadFiles (Obj, O->Header.FileOffs, O);
+
+ /* Read the line infos from the object file */
+ ObjReadLineInfos (Obj, O->Header.LineInfoOffs, O);
/* Read the imports list from the object file */
- fseek (Obj, O->Header.ImportOffs, SEEK_SET);
- ObjReadImports (Obj, O);
+ ObjReadImports (Obj, O->Header.ImportOffs, O);
/* Read the object file exports and insert them into the exports list */
- fseek (Obj, O->Header.ExportOffs, SEEK_SET);
- ObjReadExports (Obj, O);
+ ObjReadExports (Obj, O->Header.ExportOffs, O);
/* Read the object debug symbols from the object file */
- fseek (Obj, O->Header.DbgSymOffs, SEEK_SET);
- ObjReadDbgSyms (Obj, O);
+ ObjReadDbgSyms (Obj, O->Header.DbgSymOffs, O);
- /* Read the line infos from the object file */
- fseek (Obj, O->Header.LineInfoOffs, SEEK_SET);
- ObjReadLineInfos (Obj, O);
+ /* Read the assertions from the object file */
+ ObjReadAssertions (Obj, O->Header.AssertOffs, O);
- /* Read the segment list from the object file. This must be last, since
+ /* Read the segment list from the object file. This must be late, since
* the expressions stored in the code may reference segments or imported
* symbols.
*/
- fseek (Obj, O->Header.SegOffs, SEEK_SET);
- ObjReadSections (Obj, O);
+ ObjReadSections (Obj, O->Header.SegOffs, O);
+
+ /* Read the scope table from the object file. Scopes reference segments, so
+ * we must read them after the sections.
+ */
+ ObjReadScopes (Obj, O->Header.ScopeOffs, O);
+
+ /* Read the spans from the object file */
+ ObjReadSpans (Obj, O->Header.SpanOffs, O);
/* Mark this object file as needed */
- O->Flags |= OBJ_REF | OBJ_HAVEDATA;
+ O->Flags |= OBJ_REF;
/* Done, close the file (we read it only, so no error check) */
fclose (Obj);
+ /* Insert the imports and exports to the global lists */
+ InsertObjGlobals (O);
+
+ /* Insert the object into the list of all used object files */
+ InsertObjData (O);
+
/* All references to strings are now resolved, so we can delete the module
* string pool.
*/