Handle scopes with a label correctly. Add the label to the debug info file.

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

src/ld65/scopes.c

@@ -61,6 +61,7 @@ static Scope* NewScope (ObjData* Obj, unsigned Id)
     S->Id       = Id;
     S->Obj      = Obj;
     S->Size     = 0;
+    S->LabelId  = ~0U;
     S->Spans    = EmptyCollection;
 
     /* Return the new entry */
@@ -84,6 +85,9 @@ Scope* ReadScope (FILE* F, ObjData* Obj, unsigned Id)
     if (SCOPE_HAS_SIZE (S->Flags)) {
         S->Size     = ReadVar (F);
     }
+    if (SCOPE_HAS_LABEL (S->Flags)) {
+        S->LabelId  = ReadVar (F);
+    }
 
     /* Read the segment ranges for this scope */
     ReadSpans (&S->Spans, F, Obj);
@@ -124,7 +128,11 @@ void PrintDbgScopes (FILE* F)
             if (S->Id != S->ParentId) {
                 fprintf (F, ",parent=%u", O->ScopeBaseId + S->ParentId);
             }
-
+            /* Print the label id if the scope is labeled */
+            if (SCOPE_HAS_LABEL (S->Flags)) {
+                fprintf (F, ",sym=%u", O->SymBaseId + S->LabelId);
+            }
+       
             /* Terminate the output line */
             fputc ('\n', F);
         }