From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 21 Aug 2011 20:18:09 +0000 (+0000)
Subject: Write out type information for spans to the debug info file.
X-Git-Tag: V2.13.3~204
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=660df16d08dc750dcb4f2900be7adab2fcc98c2b;p=cc65

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 03765b97e..4211ad48a 100644
--- 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);
 }