From: Tom Hughes <tom@compton.nu>
Date: Wed, 20 Jul 2005 17:48:18 +0000 (+0000)
Subject: Handle a 'd' stab that indicates a file in pascal. Fixes bug #89914.
X-Git-Tag: svn/VALGRIND_3_0_0~98
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f8e2de1c61c303ffb8901f0ace1686b8eb1a6f7f;p=thirdparty%2Fvalgrind.git

Handle a 'd' stab that indicates a file in pascal. Fixes bug #89914.


git-svn-id: svn://svn.valgrind.org/valgrind/trunk@4220
---

diff --git a/coregrind/m_debuginfo/stabs.c b/coregrind/m_debuginfo/stabs.c
index 74dcf58299..611e1b000e 100644
--- a/coregrind/m_debuginfo/stabs.c
+++ b/coregrind/m_debuginfo/stabs.c
@@ -735,8 +735,9 @@ static SymType *stabtype_parser(SegInfo *si, SymType *def, Char **pp)
    }
 
    case 'k':                    /* const */
-   case 'B': {                  /* volatile */
-      /* ('k' | 'B') TYPE */
+   case 'B':                    /* volatile */
+   case 'd': {                  /* file (pascal only) */
+      /* ('k' | 'B' | 'd') TYPE */
       type = stabtype_parser(si, NULL, &p);
       break;
    }