/* */
/* */
/* */
-/* (C) 2002-2003 Ullrich von Bassewitz */
-/* Römerstrasse 52 */
-/* D-70794 Filderstadt */
-/* EMail: uz@cc65.org */
+/* (C) 2002-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 "coll.h"
#include "exprdefs.h"
#include "filepos.h"
+#include "lidefs.h"
#include "objdefs.h"
#include "optdefs.h"
-#include "segdefs.h"
+#include "scopedefs.h"
#include "symdefs.h"
#include "xmalloc.h"
/* Remove the trailing newline */
unsigned Len = strlen (S);
if (Len > 0 && S[Len-1] == '\n') {
- S[Len-1 ] = '\0';
+ S[Len-1 ] = '\0';
}
/* Return the time string */
+static void SkipLineInfoList (FILE* F)
+/* Skip a line info list from the given file */
+{
+ /* Count preceeds the list */
+ unsigned long Count = ReadVar (F);
+
+ /* Skip indices */
+ while (Count--) {
+ (void) ReadVar (F);
+ }
+}
+
+
+
+static void SkipSpanList (FILE* F)
+/* Skip a span list from the given file */
+{
+ /* Count preceeds the list */
+ unsigned long Count = ReadVar (F);
+
+ /* Skip indices */
+ while (Count--) {
+ (void) ReadVar (F);
+ }
+}
+
+
+
static void SkipExpr (FILE* F)
/* Skip an expression from the given file */
{
break;
case EXPR_SECTION:
+ case EXPR_BANK:
/* Read the segment number */
- (void) Read8 (F);
- break;
+ (void) ReadVar (F);
+ break;
default:
Error ("Invalid expression op: %02X", Op);
unsigned Count;
unsigned I;
- /* Adressing mode */
+ /* Symbol type */
TypeDesc[0] = '\0';
- switch (Flags & EXP_MASK_SIZE) {
- case EXP_ABS: strcat (TypeDesc, "EXP_ABS"); break;
- case EXP_ZP: strcat (TypeDesc, "EXP_ZP"); break;
+ switch (Flags & SYM_MASK_TYPE) {
+ case SYM_STD: strcat (TypeDesc, "SYM_STD"); break;
+ case SYM_CHEAP_LOCAL: strcat (TypeDesc, "SYM_CHEAP_LOCAL"); break;
+ }
+
+ /* Symbol usage */
+ switch (Flags & SYM_MASK_LABEL) {
+ case SYM_EQUATE: strcat (TypeDesc, ",SYM_EQUATE"); break;
+ case SYM_LABEL: strcat (TypeDesc, ",SYM_LABEL"); break;
}
/* Type of expression */
- switch (Flags & EXP_MASK_VAL) {
- case EXP_CONST: strcat (TypeDesc, ",EXP_CONST"); break;
- case EXP_EXPR: strcat (TypeDesc, ",EXP_EXPR"); break;
+ switch (Flags & SYM_MASK_VAL) {
+ case SYM_CONST: strcat (TypeDesc, ",SYM_CONST"); break;
+ case SYM_EXPR: strcat (TypeDesc, ",SYM_EXPR"); break;
+ }
+
+ /* Size available? */
+ if (SYM_HAS_SIZE (Flags)) {
+ strcat (TypeDesc, ",SYM_SIZE");
}
+
/* Constructor/destructor declarations */
T = TypeDesc + strlen (TypeDesc);
- Count = GET_EXP_CONDES_COUNT (Flags);
- if (Count > 0) {
- T += sprintf (T, ",EXP_CONDES=");
- for (I = 0; I < Count; ++I) {
- unsigned Type = CD_GET_TYPE (ConDes[I]);
- unsigned Prio = CD_GET_PRIO (ConDes[I]);
- if (I > 0) {
- *T++ = ',';
- }
+ Count = SYM_GET_CONDES_COUNT (Flags);
+ if (Count > 0 && ConDes) {
+ T += sprintf (T, ",SYM_CONDES=");
+ for (I = 0; I < Count; ++I) {
+ unsigned Type = CD_GET_TYPE (ConDes[I]);
+ unsigned Prio = CD_GET_PRIO (ConDes[I]);
+ if (I > 0) {
+ *T++ = ',';
+ }
T += sprintf (T, "[%u,%u]", Type, Prio);
- }
+ }
}
/* Return the result */
+static const char* GetScopeType (unsigned Type)
+/* Return the name of a scope type */
+{
+ switch (Type) {
+ case SCOPE_GLOBAL: return "Global scope";
+ case SCOPE_FILE: return "File scope";
+ case SCOPE_SCOPE: return ".SCOPE or .PROC";
+ case SCOPE_STRUCT: return ".STRUCT";
+ case SCOPE_ENUM: return ".ENUM";
+ case SCOPE_UNDEF: return "Undefined";
+ default: return "Unknown scope type";
+ }
+}
+
+
+
void DumpObjHeader (FILE* F, unsigned long Offset)
/* Dump the header of the given object file */
{
/* String pool */
DumpObjHeaderSection ("String pool", H.StrPoolOffs, H.StrPoolSize);
+
+ /* Assertions */
+ DumpObjHeaderSection ("Assertions", H.AssertOffs, H.AssertSize);
+
+ /* Scopes */
+ DumpObjHeaderSection ("Scopes", H.ScopeOffs, H.ScopeSize);
}
case OPT_ARGSTR:
ArgStr = GetString (&StrPool, Val);
ArgLen = strlen (ArgStr);
- printf (" Data:%*s\"%s\"\n", 24-ArgLen, "", ArgStr);
+ printf (" Data:%*s\"%s\"\n", (int)(24-ArgLen), "", ArgStr);
break;
case OPT_ARGNUM:
printf (" Data:%26lu", Val);
- if (Type == OPT_DATETIME) {
+ if (Type == OPT_DATETIME) {
/* Print the time as a string */
printf (" (%s)", TimeToStr (Val));
}
/* Read the data for one file */
const char* Name = GetString (&StrPool, ReadVar (F));
unsigned long MTime = Read32 (F);
- unsigned long Size = Read32 (F);
+ unsigned long Size = ReadVar (F);
unsigned Len = strlen (Name);
/* Print the header */
printf (" Index:%27u\n", I);
/* Print the data */
- printf (" Name:%*s\"%s\"\n", 24-Len, "", Name);
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
printf (" Size:%26lu\n", Size);
printf (" Modification time:%13lu (%s)\n", MTime, TimeToStr (MTime));
}
unsigned long NextSeg = ftell (F) + DataSize;
const char* Name = GetString (&StrPool, ReadVar (F));
unsigned Len = strlen (Name);
- unsigned long Size = Read32 (F);
- unsigned Align = (1U << Read8 (F));
+ unsigned Flags = ReadVar (F);
+ unsigned long Size = ReadVar (F);
+ unsigned long Align = ReadVar (F);
unsigned char AddrSize = Read8 (F);
unsigned long FragCount = ReadVar (F);
printf (" Index:%27u\n", I);
/* Print the data */
- printf (" Name:%*s\"%s\"\n", 24-Len, "", Name);
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
+ printf (" Flags:%25u\n", Flags);
printf (" Size:%26lu\n", Size);
- printf (" Alignment:%21u\n", Align);
+ printf (" Alignment:%21lu\n", Align);
printf (" Address size:%14s0x%02X (%s)\n", "", AddrSize,
AddrSizeToStr (AddrSize));
printf (" Fragment count:%16lu\n", FragCount);
Collection StrPool = AUTO_COLLECTION_INITIALIZER;
unsigned Count;
unsigned I;
- FilePos Pos;
/* Seek to the header position and read the header */
FileSetPos (F, Offset);
/* Read and print all imports */
for (I = 0; I < Count; ++I) {
- const char* TypeDesc;
-
/* Read the data for one import */
- unsigned char Type = Read8 (F);
- const char* Name = GetString (&StrPool, ReadVar (F));
- unsigned Len = strlen (Name);
- ReadFilePos (F, &Pos);
+ unsigned char AddrSize = Read8 (F);
+ const char* Name = GetString (&StrPool, ReadVar (F));
+ unsigned Len = strlen (Name);
- /* Get a description for the type */
- switch (Type) {
- case IMP_ZP: TypeDesc = "IMP_ZP"; break;
- case IMP_ABS: TypeDesc = "IMP_ABS"; break;
- default: TypeDesc = "IMP_UNKNOWN"; break;
- }
+ /* Skip both line info lists */
+ SkipLineInfoList (F);
+ SkipLineInfoList (F);
/* Print the header */
printf (" Index:%27u\n", I);
/* Print the data */
- printf (" Type:%22s0x%02X (%s)\n", "", Type, TypeDesc);
- printf (" Name:%*s\"%s\"\n", 24-Len, "", Name);
+ printf (" Address size:%14s0x%02X (%s)\n", "", AddrSize,
+ AddrSizeToStr (AddrSize));
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
}
/* Destroy the string pool */
Collection StrPool = AUTO_COLLECTION_INITIALIZER;
unsigned Count;
unsigned I;
- FilePos Pos;
/* Seek to the header position and read the header */
FileSetPos (F, Offset);
for (I = 0; I < Count; ++I) {
unsigned long Value = 0;
- int HaveValue;
- unsigned char Type;
- unsigned char ConDes [CD_TYPE_COUNT];
+ unsigned long Size = 0;
+ unsigned char ConDes[CD_TYPE_COUNT];
const char* Name;
unsigned Len;
/* Read the data for one export */
- Type = Read8 (F);
- ReadData (F, ConDes, GET_EXP_CONDES_COUNT (Type));
+ unsigned Type = ReadVar (F);
+ unsigned char AddrSize = Read8 (F);
+ ReadData (F, ConDes, SYM_GET_CONDES_COUNT (Type));
Name = GetString (&StrPool, ReadVar (F));
Len = strlen (Name);
- if (IS_EXP_EXPR (Type)) {
- SkipExpr (F);
- HaveValue = 0;
- } else {
+ if (SYM_IS_CONST (Type)) {
Value = Read32 (F);
- HaveValue = 1;
+ } else {
+ SkipExpr (F);
}
- ReadFilePos (F, &Pos);
+ if (SYM_HAS_SIZE (Type)) {
+ Size = ReadVar (F);
+ }
+
+ /* Skip both line infos lists */
+ SkipLineInfoList (F);
+ SkipLineInfoList (F);
/* Print the header */
printf (" Index:%27u\n", I);
/* Print the data */
printf (" Type:%22s0x%02X (%s)\n", "", Type, GetExportFlags (Type, ConDes));
- printf (" Name:%*s\"%s\"\n", 24-Len, "", Name);
- if (HaveValue) {
- printf (" Value:%15s0x%08lX (%lu)\n", "", Value, Value);
+ printf (" Address size:%14s0x%02X (%s)\n", "", AddrSize,
+ AddrSizeToStr (AddrSize));
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
+ if (SYM_IS_CONST (Type)) {
+ printf (" Value:%15s0x%08lX (%lu)\n", "", Value, Value);
+ }
+ if (SYM_HAS_SIZE (Type)) {
+ printf (" Size:%16s0x%04lX (%lu)\n", "", Size, Size);
}
}
Collection StrPool = AUTO_COLLECTION_INITIALIZER;
unsigned Count;
unsigned I;
- FilePos Pos;
/* Seek to the header position and read the header */
FileSetPos (F, Offset);
/* Read and print all debug symbols */
for (I = 0; I < Count; ++I) {
- unsigned long Value = 0;
- int HaveValue;
- unsigned char Type;
- unsigned char ConDes [CD_TYPE_COUNT];
- const char* Name;
- unsigned Len;
+ unsigned long Value = 0;
+ unsigned long Size = 0;
+ unsigned ImportId = 0;
+ unsigned ExportId = 0;
/* Read the data for one symbol */
- Type = Read8 (F);
- ReadData (F, ConDes, GET_EXP_CONDES_COUNT (Type));
- Name = GetString (&StrPool, ReadVar (F));
- Len = strlen (Name);
- if (IS_EXP_EXPR (Type)) {
- SkipExpr (F);
- HaveValue = 0;
- } else {
+ unsigned Type = ReadVar (F);
+ unsigned char AddrSize = Read8 (F);
+ unsigned long Owner = ReadVar (F);
+ const char* Name = GetString (&StrPool, ReadVar (F));
+ unsigned Len = strlen (Name);
+ if (SYM_IS_CONST (Type)) {
Value = Read32 (F);
- HaveValue = 1;
+ } else {
+ SkipExpr (F);
}
- ReadFilePos (F, &Pos);
+ if (SYM_HAS_SIZE (Type)) {
+ Size = ReadVar (F);
+ }
+ if (SYM_IS_IMPORT (Type)) {
+ ImportId = ReadVar (F);
+ }
+ if (SYM_IS_EXPORT (Type)) {
+ ExportId = ReadVar (F);
+ }
+
+ /* Skip both line info lists */
+ SkipLineInfoList (F);
+ SkipLineInfoList (F);
/* Print the header */
printf (" Index:%27u\n", I);
/* Print the data */
- printf (" Type:%22s0x%02X (%s)\n", "", Type, GetExportFlags (Type, ConDes));
- printf (" Name:%*s\"%s\"\n", 24-Len, "", Name);
- if (HaveValue) {
+ printf (" Type:%22s0x%02X (%s)\n", "", Type, GetExportFlags (Type, 0));
+ printf (" Address size:%14s0x%02X (%s)\n", "", AddrSize,
+ AddrSizeToStr (AddrSize));
+ printf (" Owner:%25lu\n", Owner);
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
+ if (SYM_IS_CONST (Type)) {
printf (" Value:%15s0x%08lX (%lu)\n", "", Value, Value);
}
+ if (SYM_HAS_SIZE (Type)) {
+ printf (" Size:%20s0x%04lX (%lu)\n", "", Size, Size);
+ }
+ if (SYM_IS_IMPORT (Type)) {
+ printf (" Import:%24u\n", ImportId);
+ }
+ if (SYM_IS_EXPORT (Type)) {
+ printf (" Export:%24u\n", ExportId);
+ }
}
/* Destroy the string pool */
for (I = 0; I < Count; ++I) {
FilePos Pos;
+ unsigned Type;
- /* Read one line info */
+ /* File position of line info */
ReadFilePos (F, &Pos);
+ /* Type of line info */
+ Type = ReadVar (F);
+
+ /* Skip the spans */
+ SkipSpanList (F);
+
/* Print the header */
printf (" Index:%27u\n", I);
/* Print the data */
- printf (" Line:%26lu\n", Pos.Line);
+ printf (" Type:%26u\n", LI_GET_TYPE (Type));
+ printf (" Count:%25u\n", LI_GET_COUNT (Type));
+ printf (" Line:%26u\n", Pos.Line);
printf (" Col:%27u\n", Pos.Col);
printf (" Name:%26u\n", Pos.Name);
}
+void DumpObjScopes (FILE* F, unsigned long Offset)
+/* Dump the scopes from an object file */
+{
+ ObjHeader H;
+ Collection StrPool = AUTO_COLLECTION_INITIALIZER;
+ unsigned Count;
+ unsigned I;
+
+ /* Seek to the header position and read the header */
+ FileSetPos (F, Offset);
+ ReadObjHeader (F, &H);
+
+ /* Seek to the start of the string pool and read it */
+ FileSetPos (F, Offset + H.StrPoolOffs);
+ ReadStrPool (F, &StrPool);
+
+ /* Seek to the start of scopes */
+ FileSetPos (F, Offset + H.ScopeOffs);
+
+ /* Output a header */
+ printf (" Scopes:\n");
+
+ /* Check if the object file was compiled with debug info */
+ if ((H.Flags & OBJ_FLAGS_DBGINFO) == 0) {
+ /* Print that there no scopes and bail out */
+ printf (" Count:%27u\n", 0);
+ return;
+ }
+
+ /* Read the number of scopes and print it */
+ Count = ReadVar (F);
+ printf (" Count:%27u\n", Count);
+
+ /* Read and print all scopes */
+ for (I = 0; I < Count; ++I) {
+
+ const char* Name;
+ unsigned Len;
+
+ /* Read the data */
+ unsigned ParentId = ReadVar (F);
+ unsigned LexicalLevel = ReadVar (F);
+ unsigned Flags = ReadVar (F);
+ const char* ScopeType = GetScopeType (ReadVar (F));
+
+ /* Print the header */
+ printf (" Index:%27u\n", I);
+
+ /* Print the data */
+ printf (" Parent id:%21u\n", ParentId);
+ printf (" Lexical level:%17u\n", LexicalLevel);
+ printf (" Flags:%21s0x%02X\n", "", Flags);
+ printf (" Type:%26s\n", ScopeType);
+
+ /* Resolve and print the name */
+ Name = GetString (&StrPool, ReadVar (F));
+ Len = strlen (Name);
+ printf (" Name:%*s\"%s\"\n", (int)(24-Len), "", Name);
+
+ /* Size */
+ if (SCOPE_HAS_SIZE (Flags)) {
+ unsigned long Size = ReadVar (F);
+ printf (" Size:%20s0x%04lX (%lu)\n", "", Size, Size);
+ }
+
+ /* Label */
+ if (SCOPE_HAS_LABEL (Flags)) {
+ unsigned LabelId = ReadVar (F);
+ printf (" Label id:%22u\n", LabelId);
+ }
+
+ /* Skip the spans */
+ SkipSpanList (F);
+ }
+
+ /* Destroy the string pool */
+ DestroyStrPool (&StrPool);
+}
+
+
+
void DumpObjSegSize (FILE* F, unsigned long Offset)
/* Dump the sizes of the segment in the object file */
{
unsigned long NextSeg = ftell (F) + DataSize;
const char* Name = GetString (&StrPool, ReadVar (F));
unsigned Len = strlen (Name);
- unsigned long Size = Read32 (F);
+ unsigned long Size = ReadVar (F);
/* Skip alignment, type and fragment count */
- (void) Read8 (F);
+ (void) ReadVar (F);
(void) Read8 (F);
(void) ReadVar (F);
/* Print the size for this segment */
- printf (" %s:%*s%6lu\n", Name, 24-Len, "", Size);
+ printf (" %s:%*s%6lu\n", Name, (int)(24-Len), "", Size);
/* Seek to the end of the segment data (start of next) */
FileSetPos (F, NextSeg);
+