Write out type information for spans to the debug info file.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5258 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/src/ld65/span.c b/src/ld65/span.c
index 03765b97e5183ff532e76efa7e7ecf3130be4a7a..4211ad48a872e287dc260e8661f3302051365bd5 100644 (file)
--- a/src/ld65/span.c
+++ b/src/ld65/span.c
@@ -34,7 +34,7 @@
 
 
 /* common */
-#include "attrib.h"
+#include "gentype.h"
 #include "xmalloc.h"
 
 /* ld65 */
@@ -158,6 +158,8 @@ void PrintDbgSpans (FILE* F)
 /* Output the spans to a debug info file */
 {
     unsigned I, J;
+    StrBuf SpanType = STATIC_STRBUF_INITIALIZER;
+
 
     /* Walk over all object files */
     for (I = 0; I < CollCount (&ObjDataList); ++I) {
@@ -168,20 +170,34 @@ void PrintDbgSpans (FILE* F)
         /* Walk over all spans in this object file */
         for (J = 0; J < CollCount (&O->Spans); ++J) {
 
+            const StrBuf* Type;
+
             /* Get this span */
-            Span* S = CollAtUnchecked (&O->Spans, J);
+            const Span* S = CollAtUnchecked (&O->Spans, J);
 
             /* Get the section for this span */
             const Section* Sec = GetObjSection (O, S->Sec);
 
             /* Output the data */
-            fprintf (F, "span\tid=%u,seg=%u,start=%lu,size=%lu\n",
+            fprintf (F, "span\tid=%u,seg=%u,start=%lu,size=%lu",
                      O->SpanBaseId + S->Id,
                      Sec->Seg->Id,
                      Sec->Offs + S->Offs,
                      S->Size);
+
+            /* If we have a type, add it */
+            Type = GetStrBuf (S->Type);
+            if (SB_GetLen (Type) > 0) {
+                fprintf (F, ",type=\"%s\"", GT_AsString (Type, &SpanType));
+            }
+
+            /* Terminate the output line */
+            fputc ('\n', F);
         }
     }
+
+    /* Free the string buffer */
+    SB_Done (&SpanType);
 }