Accept a segment attribute for symbols, but don't do anything with it for now.

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

diff --git a/src/dbginfo/dbginfo.c b/src/dbginfo/dbginfo.c
index 3195a69211ce015e20ddf276570ec2163979a0ef..fce96c3e229e5a471a572d45129af1bb65d6c45e 100644 (file)
--- a/src/dbginfo/dbginfo.c
+++ b/src/dbginfo/dbginfo.c
@@ -2223,6 +2223,7 @@ static void ParseSym (InputData* D)
         ibAddrSize      = 0x04,
         ibType          = 0x08,
         ibSize          = 0x10,
+        ibSegment       = 0x20,
         ibRequired      = ibSymName | ibValue | ibAddrSize | ibType,
     } InfoBits = ibNone;
 
@@ -2236,8 +2237,8 @@ static void ParseSym (InputData* D)
 
         /* Something we know? */
         if (D->Tok != TOK_ADDRSIZE      && D->Tok != TOK_NAME   &&
-            D->Tok != TOK_SIZE          && D->Tok != TOK_TYPE   &&
-            D->Tok != TOK_VALUE) {
+            D->Tok != TOK_SEGMENT       && D->Tok != TOK_SIZE   && 
+            D->Tok != TOK_TYPE          && D->Tok != TOK_VALUE) {
 
             /* Try smart error recovery */
             if (D->Tok == TOK_IDENT || TokenIsKeyword (D->Tok)) {
@@ -2274,6 +2275,15 @@ static void ParseSym (InputData* D)
                 NextToken (D);
                 break;
 
+            case TOK_SEGMENT:
+                if (!IntConstFollows (D)) {
+                    goto ErrorExit;
+                }
+                /* ### Drop value for now */
+                InfoBits |= ibSegment;
+                NextToken (D);
+                break;
+
             case TOK_SIZE:
                 if (!IntConstFollows (D)) {
                     goto ErrorExit;